Следующего плана: 1)заполнить числами типизированный файл; 2)считать эти цифры в байтах; 3)вывести эти цифры в другой файл.txt; вот код,который я написал,но не выводятся цифры
Program ex; const N=200; var i,x:integer; f:file of integer; f2:Text ; begin Assign(f,'pervuy.txt'); Assign(f2,'vuxod2.txt'); Rewrite(f); for i:=1 to N do Write(f,i*5); Close(f); Reset(f); Rewrite(f2); for i:=1 to N do begin Read(f,x); Write(f2,x,' '); end; Close(f); Close(f2) end.
Интерфе́йс (англ. interface — сопряжение, поверхность раздела, перегородка) — совокупность возможностей и методов взаимодействия двух систем (любых, а не обязательно являющиеся вычислительными или информационными), устройств или программ для обмена информацией между ними, определённая их характеристиками, характеристиками соединения, сигналов обмена и т. п. В случае, если одна из взаимодействующих систем — человек, чаще говорят лишь о второй системе, то есть об интерфейсе той системы, с которой человек взаимодействует.
Интерфе́йс (англ. interface — сопряжение, поверхность раздела, перегородка) — совокупность возможностей и методов взаимодействия двух систем (любых, а не обязательно являющиеся вычислительными или информационными), устройств или программ для обмена информацией между ними, определённая их характеристиками, характеристиками соединения, сигналов обмена и т. п. В случае, если одна из взаимодействующих систем — человек, чаще говорят лишь о второй системе, то есть об интерфейсе той системы, с которой человек взаимодействует.
const
N=200;
var
i,x:integer;
f:file of integer;
f2:Text ;
begin
Assign(f,'pervuy.txt');
Assign(f2,'vuxod2.txt');
Rewrite(f);
for i:=1 to N do Write(f,i*5);
Close(f); Reset(f);
Rewrite(f2);
for i:=1 to N do begin
Read(f,x);
Write(f2,x,' ');
end;
Close(f); Close(f2)
end.