Файлы.

[NoviceYola]

Сообщение от ZX Spectrum-128

Вам дали код решения вашей задачи. А создать файл вещественных чисел можно примерно так:

Var
  F:file of real;
...
Assign(f,'filename.in');
Rewrite(f);
For i:=1 to n do
Begin
X:=random;
Write(f,x);
End;
Close(f);

program files;
uses crt;
var f,g:file of integer; a,b,i,x:integer;
begin
assign(f,'M:\old.txt');
assign(g,'M:\new.txt');
rewrite(f);
for i:=1 to 10 do begin
x:=random(99)+1;
write(f,x); end;
close(f);
reset(f);
while not eof(f) do begin
read(f,x); write(x,' ');
end;
close(f); writeln; end.

p.s.пусть a,b - это те 2 элемента массива,сумму которых надо посчитать.
p.s.s.как теперь мне сумму получить в файле g ?

[Serge_Bliznykov]

.....
reset(f);
rewrite(g);
while not eof(f) do 
begin
   read(f,a);
   read(f,b);
   x := a + b ;
   write(g, x);
end;
close(g);
close(f); 
writeln; 
end.

И ещё, вас не смущает, что Вы сделали файл не вещественных, а целых чисел?

[NoviceYola]

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

.....
reset(f);
rewrite(g);
while not eof(f) do 
begin
   read(f,a);
   read(f,b);
   x := a + b ;
   write(g, x);
end;
close(g);
close(f); 
writeln; 
end.

И ещё, вас не смущает, что Вы сделали файл не вещественных, а целых чисел?

Спс,не смущает,эм,чет теперь вообще ничего не выводит(пустое окно),а в самих файлах разные символы.

[Serge_Bliznykov]

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

Спс,не смущает,эм,чет теперь вообще ничего не выводит(пустое окно).

дык, правильно,в коде же ничего не выводится на экран.
А что Вы хотите вывести?
Содержимое файлов?

да не вопрос! Допишите в конце:

...
reset(f);
rewrite(g);
while not eof(f) do 
begin
   read(f,a);
   read(f,b);
   x := a + b ;
   write(g, x);
end;
close(g);
close(f);
 

reset(f);
writeLn('Содержимое файла f:');
while not eof(f) do 
begin
   read(f,x); write(x,'  ');
end;
Close(f);
WriteLn;

reset(g);
writeLn('Содержимое файла G:');
while not eof(g) do 
begin
   read(g,x); write(x,'  ');
end;
Close(g);
WriteLn;

writeln; 
Readln;
end.

[Stilet]

пустое окно

Правильно. Вывода в консоль тут нет.

а в самих файлах разные символы

Тоже правильно потому что x := a + b
В файл выводится сумма.