Технический форум - Паскаль, текстовые файлы

Цитата:

Сообщение от Абай (Сообщение 531412)

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

Имена и адреса файлов, естественно, поставьте свои:

Код:

VAR

 ft,fn,ft1:TEXT;

 S,Sn:String;

 n,IOr:Integer;

BEGIN

 {$I-}

 Assign(ft,'D:\text.txt');

 ReSet(ft);

 Assign(fn,'D:\num.txt');

 ReSet(fn);

 Assign(ft1,'D:\text1.txt');

 ReWrite(ft1);

 Repeat

  IOr:=0;

  Readln(ft,S);

  If IOr=0 then

   begin

    Read(fn,n);

    IOr:=IOResult;

    If IOr=0 then

     begin

      Str(n,Sn);

      S:=S+Sn;

     end;

   end;

  Writeln(ft1,S);

 Until EoF(ft);

 Close(ft);

 Close(fn);

 Close(ft1);

END.

Здесь ft - файл с текстом, fn - файл с числами, тоже текстового формата.