я собрал программу в делфи в сонсоле,она работает.но не так как хотелось бы.у кого какие идеи???
программа должна быть с типизированным файлом file of integer и должна добавлять в конец файла копии положительных чисел.
Код:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
type fint=file of integer;
procedure test4c(var f:fint);
var g:fint;i,x:integer;
begin
reset(f); i:=0; x:=0;
assign(g,'asd.txt');
rewrite(g);
while not eof(f) do begin
read(f,i);
write(g,i);
end;close(f);
reset(f);
while not eof(f) do begin read(f,x);
if x>0 then begin write(g,x);end;
end;
close(f);close(g);
reset (g);
rewrite(f);
while not eof(g) do begin read(g,i); write(f,i);
end; close(f);close(g);erase(g);
end;
var f:fint;
begin
assign(f,'a.txt');
test4c(f);
end.
Админ: Пользуемся тегами, иначе последуют санкции!