|
Вопрос # 5 683/ вопрос открыт / |
|
Здравствуйте, эксперты!Помогите пожалуйста с задачей, напишите и объясните как, что, если не сложно:
Выведите на экран последовательность символов:
a
ab
abc
abcd
- и т.д. до стоки, заканчивающейся символом "z"
Ответ #1. Отвечает эксперт: puporev
Здравствуйте, Кузнецов Константин Сергеевич!
Решение задачи в приложении.
 |
Ответ отправил: puporev (статус: 2-ой класс)
Время отправки: 20 октября 2011, 08:50
Оценка за ответ: 5
|
Ответ #2. Отвечает эксперт: min@y™
Можно и попроще:
program abc;
var
a, b: Char;
begin
for a:= 'a' to 'z' do
begin
for b:= 'a' to a do
Write(b);
WriteLn;
end;
ReadLn;
end.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 20 октября 2011, 08:55
Оценка за ответ: 5
Комментарий к оценке: спасибо
|
Мини-форум вопроса
Всего сообщений: 14; последнее сообщение — 20 октября 2011, 11:30; участников в обсуждении: 4.
|
|
puporev (статус: 2-ой класс), 20 октября 2011, 08:53 [#1]:
Что-то весь русский текст исковеркало....
var i,j:byte;
begin
for i:=1 to 26 do{26 букв}
begin
for j:=1 to i do {по 1,2,3...буквы в строку}
write(chr(j+96)); {коды малых латинских букв от 97 до 122}
writeln; {на новую строку}
end;
readln
end.
|
|
Кузнецов Константин Сергеевич (статус: Посетитель), 20 октября 2011, 09:04 [#7]:
end;
ReadLn;
end.
А если не читать автоматом в конце программу то писать
End;
end.
или просто
end. !?
|
|
|
min@y™ (статус: Доктор наук), 20 октября 2011, 09:13 [#8]:
Цитата (Кузнецов Константин Сергеевич):
for b:= 'a' to a do в этой строке нет ошибки?
Нет. Проверено. Работает.
Цитата (Кузнецов Константин Сергеевич):
или так и должно быть?
Да.
Цитата (Кузнецов Константин Сергеевич):
end; ReadLn; end.
Это для того, чтобы не жмакать Alt+F5, чтобы просмотреть результат. Прога будет ждать, пока enter не нажмёшь.
Цитата (Кузнецов Константин Сергеевич):
А если не читать автоматом в конце программу то писать End; end. или просто end. !?
Ты прогу, ваще, компилить и запускать собираешься?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
puporev (статус: 2-ой класс), 20 октября 2011, 09:14 [#9]:
for b:= 'a' to a do в этой строке нет ошибки?
Где Вы увидели такую строку?
Там же написано
for a:= 'a' to 'z' do
|
|
|
min@y™ (статус: Доктор наук), 20 октября 2011, 09:23 [#11]:
Цитата (puporev):
Где Вы увидели такую строку? Там же написано for a:= 'a' to 'z' do
program abc;
var
a, b: Char;
begin
for a:= 'a' to 'z' do
begin
for b:= 'a' to a do // <----- А ВОТ ОНА!!!
Write(b);
WriteLn;
end;
ReadLn;
end.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 20 октября 2011, 09:35 [#13]:
Цитата (Кузнецов Константин Сергеевич):
Все проверил, терь норм, я там просто в одном месте ; забыл поставить
Ты чо, текст программы вручную, штоль, переписывал? Про копирование через буфер обмена не слышал (Ctrl+C, Ctrl+V)?
Я ФШОКЕ!!!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Ерёмин А.А. (статус: *Администратор), 20 октября 2011, 11:30 [#14]:
Кодировка в ответе puporev исправлена.
|
20 октября 2011, 11:38: Вопрос перемещён из тематического раздела Pascal » Программирование на Pascal в раздел Лабораторный практикум » Pascal модератором Ерёмин А.А.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
