Определить номер треугольника с наибольшей гипотенузой - Turbo Pascal

Узнай цену своей работы

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

Даны три прямоугольных треугольника, катеты которых равны а1,а2; в1,в2; с1,с2 соответственно. Определить номер треугольника с наибольшей гипотенузой. Результат вывести на экран.

Решение задачи: «Определить номер треугольника с наибольшей гипотенузой»

textual
Листинг программы
uses crt;
var a1,b1,c1,a2,b2,c2,a3,b3,c3,mx:real;
    k:byte;
begin
clrscr;
writeln('Введите длины катетов 1 треугольника');
readln(a1,b1);
c1:=sqrt(a1*a1+b1*b1);
writeln('Введите длины катетов 2 треугольника');
readln(a2,b2);
c2:=sqrt(a2*a2+b2*b2);
writeln('Введите длины катетов 3 треугольника');
readln(a3,b3);
c3:=sqrt(a3*a3+b3*b3);
writeln('Длины гипотенуз:');
writeln('1=',c1:0:2,' 2=',c2:0:2,' 3=',c3:0:2);
if c1>c2 then
 begin
  mx:=c1;
  k:=1;
 end
else
 begin
  mx:=c2;
  k:=2;
 end;
if c3>mx then
 begin
  mx:=c3;
  k:=3;
 end;
write('Наибольшая гипотенуза  у треугольника ',k);
readln
end.

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

  1. В начале кода подключается библиотека crt, которая используется для ввода-вывода данных.
  2. Объявляются переменные a1, b1, c1, a2, b2, c2, a3, b3, c3, mx и k типа real и byte соответственно. Переменная mx будет использоваться для хранения наибольшей гипотенузы, а переменная k - для отслеживания номера треугольника с наибольшей гипотенузой.
  3. Строка clrscr очищает экран перед вводом данных.
  4. Строка writeln('Введите длины катетов 1 треугольника') выводит на экран сообщение Введите длины катетов 1 треугольника и ожидает ввода значений a1 и b1.
  5. Строка readln(a1,b1) считывает введенные значения a1 и b1.
  6. Вычисляется гипотенуза треугольника с помощью формулы sqrt(a1a1+b1b1) и сохраняется в переменной c1.
  7. Повторяются шаги 4-6 для ввода данных для второго и третьего треугольников.
  8. Строка writeln('Длины гипотенуз:') выводит на экран сообщение Длины гипотенуз: и ожидает ввода значений c1, c2 и c3.
  9. Если c1 больше c2, то переменной mx присваивается значение c1, а переменной k - значение 1.
  10. Если c2 больше c1, то переменной mx присваивается значение c2, а переменной k - значение 2.
  11. Если c3 больше mx, то переменной mx присваивается значение c3, а переменной k - значение 3.
  12. Строка write('Наибольшая гипотенуза  у треугольника ',k) выводит на экран сообщение Наибольшая гипотенуза у треугольника k и ожидает ввода значения k.
  13. Строка readln ожидает ввода пользователя для завершения программы.

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

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