Exited with exitcode=217 при работе с файлами - Free Pascal (614)

Узнай цену своей работы

Формулировка задачи:

решал простейшие задачки на составление формул: ввод данных, расчёт, вывод. работает без проблем.
uses crt,math;
const e=2.7;
Var a,b:integer;
    x,y:real;
Begin
  read(a,b);
  x:=(power(power(e,-(abs(a))),0.2)+cos(a*a*a*a-b))/(a*b);
  y:=(cos(a*a*a*a-b)+arctan(a))/(b+x);
  writeLn(x:4:2);
  writeLn(y:4:2);
  readkey;
End.
теперь появилась необходимость эту же прогу записать с помощью использования файлов:
uses crt,math;
const e=2.7;
Var a,b:integer;
      x,y:real;
      input,output:text;
Begin
  assign(input,'input.txt');
  reset(input);
  assign(output,'output.txt');
  rewrite(output);
  read(a,b);
  close(input);
  x:=(power(power(e,-(abs(a))),0.2)+cos(a*a*a*a-b))/(a*b);
  y:=(cos(a*a*a*a-b)+arctan(a))/(b+x);
  writeLn(x:4:2);
  writeLn(y:4:2);
  close(output);
  readkey;
End.
и вот тут при компиляции всё нормально, а после выполнения команды Run выскакивает треклятая ошибка

exited with exitcode=217

светлые умы, подскажите, что не так?

Решение задачи: «Exited with exitcode=217 при работе с файлами»

textual
Листинг программы
uses math;
const e=2.7;
Var a,b:integer;
      x,y:real;
    //  input,output:text;
Begin
  assign(input,'input.txt');
  reset(input);
  assign(output,'output.txt');
  rewrite(output);
  read(a,b);
  close(input);
  x:=a+b;
  y:=a*b;
  writeLn(x:4:2);
  writeLn(y:4:2);
  close(output);
End.

Объяснение кода листинга программы

  1. Используется единица измерения числа e со значением 2.7.
  2. Объявлены целочисленные переменные a и b.
  3. Объявлены вещественные переменные x и y.
  4. Переменная input инициализируется как файловый ввод, а переменная output как файловый вывод.
  5. Файл input.txt открывается для чтения, а файл output.txt открывается для записи.
  6. Читаются значения переменных a и b из файла input.
  7. Закрывается файл input.
  8. Переменная x инициализируется как сумма a и b.
  9. Переменная y инициализируется как произведение a и b.
  10. Значение переменной x выводится на экран с форматированием, где первые 4 позиции занимают цифры числа, а следующие 2 позиции - пробелы.
  11. Значение переменной y выводится на экран с форматированием, где первые 4 позиции занимают цифры числа, а следующие 2 позиции - пробелы.
  12. Файл output.txt закрывается.
  13. Выполняется операция выхода из программы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.111 из 5
Похожие ответы