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