fork download
copy 
  1. program areasperimetro;
  2. uses crt;
  3. var //declarando variables
  4.  a,b,L,R, base,altura: integer;
  5.  PR, Ahelado,phelado,AR,pc,ac,p1 ,pci,aci,pT,aT:real;
  6.  
  7. begin
  8.   clrscr;
  9.   WriteLn('Calculo Area y P del Rectsngulo');
  10.   WriteLn('ingrese el lado A');
  11.   readln(a);
  12.   WriteLn('ingrese el lado B');
  13.   readln(b);
  14.   PR := 2*a+2*b;
  15.   AR:= a*b;
  16.  
  17.  
  18.  
  19.   //salida 
  20.  
  21.   writeln('Rectangulo');
  22.   WriteLn('el perimetro es ',PR,'cm');
  23.   WriteLn('el area es ',AR,'cc');
  24.   readln();
  25.   //nuevo ejercicio
  26.   clrscr;
  27.   WriteLn('Calculo Area y P del Cuadrado');
  28.   WriteLn('ingrese el lado L');
  29.   readln(L);
  30.   pc:=4*L;
  31.   ac:=L*L;
  32.  
  33.   writeln('cuadrado');
  34.   WriteLn('el perimetro es ',pc,'cm');
  35.   WriteLn('el area es ',ac,'cc');
  36.  
  37.   readln();
  38.   //Circulo
  39.   //pi:=3,1416;//variables constante
  40.   clrscr;
  41.   WriteLn('Circulo');
  42.   WriteLn('ingrese radio');
  43.   readln(R);
  44.   pci:=2*R*3.14;
  45.   aci:=3.14*R*R;
  46.   WriteLn('area circunfernecia', aci:5:2);
  47.   WriteLn('perimetro',pci);
  48.   readln();
  49.   //triangulo
  50.   WriteLn('triangulo');
  51.   WriteLn('ingrese base');
  52.   readln(base);
  53.   writeLn('ingrese altura');
  54.   readln(altura);
  55.   aT:=(base*altura)/2;
  56.   pT:=base+base+base;
  57.   writeln('el area es ',aT:5:2);
  58.   writeln('el perimetro es', pT);
  59.   readln();
  60.  
  61.   Ahelado:=(aci/2)+aT;
  62.   writeln('el area del helado es',Ahelado);
  63.  
  64.   phelado:=(pci/2)+base+base;
  65.  
  66.   writeln('el perimetro del helado es',phelado);
  67.   readln();
  68.  
  69.  
  70.  
  71.  
  72. end.
Success #stdin #stdout 0s 5308KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Calculo Area y P del Rectsngulo
ingrese el lado A
ingrese el lado B
Rectangulo
el perimetro es  0.0000000000000000E+000cm
el area es  0.0000000000000000E+000cc
Calculo Area y P del Cuadrado
ingrese el lado L
cuadrado
el perimetro es  0.0000000000000000E+000cm
el area es  0.0000000000000000E+000cc
Circulo
ingrese radio
area circunfernecia 0.00
perimetro 0.0000000000000000E+000
triangulo
ingrese base
ingrese altura
el area es  0.00
el perimetro es 0.0000000000000000E+000
el area del helado es 0.0000000000000000E+000
el perimetro del helado es 0.0000000000000000E+000
https://ideone.com/zFGZYr
language:
Pascal (fpc 3.0.4)
created:
9 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!