Файлы.

[NoviceYola]

Дан файл f(old), компоненты которого являются действительными числами. Число компонент файла кратно 2-м. Получить в файле g(new) суммы из каждых 2-х компонент файла f.
p.s.Набросал шаблон+приложил файлы,которые нужны для проги)

[Mad_Cat]

while not eof(f) do
begin
Read(f,a,b);
write(g,a+b);
end;

[Stilet]

компоненты которого являются действительными числами.

Не вижу я файл с вещественными. И кстати эта фраза подразумевает типизированный файл а не текстовый. Так что буди препода, и выясняй какой тип у файла, ибо от этого зависит и сам алгоритм программы.

[NoviceYola]

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

Не вижу я файл с вещественными. И кстати эта фраза подразумевает типизированный файл а не текстовый. Так что буди препода, и выясняй какой тип у файла, ибо от этого зависит и сам алгоритм программы.

Что-то не было у меня никаких споров насчет этого! Если некоторые числа в одном файле,нужно получить сумму в другом! Ну пусть тип будет рандомный...почему не текстовый ? Именно текстовый!

[Stilet]

Именно текстовый!

Тогда поясни как понимать это:

2 4 5 6 12 6 18 9
1 4 5 8 9 12 23 5

Я не буду спрашивать где здесь вещественные, пес с ними. А вот где здесь компоненты - вопрос.

[Serge_Bliznykov]

Дан файл f(old), компоненты которого являются действительными числами

это означает, что файл НЕ ТЕКСТОВЫЙ, это означает, что файл состоит из вещественных чисел (является типизированным) и описывается, например, так:

var f,g : file of real;

[NoviceYola]

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

Тогда поясни как понимать это:

Я не буду спрашивать где здесь вещественные, пес с ними. А вот где здесь компоненты - вопрос.

Эти числа и есть компоненты ! Хорошо,если взять вещественный тип,то как будет выглядеть код полностью ?

[ZX Spectrum-128]

Код вам дали. В сообщ. #2

[NoviceYola]

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

Код вам дали. В сообщ. #2

хотите сказать,что мне не доставал цикл while в шаблоне ?

[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);