Question

Помогите решить эту задачу в паскале!!!! Для двух треугольников с катетами а, b, с, d. Найти сумму площадей треугольников.(Вычисление площади оформить в виде под программы-функция или процедура).

Answer 1

Function S_tr(a,b:integer):real;
begin
S_tr:=a*b/2
end;

var a,b,c,d:integer;
s:real;
begin
s:=0;
read(a,b,c,d);
s+=S_tr(a,b);
s+=S_tr(c,d);
writeln(s);
end.

Answer 2

Конечно! Вот решение задачи на вычисление суммы площадей двух треугольников в Паскале:

pascalCopy code
program CalculateTriangleAreas;

var
  a, b, c, d: real;

function CalculateTriangleArea(base, height: real): real;
begin
  CalculateTriangleArea := 0.5 * base * height;
end;

begin
  // Ввод данных
  writeln('Введите значения катетов для первого треугольника:');
  write('a: ');
  readln(a);
  write('b: ');
  readln(b);

  writeln('Введите значения катетов для второго треугольника:');
  write('c: ');
  readln(c);
  write('d: ');
  readln(d);

  // Вычисление площадей
  var area1 := CalculateTriangleArea(a, b);
  var area2 := CalculateTriangleArea(c, d);
  var sumArea := area1 + area2;

  // Вывод результатов
  writeln('Площадь первого треугольника: ', area1);
  writeln('Площадь второго треугольника: ', area2);
  writeln('Сумма площадей треугольников: ', sumArea);
end.

Программа позволяет ввести значения катетов для двух треугольников, вычисляет площади каждого треугольника с помощью функции CalculateTriangleArea, а затем выводит результаты, включая сумму площадей треугольников.