Родились сегодня:
Кожухова Дарья


Лидеры рейтинга

ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

1031

Россия, пос. Теплоозёрск, ЕАО


ID: 226425

Konstantin Shvetski

Модератор

313

Россия, Северодвинск


ID: 401284

Михаил Александров

Советник

277

Россия, Санкт-Петербург


ID: 400669

epimkin

Профессионал

205


ID: 137394

Megaloman

Мастер-Эксперт

156

Беларусь, Гомель


ID: 404002

sglisitsyn

6-й класс

42


ID: 242862

Hunter7007

Мастер-Эксперт

29

Россия, Омск


8.10.3

30.10.2021

JS: 2.10.3
CSS: 4.6.0
jQuery: 3.6.0
DataForLocalStorage: 2021-12-03 01:16:01-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

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

Раздел:  Pascal / Delphi / Lazarus
Автор вопроса: Ласточка
Дата: 13.11.2007, 22:52 Консультация закрыта
Поступило ответов: 3

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

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

Вот листинги, комментарии я думаю излишни...
Задача1.
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.


Задача2.
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.


Good Luck!!!

Переменная S в коде второй задачи явно лишняя... :)
-----
• Отредактировал: sir henry (Академик)
• Дата редактирования: 14.11.2007, 15:45

Gh0stik

Посетитель
13.11.2007, 23:21
Ответ # 193746 от Стома С.С.
Здравствуйте, Ласточка!

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

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

Приложение:


Стома С.С.

Посетитель
14.11.2007, 00:41
Ответ # 193833 от Зиновьев Дмитрий Владимирович
!!!
Здравствуйте, Ласточка!
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;

Решение №2 не годится. Проверьте его у себя.
-----
• Отредактировал: sir henry (Академик)
• Дата редактирования: 14.11.2007, 15:38

Зиновьев Дмитрий Владимирович

Посетитель
14.11.2007, 12:50
Мини-форум консультации # 109300
Нет сообщений в мини-форуме
Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 244

Gluck

9-й класс

Рейтинг: 61

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 43

Вадим Исаев ака sir Henry

Мастер-Эксперт

Рейтинг: 2

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0