Вычисление периметра и площади прямоугольника, через данные из файла - Pascal
Формулировка задачи:
Помогите написать программу вычисления периметра и площади прямоугольника, через данные из файла и запись результата в другой.
Например - input.txt: 5 10
output.txt:
30
50
Набросок (без работы с файлами):
var a,b,s,p: integer; begin writeln('Введите длину прямоуг (а): '); readln(a); writeln('Введите ширину прямоуг (b): '); readln(b); S:=a*b; P:=(a+b)*2; writeln('p=',p); writeln('s=',s); end.
Решение задачи: «Вычисление периметра и площади прямоугольника, через данные из файла»
textual
Листинг программы
var a, b: real; f: text; begin assign(f, 'input.txt'); reset(f); readln(f, a, b); close(f); assign(f, 'output.txt'); rewrite(f); writeln(f, (a + b) * 2, #10#13, a * b); close(f) end.
Объяснение кода листинга программы
- Объявляются переменные a, b и f типа real и text соответственно.
- Устанавливается имя файла для чтения и записи в переменную f.
- Считываются значения переменных a и b из файла input.txt.
- Закрывается файл input.txt.
- Открывается файл output.txt для записи.
- В файл output.txt записывается формула периметра и площади прямоугольника (a + b) 2 и a b соответственно.
- Закрывается файл output.txt.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д