Надо сделать задание в Delphi 7
Даны основания и высоты двух равнобедренных трапеций. Найти сумму их периметров. (Определите функцию для расчета периметра равнобедренной трапеции по ее основе и высоте.)

Предыдущий
вопрос Следующий
вопрос

Вот решение этой задачи на Delphi 7:

program TrapezoidPerimeter;
function TrapezoidPerimeter(base, height: Integer): Integer;
begin
Result := 2 * base + 2 * (sqrt((base/2)*(base/2) + height*height));
end;
var
base1, height1, base2, height2: Integer;
perimeter1, perimeter2, totalPerimeter: Integer;
begin
// Ввод оснований и высот для двух трапеций
Write('Введите основание первой трапеции: ');
Readln(base1);
Write('Введите высоту первой трапеции: ');
Readln(height1);
Write('Введите основание второй трапеции: ');
Readln(base2);
Write('Введите высоту второй трапеции: ');
Readln(height2);
// Вычисление периметров трапеций
perimeter1 := TrapezoidPerimeter(base1, height1);
perimeter2 := TrapezoidPerimeter(base2, height2);
// Вычисление суммы периметров
totalPerimeter := perimeter1 + perimeter2;
// Вывод результата
Writeln('Периметр первой трапеции: ', perimeter1);
Writeln('Периметр второй трапеции: ', perimeter2);
Writeln('Сумма периметров двух трапеций: ', totalPerimeter);
end.

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