Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  programa geometria sara
Language: PASCAL
Code:
program geometria;
uses crt;
var L:real;
    P: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_rectangulo(comp:real;larg:real):real;
   begin
        perimetro_rectangulo:=2*comp+2*larg;
    end;
function area_rectangulo(comp:larg;larg:real):real;
   begin
        area_rectangulo:=comp*larg;
    end;
function perimetro_circunferencia(raio:real):real; 
   begin
        perimetro_circunferencia:=2*3.14*raio;
    end;
function area_circunferencia (raio:real):real;
   begin
        area_circunferencia:=3.14*raio*raio;
    end;
 
   begin
       write('lado:');
       readln(L);
       p:=perimetro_quadrado(L);
       writeln('o perimetro do quadrado e'),P);
    end;
   var v1,v2:integer;
   procedure troca (var n1:integer,var n2:integer);
       var T:integer;
    begin
        t:=n1;
        n1:=n2;
        n2:=t;
     end;
    begin
        write('digite um nº:');
        readln(v1);
        write('digite outro nº:');
        readln(v2);
        troca(v1,v2);
     end.
       
          
          
          
          
          
          
Comments: