sábado, 27 de setembro de 2014

Calcular Area Circunferencia.





// Calcular area circunferencia.

program area_circunferencia;
uses crt;
var
  a     :                   real;
  r     :                   real;

begin
  writeln('Digite o Valor do Raio : ');
  readln(r);
  a := (3.14169 * r) *r;
  writeln(' O Valor da Area da Circunferencia : ',r:0:3);
  readkey;
end.
                    

Nenhum comentário:

Postar um comentário

Pascal - Lazarus