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