- Подробности
- Автор: Super User
- Категория: Паскаль
- Просмотров: 6308
Сформировать файл F, компонентами которого являются целые числа. Записать в файл C все четные числа файла F, а в файл N - все нечетные. Порядок следования чисел сохраняется.
Решение
var F,C,N:file of integer;
k:integer;
i,j,m:integer;
begin
writeln;
writeln('Vvedite elementy file F, 0 - okonchanie vvoda ');
Assign(F,'C:\F.txt');
Rewrite(F);
read(k);
while k<>0 do
begin
write(F,k);
read(k);
end;
Close(F);
Assign(C,'C:\C.txt');
Assign(N,'C:\N.txt');
Reset(F);
Rewrite(C);
Rewrite(N);
while not Eof(F) do begin
read(F,k);
if k mod 2=0 then
write(C,k)
else
write(N,k)
end;
Close(F);
close(C);
close(N);
Reset(C);
write('Elem file C=');
while not Eof(C) do begin
read(C,k);
write(k);
write(' ');
end;
close(C);
Reset(N);
write('Elem file N=');
while not Eof(N) do begin
read(N,k);
write(k);
write(' ');
end;
close(N);
readln;
end.
Решение
var F,C,N:file of integer;
k:integer;
i,j,m:integer;
begin
writeln;
writeln('Vvedite elementy file F, 0 - okonchanie vvoda ');
Assign(F,'C:\F.txt');
Rewrite(F);
read(k);
while k<>0 do
begin
write(F,k);
read(k);
end;
Close(F);
Assign(C,'C:\C.txt');
Assign(N,'C:\N.txt');
Reset(F);
Rewrite(C);
Rewrite(N);
while not Eof(F) do begin
read(F,k);
if k mod 2=0 then
write(C,k)
else
write(N,k)
end;
Close(F);
close(C);
close(N);
Reset(C);
write('Elem file C=');
while not Eof(C) do begin
read(C,k);
write(k);
write(' ');
end;
close(C);
Reset(N);
write('Elem file N=');
while not Eof(N) do begin
read(N,k);
write(k);
write(' ');
end;
close(N);
readln;
end.