Работа с файлами. Нужна помощь.

[Corwin88]

Приветствую. Только стал изучать тему работы с файлами на Pascal'e, но пока не могу решить такую задачу. Очень нужна помощь.

Считая, что непустой текстовый файл f разбит на строки, длина каждой из которых не превосходит 80, описать процедуру преобр(f,f80), которая, дополняя короткие строки файла f пробелами справа, формирует текстовый файл f80, все строки в котором имеют длину 80.

[Stilet]

Идеи есть?

[Corwin88]

У меня? нету, сижу читаю учебник.

никто не знает?

[Stilet]

сижу читаю учебник.

Правильно. Еще плюс к нему поиск по форуму - тут подобных задач на файлы куча. Для начала просто открой файл и считай с него данные.

[yura03]

Corwin88, если потерпиш до завтра, я тебе эту программу напишу!
А сейчас нет времени, конец рабочего дня!

[Corwin88]

Сообщение от yura03

если потерпиш до завтра, я тебе эту программу напишу!
А сейчас нет времени, конец рабочего дня!

конечно потерплю. буду очень благодарен.

[Ніжний Диявол]

Var f,f80:text;i,l:byte;ch:char;s:strin g;
begin
assign(f,'{путь к исходному файлу с разришением}');
assign(f80,'{путь к конечному файлу с разришением}');
while not eof(f) do begin
readln(f,s);
if length(s) < 80 then
begin
l:=80 - length(s);
repeat s2:=s2 + ' ';i:=i+1; until i=l

[Ніжний Диявол]

Writeln(f80,s2+s1);
end;
close(f);
close(f80);
end. Должна работать.

[Serge_Bliznykov]

Алгоритм правильный. забыл октрыть файлы на чтение/запись и вообще лучше вот так:

Var f,f80:text;
    s:string;
begin
  assign(f,'{путь к исходному файлу}');
  reset(f);  {открыть входной файл}
  assign(f80,'{путь к конечному файлу}');
  rewrite(f80); {переписать конечнный файл}
  while not eof(f) do begin
    readln(f,s);
    while  length(s)<80 do
      s := s + ' ';
    Writeln(f80,s);
  end;
  close(f);
  close(f80);
end.

[Ніжний Диявол]

Я писал со смарта утром с о сна