Pascal/Turbo Pascal - Calcular el area de un triangulo

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 clara

No 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 clara

No 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

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

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

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

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

0

Comentar

RE: calcular los lados de un triangulo en pascal ayuda

Publicado por ramon (2158 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

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

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

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

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

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

0

Comentar