Aplicações Informáticas

Procedimentos

Program Pzim ;

var op, resp :char;

   procedure perimetro;

   const pi=3.14;

   var peri, raio :real;

   begin 

   writeln('introduza o raio da circunferencia');

   readln(raio);

   peri:=raio*pi;

   writeln('O perimetro é', peri:8:2);

   end;

   

   procedure area;

   const pi=3.14;

   var area, raio: real;

   begin

   writeln('Introduza o raio da circunferencia');

   readln(raio);

   area:=(raio*raio)*pi;

   writeln('A area é', area:8:2);

   end;

 begin  

 repeat

   Writeln('Prima a tecla 1 para a área ou 2 para o perimetro');

   Read(op);

   Case op of

    '1': area;

    '2': perimetro;

    end;

   Writeln('quer continuar? S/N?');

   readln(resp);

   until resp='n';

End.