Witam mam pewien problem. Usiłuje zrobić zadanie:
Napisz program, który będzie jednocześnie odczytywał po dwa wiersze
z pliku tekstowego i zapisywał je do dwóch osobnych plików2 (pierwszy
wiersz do pierwszego pliku, drugi do drugiego).
Jak na razie zrobiłem:
program pliki;
uses
crt;
type
plik = file;
var
T:text;
procedure zapisz(var F:text);
var
a:string[80];
i:byte;
begin
rewrite(F);
writeln('Podaj znaki do zapisania');
for i:=1 to 6 do
begin
readln(a);
writeln(f,a);
writeln;
end;
close(f);
end;
{
procedure odczyt(var F:text);
var
a,b,c:string[80];
begin
reset(F);
repeat;
readln(f,a);
append(f,b);
readln(f,a);
append(f,c);
writeln;
until eof(f);
close(f)
end;
}
BEGIN
clrscr;
assign(T,'dane.txt');
assign(T2,'plik1.txt');
assign(T3,'plik2.txt');
zapisz(T);
odczyt(T);
readln;
end.
nie mam pomysłu jaką procedurę napisać aby odczytywało parzyste wiersze i nieparzyste, które będą dopisywane do dwóch odrębnych plików...