Exited with exitcode=217 при работе с файлами - Free Pascal (614)
Формулировка задачи:
решал простейшие задачки на составление формул:
ввод данных, расчёт, вывод. работает без проблем.
теперь появилась необходимость эту же прогу записать с помощью использования файлов:
и вот тут при компиляции всё нормально, а после выполнения команды Run выскакивает треклятая ошибка
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.
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.
Объяснение кода листинга программы
- Используется единица измерения числа
e
со значением 2.7. - Объявлены целочисленные переменные
a
иb
. - Объявлены вещественные переменные
x
иy
. - Переменная
input
инициализируется как файловый ввод, а переменнаяoutput
как файловый вывод. - Файл
input.txt
открывается для чтения, а файлoutput.txt
открывается для записи. - Читаются значения переменных
a
иb
из файлаinput
. - Закрывается файл
input
. - Переменная
x
инициализируется как суммаa
иb
. - Переменная
y
инициализируется как произведениеa
иb
. - Значение переменной
x
выводится на экран с форматированием, где первые 4 позиции занимают цифры числа, а следующие 2 позиции - пробелы. - Значение переменной
y
выводится на экран с форматированием, где первые 4 позиции занимают цифры числа, а следующие 2 позиции - пробелы. - Файл
output.txt
закрывается. - Выполняется операция выхода из программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д