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

Помогите исправить задачу пожалуйста:

Даны три файла целых чисел одинакового размера с именами NameA, NameB и NameC. Создать новый файл с именем NameD, в котором чередовались бы элементы исходных файлов с одним и тем же номером: A0, B0, C0, A1, B1, C1, A2, B2, C2, ... .

program laba12;
uses crt;
var a,b,c,d:file of integer;
x,p,i,q,w,e: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);

randomize;
for i:=1 to 10 do
begin
q:=random (10)-5;
p:=random (10)-2;
write(a,p);
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