Pascal/Turbo Pascal - programas en turbo pascal

   
Vista:

programas en turbo pascal

Publicado por josmar peña (1 intervención) el 16/01/2009 18:14:56
hola soy josmar y necesito ayuda con turbo pascal nesecito elaborar 4 programas el primero que calcule el area de un triangulo el segundo que calcule el area de un cuadrado el tercero que calcule el area de un rectangulo y el cuarto que calcule el area de una circunferencia espero que me puedan ayudar gracias.
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:programas en turbo pascal

Publicado por azu (2 intervenciones) el 19/01/2009 20:12:40
calcular el factorial de un numero entero
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

repuesta al area del triangulo

Publicado por gabriel mendonca (6 intervenciones) el 28/01/2009 15:26:01
Dame tu correo para enviarte los programas
ya los tengo echos
solo debes cambiar las variables y la formulas

triangulo: base * altura /2

cuadrado: lado * lado o lado al cuadrado

rectangulo: base * altura

Área del círculo = 3'14 * radio al cuadrado o radio * radio

^
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

para hacer un menu

Publicado por rocio (1 intervención) el 09/06/2009 22:48:32
Program Área Círculo y triangulo;
Uses Crt;
Const
pi = 3.1415927; {declaración de constante}
Var
1:area: real; {área del círculo}
r: Integer; {radio a teclear}
2:base, altura: real;
1,2,resul: real;
operando: Integer;
espera: Integer;
Begin
Clrscr;
Write ('r: ');
ReadLn(r);
area := pi * r * r;
WriteLn('Area: ', area);
BEGIN
base:=9;
altura:=3;
area:=(base * altura) / 2;
ClrScr;

Writeln(‘Que operaciones desea realizar? ‘);
WRITE ('AREA DEL TRIANGULO: '); WRITE (area:9:3);
{:9:3 sirve para dar el formato de salida al número, 9 posiciones y 2 decimales}
Writeln(‘1= area del circulo');
Writeln(‘2= base, altura’);
Readln(operando);
Case operando of
1:
Begin
Resul:= pi * r * r
Writeln(‘total:’ , resul: 3.1416*r*r);
Readln(espera);
End;
2:
Begin
Resul:= (base * altura) / 2;
Writeln(‘total:’ , resul:(9:3)/2);

Readln (espera);

END;
Else
Writeln(‘el numero no estaba en el rango indicado’);
Readln(espra);
End;
End.

que le falta para tener el menu completo
gracias
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:repuesta al area del triangulo

Publicado por dari rubio valencia  (1 intervención) el 15/11/2009 20:48:35
nesesito los diagramas hechos para pasarlos ala compu para que el programa funciones xfavor sii me puedes ayuadar nesesito el de encontrar el are de un triangulo,cuadrado,circulo,rectangulo
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

repuesta al area del triangulo

Publicado por marco marco_rock_y@hotmail.com (1 intervención) el 02/09/2012 21:30:11
pasamelo porfa me urge
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