Pascal/Turbo Pascal - triangulo

   
Vista:

triangulo

Publicado por jotirp super_jotijoti@hotmail.com (1 intervención) el 18/10/2011 18:10:42
Hola necesito ayuda con este ejercicio:
Escriba un programa que lea tres números reales y asigne el valor apropiado true o
false, a las siguientes variables booleanas:
· Triangulo: true si los números reales pueden representar longitudes de los lados de un
triangulo, y false en caso contrario (la suma de dos cualesquiera de las longitudes debe ser
mayor que la tercera).
· Equilatero: true si Triangulo tiene el valor true y además sus tres lados son iguales.
· Isósceles: true si Triangulo tiene el valor true y además al menos dos de los lados son
iguales
· Escaleno: true si Triangulo tiene el valor true y además no tiene lados iguales
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

triangulo

Publicado por Carlos Cuye cachosistemas@hotmail.com (7 intervenciones) el 18/10/2011 22:04:38
No seas vago! Estudiá y hacé a lo menos una parte del ejercicio!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

triangulo

Publicado por ramon (2072 intervenciones) el 20/10/2011 12:06:53
{Algo asín}

program triangul;
uses
crt;
var
triangulo, equilatero, isosceles, escaleno : boolean;
dato : array[1..3] of real;


procedure asignanumeros;
begin
gotoxy(10,1);write('*** Entre Numeros Reales ***');
gotoxy(10,3);write('Entre Valor 1 : ');
gotoxy(26,3);read(dato[1]);
gotoxy(10,4);write('Entre Valor 2 : ');
gotoxy(26,4);read(dato[2]);
gotoxy(10,5);write('Entre Valor 3 : ');
gotoxy(26,5);read(dato[3]);
clrscr;
end;

procedure comprueva;
var
can : real;
k, i : integer;
begin
asignanumeros;
for i := 1 to 3 - 1 do
for k := i + 1 to 3 do
if (dato[i] < dato[k]) then
begin
can := dato[k];
dato[k] := dato[i];
dato[i] := can;
end;
end;


begin
clrscr;
comprueva;
if (dato[1] + dato[2]) > dato[3] then
triangulo := true
else
triangulo := false;
if (triangulo = true) and ((dato[1] = dato[2]) and
(dato[2] = dato[3])) then
equilatero := true
else
equilatero := false;
if (triangulo = true) and ((dato[1] = dato[2]) or (dato[2] = dato[3]) or
(dato[1] = dato[3])) then
isosceles := true
else
isosceles := false;
if (triangulo = true) and ((dato[1] <> dato[2]) or (dato[1] <> dato[3]) or
(dato[2] <> dato[3])) then
escaleno := true
else
escaleno := false;
clrscr;
textcolor(15);
writeln(' Los Valores Entrados Son ');
writeln(dato[1]:8:2,' ',dato[2]:8:2,' ',dato[3]:8:2);
writeln;
writeln(' Triangulo',' ','Equilatero',' ','Isosceles',' ','Escaleno');
writeln(' ',triangulo,' ',equilatero,' ',isosceles,
' ',escaleno);
repeat until keypressed;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar