Составить программу, которая вводит длину, ширину и высоту для двух параллелепипедов - Pascal ABC

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

Составить программу, которая вводит длину, ширину и высоту для двух параллелепипедов, а затем определяет, какой из двух параллелепипедов имеет большую площадь

Решение задачи: «Составить программу, которая вводит длину, ширину и высоту для двух параллелепипедов»

Листинг программы

uses crt;
function S(x, y, z: real): real;
begin
  S:=2*(x*y+x*z+y*z);
end;  
var a1, b1, h1, a2, b2, h2: real;
begin
  write ('Длина 1-го параллелепипеда a = ');
  readln (a1);
  write ('Ширина 1-го параллелепипеда b = ');
  readln (b1);
  write ('Высота 1-го параллелепипеда h = ');
  readln (h1);
  write ('Длина 2-го параллелепипеда a = ');
  readln (a2);
  write ('Ширина 2-го параллелепипеда b = ');
  readln (b2);
  write ('Высота 2-го параллелепипеда h = ');
  readln (h2);
  writeln ('Площадь 1-го параллелепипеда S1 = ', S(a1,b1,h1));
  writeln ('Площадь 2-го параллелепипеда S2 = ', S(a2,b2,h2));
  if (S(a1,b1,h1)>S(a2,b2,h2)) then write ('Площадь 1-го параллелепипеда больше')
  else if (S(a1,b1,h1)<S(a2,b2,h2)) then write ('Площадь 2-го параллелепипеда больше')
       else writeln ('Площади 2-х параллелепипедов равны');
end.

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

В начале программы подключается библиотека crt, которая предоставляет функции ввода и вывода.
Определяется функция S, которая принимает три параметра типа real и возвращает real. Эта функция представляет собой формулу для вычисления площади параллелепипеда.
Определяются переменные a1, b1, h1, a2, b2, h2 типа real.
Пользователю предлагается ввести длину, ширину и высоту для первого параллелепипеда.
Полученные значения сохраняются в переменных a1, b1, h1.
Пользователю предлагается ввести длину, ширину и высоту для второго параллелепипеда.
Полученные значения сохраняются в переменных a2, b2, h2.
Вычисляется площадь первого параллелепипеда по формуле S(a1,b1,h1).
Выводится площадь первого параллелепипеда.
Если площадь первого параллелепипеда больше площади второго, выводится сообщение Площадь 1-го параллелепипеда больше.
Если площадь первого параллелепипеда меньше площади второго, выводится сообщение Площадь 2-го параллелепипеда больше.
Если площади равны, выводится сообщение Площади 2-х параллелепипедов равны.
Программа завершается.