создание и использование файлов на языке паскаль

[Julichka1k]

задание

Создать файл F, компоненты которого являются целыми числами.Записать в файл G квадраты всех четных чисел файла F, а в файл H кубы всех нечетных чисел.

program example;
uses
crt;
const
_in_name = 'input.dat';
_out_name1 = 'output1.dat';
_out_name2 = 'output2.dat';
var
f, g, h: file of integer;
i, num: integer;
begin
clrscr;
assign (f, _in_name);
assign (g, _out_name1);
assign (h, _out_name2);
{$I-}
Reset(f);
if IOResult <> 0 then
begin
Rewrite(f);
randomize;
for i := 1 to 100 do
begin
num := random(101);
Write(f, num);
end;
close(f);
Reset(f);
Reset(g);
Reset(h);
While not(Eof(f)) do
begin
Read(f, num);
if odd(num) then Write (h, sqr(num)*num)
else Write (g, sqr(num)); 
end;
close(f);
close(g);
close(h);
end
else
begin
Reset(g);
Reset(h);
While not(Eof(f)) do
begin
Read(f, num);
if odd(num) then Write (h, sqr(num)*num)
else Write (g, sqr(num)); 
end;
close(f);
close(g);
close(h);
end;
{$I+}
end.

найдите ошибку, или как проще написать программу к этому заданию



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

остроумно..
подправил...

program example;
uses
  crt;
const
  _in_name = 'input.dat';
  _out_name1 = 'output1.dat';
  _out_name2 = 'output2.dat';
var
  f, g, h: file of longint;
  i, num: longint;
begin
  clrscr;
  assign(f, _in_name);
  assign(g, _out_name1);
  assign(h, _out_name2);
{$I-}
  Reset(f);
  if IOResult <> 0 then
  begin
    Rewrite(f);
    if IOResult <> 0 then begin
      WriteLn('#Error to create file ' + _in_name);
      Halt(100)
    end;
    randomize;
    for i := 1 to 100 do
    begin
      num := random(101);
      Write(f, num);
    end;
  end;
{$I+}
  close(f);

  Reset(f);
  Rewrite(g);
  Rewrite(h);
  while not (Eof(f)) do
  begin
    Read(f, num);
    if odd(num) then begin
      num := sqr(num) * num;
      Write(h, num)
    end
    else begin
      num := sqr(num);
      Write(g, num);
    end;
  end;
  close(f);
  close(g);
  close(h);

  WriteLn('Done.');
end.

p.s. если хотите использовать файл Integer - тогда ограничьте значение.
random(101) может вернуть число 99 - а куб этого числа = 970299 - это выходит
за рамки допустимого диапазона Integer ( в TurboPasal : Integer -32768..32767 )

[DiemonStar]

Reset(f);
if IOResult <> 0 then
begin
Rewrite(f);

Второй раз открывать файл без его закрытия... как-бы не совсем правильно)

Reset(g);
Reset(h);

тут было бы разумнее использовать Rewrite или Append - Reset не ориентирован на изменение текущего размера файла.

[Serge_Bliznykov]

так, пара слов, которые, думаю, TC не пригодятся (чтобы не забивать голову лишним )

DiemonStar, FYI.

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

тут было бы разумнее использовать Rewrite или Append - Reset не ориентирован на изменение текущего размера файла.

тут нужно только Rewrite()
Append - вообще не откомпилируется (эта процедура предназначена исключительно для текстовых файлов)
а вот насчёт Reset - вы ошибаетесь - для типизированных файлов он открывает на чтение и на запись - т.е. в файл можно писать и ДОПИСЫВАТЬ данные!)

[Julichka1k]

почему в ABC выводит ошибку (Ошибка:неизвестный индификатор IOResult)

[Hacker19_90]

Julichka1k А откуда у вас исходный код?

[Serge_Bliznykov]

потому что Вы взяли код от TurboPascal (как я понимаю по вашему вопросу - ЧУЖОЙ код) и бездумно вставили его в Pascal ABC.
Но о том, что Вы используете ПаскальABC и какие ошибки получаете, Вы нам решили не сообщать, чтобы было загадочней..
вот и результат...