Pascal/Turbo Pascal - Calcular el area de un triangulo

   
Vista:

Calcular el area de un triangulo

Publicado por Miguel Hernandez (1 intervención) el 07/12/2008 16:00:56
porfavor para quien pueda ayudarme necesito escrivir un programa en pascal que calcule el area de un triangulo y diga si es un triangulo isoceles, equilatero o escaleno porfavor si me pueden ayudar se los agradesco de antemano.
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

RE:Calcular el area de un triangulo

Publicado por Alvaro (1 intervención) el 07/12/2008 17:36:33
El programa es bastante facilito de hacer, aqui esta completo, espero que lo entiendas todo:

program triangulos;
var
altura,base,a,b,c:integer;
area:real;
begin
write('Introduzca la base, en metros, del triangulo->');
read(base);
write('Introduzca la altura, en metros, del triangulo.>');
read(altura);
write('Introduzca el primer lado, en metros, del triangulo->');
read(a);
write('Introduzca el segundo lado, en metros, del triangulo.>');
read(b);
write('Introduzca el tercer lado, en metros, del triangulo->');
read(c);
{Calculo del area}
area:=base*altura/2;
writeln('El area del triangulo es:',area:4:2,'metros cuadrados');
{Identificacion del tipo de triangulo}
if (a=b) and (b=c) then
writeln('El triangulo es equilatero')
else if ((a=b)and(b<>c))or((b=c)and(a<>c)) then
writeln('El triangulo es isosceles')
else
writeln('El triangulo es escaleno');
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

RE: triangulo de pascal hecho en pascal

Publicado por kevin (1 intervención) el 21/09/2009 00:10:50
necesito un triangulo de pascal hecho en turbo pascal utilizando procedimientos
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

RE: triangulo de pascal hecho en pascal

Publicado por marines salas  (3 intervenciones) el 14/11/2009 20:02:00
el area de un triangulo cuyo lados son a,b,c se puede calcular por la formula a: rais de p(p-a) (p-b)(p-c)donde P: a+b+c/2 escriba un programa que permita calcular 2 dichas areas
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

RE: triangulo de pascal hecho en pascal

Publicado por bayron hernandez ramirex (2 intervenciones) el 03/12/2009 05:09:03
Hola porfabor me podrian pasar el triangulo de pascal
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

RE: triangulo de pascal hecho en pascal

Publicado por bayron hernandez ramirex (2 intervenciones) el 03/12/2009 05:12:10
Hola porfabor me podrian pasar el triangulo de pascal
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

RE: calcular los lados de un triangulo en pascal ayuda

Publicado por yazmin escobar (1 intervención) el 24/09/2015 01:56:49
necesito ayuda me enseñan pascal pero no comprendo mucho me dejaron hacer que escriba un programa que lea los lados de un triangulo y que luego determine el triangulo segun sus lados
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

RE: calcular los lados de un triangulo en pascal ayuda

Publicado por ramon (2072 intervenciones) el 25/09/2015 17:07:25
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
{Espero esto pueda servirte}
 
 program triangulo;
 uses
    crt;
 type
    string12 = string[12];
 const
    tipo : array[1..3] of string12 = ('Equilatero','Isosceles','Escaleno');
 
  var
    lado1, lado2, lado3 : real;
 
 
 
    procedure entra_valores_lados;
    begin
       write('   Entre Lado 1 : ');readln(lado1);
       write('   Entre Lado 2 : ');readln(lado2);
       write('   Entre Lado 3 : ');readln(lado3);
    end;
 
 
   function tipotriangulo : string12;
   begin
      tipotriangulo := ' ';
      if (lado1 <> 0) and (lado2 <> 0) and (lado3 <> 0) then
      begin
        if (lado1 = lado2) and (lado1 = lado3) then
        begin
        tipotriangulo := tipo[1];
        exit;
        end;
        if (lado1 = lado2) or (lado1 = lado3) or (lado2 = lado3) then
        begin
           tipotriangulo := tipo[2];
           exit;
        end;
        if (lado1 <> lado2) and (lado1 <> lado3) and (lado2 <> lado3) then
        begin
        tipotriangulo := tipo[3];
        exit;
        end;
      end;
   end;
 
 
   begin
      clrscr;
      entra_valores_lados;
      writeln(tipotriangulo);
      readkey;
   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

RE:Calcular el area de un triangulo

Publicado por ana (1 intervención) el 02/06/2010 23:46:27
El programa es bastante facilito de hacer, aqui esta completo, espero que lo entiendas todo:

program triangulos;
var
altura,base,a,b,c:integer;
area:real;
begin
write('Introduzca la base, en metros, del triangulo->');
read(base);
write('Introduzca la altura, en metros, del triangulo.>');
read(altura);
write('Introduzca el primer lado, en metros, del triangulo->');
read(a);
write('Introduzca el segundo lado, en metros, del triangulo.>');
read(b);
write('Introduzca el tercer lado, en metros, del triangulo->');
read(c);
{Calculo del area}
area:=base*altura/2;
writeln('El area del triangulo es:',area:4:2,'metros cuadrados');
{Identificacion del tipo de triangulo}
if (a=b) and (b=c) then
writeln('El triangulo es equilatero')
else if ((a=b)and(b<>c))or((b=c)and(a<>c)) then
writeln('El triangulo es isosceles')
else
writeln('El triangulo es escaleno');
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

RE:Calcular el area de un triangulo

Publicado por marco (1 intervención) el 02/04/2012 22:08:22
Hola..! introduje todo en pascal pero me dice que hay problemas de sintaxis en los paréntesis. ¿Estas seguro de que esta bien?
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

RE:Calcular el area de un triangulo

Publicado por EDI CARRILLO RICARDEZ (1 intervención) el 27/03/2009 00:59:33
PROGRAMA PASCAL QUE CALCULE EL AREA DE UN TRIANGULO
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

RE:Calcular el area de un triangulo isoce

Publicado por jairo bernardo (1 intervención) el 23/06/2009 03:41:50
necesito saver el area de un triangulo isoceles y un triangulo escaleno
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

RE:Calcular el area de un triangulo

Publicado por marines salas  (3 intervenciones) el 14/11/2009 20:13:04
el area de triangulo cuyo lados son a,b,c se deduce calcular por formulas a: riis de p(p-a) (p-b) (p-c ) donde p: a+b+c /2 escriba un programa que permita calcular 2 dichas areas
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