• 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
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.