Цитата:
Сообщение от Абай
Дан текстовый файл и файл целых чисел. Добавить в конец каждой
строки текстового файла изображение соответствующего числа из файла
целых чисел. Если файл целых чисел короче текстового файла, то остав-
шиеся строки текстового файла не изменять.
|
Имена и адреса файлов, естественно, поставьте свои:
Код:
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 - файл с числами, тоже текстового формата.