Переделать из типизированного в текстовый тип - Pascal ABC

Формулировка задачи:

Есть задача: Дан файл f, компоненты которого являются целыми числами. Никакая из компонент файла не равна нулю. Файл f содержит столько же отрицательных чисел, сколько и положительных. Используя вспомогательный файл h, переписать компоненты файла f в файл g так, чтобы в файле gшли сначала положительные, а потом отрицательные. вот код:
uses crt;
var f,g,h:file of integer;
    a,n,m,i,j,k:integer;
begin
clrscr;
assign(f,'f');
rewrite(f);
assign(g,'g');
rewrite(g);
assign(h,'h');
rewrite(h);
writeln('Введите в файл не менее 4х пар целых положительных и отрицательных чисел,');
writeln('общее количество кратно 4, окончание ввода 0');
n:=0;m:=0;
repeat
readln(a);
if a<>0 then write(f,a);
if a<0 then n:=n+1
else if a>0 then m:=m+1;
until(a=0)and(m=n)and(n>1)and(n mod 2=0);
clrscr;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
  if a<0 then write(h,a);
 end;
close(f);
reset(f);
writeln;
reset(h);
while not eof(g) do
 begin
  read(g,a);
  write(a,' ');
 end;
close(g);
writeln;
rewrite(g);
reset(f);
reset(h);
while not eof(f) do
 begin
  read(f,a);
  if a>0 then write(g,a);
 end;
while not eof(h) do
 begin
  read(h,a);
  write(g,a);
 end;
reset(g);
writeln('Сначала положительные, потом отрицательные:');
while not eof(g) do
 begin
  read(g,a);
  write(a,' ');
 end;
close(g);
writeln;
end.
Все работает, я хочу, чтобы можно было просматривать содержимое файлов, а не машинный код. Т.е. сделать их текстовыми. Спасибо!


textual

Код к задаче: «Переделать из типизированного в текстовый тип - Pascal ABC»

writeln('Введите в файл не менее 4х пар целых положительных и отрицательных чисел,');
writeln('общее количество кратно 4, окончание ввода 0');
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.400 из 5

Источник