Интерсная задача!Составление программ с использованием типизированных файлов

[locdoc]

Сообщение от Mad_Cat

так что хватит только

While not(eof(f))

благодарен многое открыл для меня!!

[locdoc]

Сообщение от Utkin

While not(eof(f))and not(eof(g)) and not(eof(h)) do

Пока не достигли конца одного из файлов выполняем следующий блок

read(f,a);

Читаем а

Читаем б (если Вы заметили из разных файлов)

read(h,c);

Читаем с

write(ff,a);
write(ff,b);
write(ff,c);

Поочередно записываем а, б и с.
Разница именно в первых переменных - они и в read и во write указывают с каким файлом работать. Далее в предыдущем примере постоянно шла работа на открытие/закрытие файлов. здесь все проще - один раз открыли, выполнили работу и нужно закрыть (этот фргамент не приведен, предполагается, что Вы сами дотумкаете как использовать оператор close, а также сам гугл не дремлет...

я застряль на :

	 const n=5;
var
g,h,f,Name4,Name3,Name2,Name1 : file of integer;
i,b,a : integer;
begin
assign(g,'Name1.txt'); assign(h,'Name2.txt'); assign(f,'Name3.txt');
rewrite(g);
for i:=1 to n do
begin
write('a='); readln(a);
write(g,a);
end;
close(g);
reset(g); rewrite(f); rewrite(h);
While not(eof(f))and not(eof(g)) and not(eof(h)) do
 begin
  read(f,a);
  read(g,b)
  read(h,c);
  write(ff,a);
  write(ff,b);
  write(ff,c);
 end;
end.

правильно делаю?

[alex_fcsm]

Сообщение от locdoc

правильно делаю?

	 const n=5;
var
g,h,f,Name4,Name3,Name2,Name1 : file of integer;
i,b,a : integer;
begin
assign(g,'Name1.txt'); assign(h,'Name2.txt'); assign(f,'Name3.txt');
rewrite(g);rewrite(h);rewrite(f);
for i:=1 to n do
begin
write('a='); readln(a);write(g,a);
write('b='); readln(a);write(h,b);
write('c='); readln(a);write(f,c);
end;
close(g);close(h);close(f);
reset(g); reset(f); reset(h);
While not(eof(f))and not(eof(g)) and not(eof(h)) do
 begin
  read(f,a);
  read(g,b)
  read(h,c);
  write(ff,a);
  write(ff,b);
  write(ff,c);
 end;
close(g);close(h);close(f);
end.

[Utkin]

И еще соблюдайте равновесие во Вселенной - все что открыли следует закрыть. Конечно при выходе из программы файлы закроются сами, но дело здесь не в файлах, а в привычке - если потребуются еще действия с этими же файлами, можно потом долго искать ошибку...

[locdoc]

program aiyap;
uses crt;
const n=5;
var
g,h,f,Name4,Name3,Name2,Name1 : file of integer;
i,c,b,a : integer;
begin
clrscr;
assign(g,'Name1.txt'); assign(h,'Name2.txt'); assign(f,'Name3.txt');
rewrite(g);rewrite(h);rewrite(f);
for i:=1 to n do
begin
write('a='); readln(a);write(g,a);
write('b='); readln(a);write(h,b);
write('c='); readln(a);write(f,c);
end;
close(g);close(h);close(f);
reset(g); reset(f); reset(h);
While not(eof(f))and not(eof(g)) and not(eof(h)) do
 begin
  read(f,a);
  read(g,b);
  read(h,c);
  write(f,a);
  write(f,b);
  write(f,c);
 end;
close(g);close(h);close(f);
end.

проверьти правильна ли

[alex_fcsm]

Сообщение от locdoc

program aiyap;
uses crt;
const n=5;
var
g,h,f,Name4,Name3,Name2,Name1 : file of integer;
i,c,b,a : integer;
begin
clrscr;
assign(g,'Name1.txt'); assign(h,'Name2.txt'); assign(f,'Name3.txt');
rewrite(g);rewrite(h);rewrite(f);
for i:=1 to n do
begin
write('a='); readln(a);write(g,a);
write('b='); readln(a);write(h,b);
write('c='); readln(a);write(f,c);
end;
close(g);close(h);close(f);
reset(g); reset(f); reset(h);
While not(eof(f))and not(eof(g)) and not(eof(h)) do
 begin
  read(f,a);
  read(g,b);
  read(h,c);
  write(f,a);
  write(f,b);
  write(f,c);
 end;
close(g);close(h);close(f);
end.

проверьти правильна ли

Неверно.Нужен ЕЩЕ один файл в который будешь писать результат

[locdoc]

Сообщение от alex_fcsm

Неверно.Нужен ЕЩЕ один файл в который будешь писать результат

не поможеш с этим?

[alex_fcsm]

Сообщение от locdoc

не поможеш с этим?

program aiyap;
uses crt;
const n=5;
var
g,h,f,ff : file of integer;
i,c,b,a : integer;
begin
clrscr;
assign(g,'Name1.txt'); assign(h,'Name2.txt'); assign(f,'Name3.txt');assign(ff,'all.txt');
rewrite(g);rewrite(h);rewrite(f);rewrite(ff);
for i:=1 to n do
begin
write('a='); readln(a);write(g,a);
write('b='); readln(a);write(h,b);
write('c='); readln(a);write(f,c);
end;
close(g);close(h);close(f);
reset(g); reset(f); reset(h);
While not(eof(f))and not(eof(g)) and not(eof(h)) do
 begin
  read(f,a);
  read(g,b);
  read(h,c);
  write(ff,a);
  write(ff,b);
  write(ff,c);
 end;
close(g);close(h);close(f);close(ff);
end.