Показать сообщение отдельно
  (#3 (permalink)) Старый
юра 3 юра 3 вне форума
Новичок
 
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 30.12.2008
По умолчанию 02.03.2009, 21:04

Вот сделал ну все ровно что-то не так

program laba12;
uses crt;
var a,b,c,d:file of integer;
x,p,i,q,w,e,g,n:integer;

begin
clrscr;
assign(a,'NameA.dat');
rewrite(a);
assign(b,'NameB.dat');
rewrite(b);
assign(c,'NameC.dat');
rewrite(c);
assign(d,'NameD.dat');
rewrite(d);
write('vved n=');
readln(n);
randomize;
for i:=1 to 10 do
begin
q:=random (10)-5;
p:=random (10)-2;
g:=random (10)-2;
write(a,p);
write(b,q);
write(c,g);
end;

write(b,w);
write(c,e);
close(a);close(b);close(c);
reset(a);reset(b);reset(c);

While not eof(a) and not eof(b) and not eof (c) do
begin
read(a,p);
write(d,p);
read(b,p);
write(d,p);
read(c,p);
write(d,p)
end;
close(a);
close(b);
close(c);
close(d);
reset(d);
while not eof(d) do
begin
read(d,x);
write(x, ' ');
end;
readln;
end.
Ответить с цитированием
Ads