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 perímetro_retângulo(comp:real,larg:real):real;
 begin
 perímetro_retangulo:=2*comp + 2*larg;
 end;
function área_retângulo(comp:real,larg:real):real;
 begin
 área retângulo:=comp*larg;
 end
function perímetro_circulo(raio:real):real;
 begin
 perímetro_circulo:=2*3.14*raio;
 end;
function área circulo(raio:real):real;
 begin
 área 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: