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

16) Faça uma função que calcule a velocidade média de um piloto recebendo como parâmetro a distancia percorrida em km e o tempo que levou para percorrer (em horas).

Program Fun16;
var  
 tempo,distancia:real; 

function velocidade(dist,temp:real):real; 
 Begin        
    velocidade:=dist/temp;
 End;
 
{Main} 
 Begin
  Writeln('VELOCIDADE MEDIA');      
  Write('Informe Distancia km: ');
  readln(distancia);   
  Write('Informe Tempo: ');
  readln(tempo);   
  Writeln('Velocidade: ',velocidade(distancia,tempo):0:2);        
  Writeln('            by Marcus Vinicius');       
 End.

Categories: Pascal , Programação