Вывод строки побуквенно - 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4 из 5
Похожие ответы