• Lenguaje

    Pascal

  • Descripción

    Lee los valores de los lados de un triángulo. Detecta y muestra un mensaje correspondiente a su tipo (equilátero, isósceles o escaleno).

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
program TrianguloEquilateroIsoscelesOEscaleno;
uses crt;

var lado_a, lado_b, lado_c : real;
begin
    write ('Ingresa el valor de lado a: ');
    readln (lado_a);
    write ('Ingresa el valor de lado b: ');
    readln (lado_b);
    write ('Ingresa el valor de lado c: ');
    readln (lado_c);
    if (lado_a=lado_b) and (lado_a=lado_c) then
        begin
            writeln ('Equil'#160'tero');
        end;
    if ((lado_a=lado_b) and (lado_a<>lado_c)) or ((lado_a=lado_c) and (lado_a<>lado_b)) or ((lado_b=lado_c) and (lado_b<>lado_a)) then
        begin
            writeln ('Is'#162'sceles');
        end;
    if (lado_a<>lado_b) and (lado_a<>lado_c) and (lado_b<>lado_c) then
        begin
            writeln ('Escaleno');
        end;
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.