Консультации Портала - Консультация #109300

Задать вопрос Консультации Пользователи Форум

Задать вопрос экспертам

Консультация № 109300

13.11.2007, 22:52

0.00 руб.

0 3 3

Компьютеры Программирование

Уважаемые эксперты! Помогите, пожалуйста, решить задачи:
1. Вывести на экран латинский алфавит в таком виде:
abcd...z
zbcd...z
zzcd...z
zzzd..z
...........
zzzz...z
2. Вывести на экран латинский алфавит в таком виде:
abcd..z
bcd...za
cde...zab
Заранее большое спасибо!

Обсуждение

Неизвестный

13.11.2007, 23:21

общий

это ответ

Здравствуйте, Ласточка!

Вот листинги, комментарии я думаю излишни...
Задача1.
<code>var xx,yy:char;
s:string;
begin
s:=‘‘;
for xx:=‘a‘ to ‘z‘ do
begin
write(s);
for yy:=xx to ‘z‘ do write(yy);
s:=s+‘z‘;
writeln;
end;
end.</code>

Задача2.
<code>var xx,yy,zz:char;
begin
for xx:=‘a‘ to ‘z‘ do write(xx);
writeln;
for xx:=‘b‘ to ‘z‘ do
begin
// write(s);
for yy:=xx to ‘z‘ do write(yy);
for zz:=‘a‘ to chr(ord(xx)-1) do write(zz);
writeln;
end;
end.</code>

Good Luck!!!<fieldset style=‘background-color:#EFEFEF; width:80%; border:#777777 1px solid; padding:10px;‘ class=fieldset>Переменная S в коде второй задачи явно лишняя... :)
-----
• Отредактировал: <a href=/info/user/425 target=_blank>sir henry</a> (Академик)
• Дата редактирования: 14.11.2007, 15:45</fieldset>

Неизвестный

14.11.2007, 00:41

общий

это ответ

Здравствуйте, Ласточка!

в первом задании просто удаляем в цикле первый символ и добавляем в начало z

во втором примере во временную переменную в цикле копируем первый символ в основной строке удаляем первый символ и добавляем в конец содержимое временной строки

Приложение:
var str, temp: String; i: Integer;begin str:= ‘abcdefghijklmnopqrstuvwxyz‘; for i:= 1 to 25 do begin Delete(str, i, 1); str:= ‘z‘ + str; end; str:= ‘abcdefghijklmnopqrstuvwxyz‘; for i:= 1 to 25 do begin temp:= Copy(str, 1, 1); Delete(str, 1, 1); str:= str + temp; end;

Неизвестный

14.11.2007, 12:50

общий

это ответ

!!!
Здравствуйте, Ласточка!
1.
for i := ord(‘a‘) to ord(‘z‘) do begin
for j := ord(‘a‘) to ord(‘z‘) do begin
if j < i then Write(‘z‘) ELSE Write(chr(j))
end;
Writeln;
end;
2.
sm := 0;
for i := ord(‘a‘) to ord(‘z‘) do begin
for j := ord(‘a‘) to ord(‘z‘) do begin
Write(chr((j + sm) div ord(‘a‘)));
end;
Writeln;
sm := sm + 1;
end;<fieldset style=‘background-color:#EFEFEF; width:80%; border:red 1px solid; padding:10px;‘ class=fieldset>Решение №2 не годится. Проверьте его у себя.
-----
• Отредактировал: <a href=/info/user/425 target=_blank>sir henry</a> (Академик)
• Дата редактирования: 14.11.2007, 15:38</fieldset>

Форма ответа

Отправка постов/ответов доступна только зарегистрированным и подтвержденным пользователям.

Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.