Exercício 14 Funções e Procedimentos - Pascal

14) Crie um programa que receba o valor do raio de uma circunferência. Chame um procedimento para determinar a área da circunferência. Ao final, mostre o resultado.

Program Fun14;
const pi=2.14;
var  
 raio:real; 

function area(r:real):real; 
var raioX2:real;
 Begin        
    raioX2:=r*r;
    area:=raioX2*pi;
 End;
 
{Main} 
 Begin
  Writeln('AREA DA CIRCUNFERENCIA');      
  Write('Informe Raio  : ');
  readln(raio);   
  Writeln('Area: ',area(raio):0:2);        
  Writeln('            by Marcus Vinicius');       
 End.

Categories: Pascal , Programação