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

@Prot0n · Регистрация: 18.12.2015

Author24 — интернет-сервис помощи студентам

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

@Puporev · 19.12.2015, 09:57

Pascal

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.

@Prot0n 1 / 1 / 0 Регистрация: 18.12.2015 Сообщений: 5
		1
	Определить номер треугольника с наибольшей гипотенузой 18.12.2015, 23:53. Показов 1149. Ответов 1 Метки нет (Все метки) Даны три прямоугольных треугольника, катеты которых равны а1,а2; в1,в2; с1,с2 соответственно. Определить номер треугольника с наибольшей гипотенузой. Результат вывести на экран. 0

	19.12.2015, 09:57

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

Решение