Вычисление периметра и площади прямоугольника, через данные из файла - 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.

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

  1. Объявляются переменные a, b и f типа real и text соответственно.
  2. Устанавливается имя файла для чтения и записи в переменную f.
  3. Считываются значения переменных a и b из файла input.txt.
  4. Закрывается файл input.txt.
  5. Открывается файл output.txt для записи.
  6. В файл output.txt записывается формула периметра и площади прямоугольника (a + b) 2 и a b соответственно.
  7. Закрывается файл output.txt.

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

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