-
Lenguaje
Pascal
-
Descripción
Solicite 3 números correspondientes a los lados de un triángulo rectángulo (considere que los valores ingresados si forman un triángulo rectángulo) e indique cuál de los valores ingresados corresponde a la hipotenusa.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
program HipotenusaDeUnTriangulo;
uses crt;
var hipotenusa, lado_1, lado_2, lado_3 : real;
begin
write ('Ingresa el valor de lado 1: ');
readln (lado_1);
write ('Ingresa el valor de lado 2: ');
readln (lado_2);
write ('Ingresa el valor de lado 3: ');
readln (lado_3);
hipotenusa := 0;
if lado_1*lado_1=lado_2*lado_2+lado_3*lado_3 then
begin
hipotenusa := 1;
end;
if lado_2*lado_2=lado_3*lado_3+lado_1*lado_1 then
begin
hipotenusa := 2;
end;
if lado_3*lado_3=lado_1*lado_1+lado_2*lado_2 then
begin
hipotenusa := 3;
end;
writeln ('Valor de hipotenusa: ', hipotenusa:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var hipotenusa, lado_1, lado_2, lado_3 : real;
begin
write ('Ingresa el valor de lado 1: ');
readln (lado_1);
write ('Ingresa el valor de lado 2: ');
readln (lado_2);
write ('Ingresa el valor de lado 3: ');
readln (lado_3);
hipotenusa := 0;
if lado_1*lado_1=lado_2*lado_2+lado_3*lado_3 then
begin
hipotenusa := 1;
end;
if lado_2*lado_2=lado_3*lado_3+lado_1*lado_1 then
begin
hipotenusa := 2;
end;
if lado_3*lado_3=lado_1*lado_1+lado_2*lado_2 then
begin
hipotenusa := 3;
end;
writeln ('Valor de hipotenusa: ', hipotenusa:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.