базы данных в паскаль
Добавлено: 22 ноя 2006, 13:16
1)Как сделать так, чтобы, допустим нам даны 2 разных документа и нам нужно с помощью паскаля запихнуть их в один документ?
Код: Выделить всё
var fin,fout:text; s:string;
begin
assign(fin,'input1.txt');
reset(fin);
assign(fout,'output.txt');
rewrite(fout);
repeat
readln(fin,s);
writeln(fout,s);
until eof(fin);
close(fin);
assign(fin,'input2.txt');
reset(fin);
repeat
readln(fin,s);
writeln(fout,s);
until eof(fin);
close(fin);
close(fout);
end.
