Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  funcao geometria
Language: PASCAL
Code:
program geometria;
uses crt;
var lq:real;
pq:real;
aq:real;
cr:real;
lr:real;
pr:real;
ar:real;
rc:real;
pc:real;
ac:real;
function perimetro_quadrado(lado:real):real;
 begin
 perimetro_quadrado:=4*lado;
 end;
function area_quadrado(lado:real):real;
 begin
 area_quadrado:=lado*lado;
 end;
function perimetro_retangulo(comp:real;larg:real):real;
 begin
 perimetro_retangulo:=2*comp + 2*larg;
 end;
function area_retangulo(comp:real;larg:real):real;
 begin
 area_retangulo:=comp*larg;
 end;
function perimetro_circulo(raio:real):real;
 begin
 perimetro_circulo:=2*3.14*raio;
 end;
function area circulo(raio:real):real;
 begin
 area circulo:=3.14*raio*raio;
 end;
begin
 write ('lado:');
 readln(l);
p:=perimetro_quadrado(l);
writeln ('perimetro do quadrado e ',p:5:2);
readln;
end.
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
Comments: