Вывод строки побуквенно - Free Pascal
Формулировка задачи:
Бодрого дня, господа.
Ни как не могу найти на форуме решение (может просто плохо искал?) своей задачки.
Есть файлик текстовый. В нем куча строк. Допустим Затем
Потом
После
и т. д.
Подскажите где и куда копать
m
. Нет,m
маловато, лучшеn
. Мы из него считываем информацию. И выводим на экран построчно. Все ясно и понятно. Но... Нужно выводить эти самые строчки побуквенно. Т. е., чтобы знаки дописывались и так до конца строки. Затем следующая строка. Например: СначалаХ
Хо
Хоч
Хочу Хочу Хочу с Хочу ст Хочу стр Хочу стра Хочу стран Хочу странно Хочу странног Хочу странного
Решение задачи: «Вывод строки побуквенно»
textual
Листинг программы
uses crt; var s: String; i: Integer; f: Text; begin Assign(f,'info.txt'); Reset(f); while not EOF(f) do begin ReadLn(f,s); for i:=1 to Length(s) do begin Write(s[i]); Delay(30); end; WriteLn; end; Close(f); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д