Exercicio função e procedimento

[Sergio Cavalcante 6]

Um padaria vende pães (R$ 0,12) e broas (R$ 1.50) o programa deve retornar a arrecadação no final do dia, bem como 10% para ser guardado em poupança.

 

program padaria;

var

pao, broa: integer ;

lucro, poup : real ;

 

procedure pVenda(a , b: interger; var c , d: real) ;

begin

c:= a * 0.12 + b* 1.50;

d:= c* 0.10;

end;

 

function fVenda (a, b: integer; var c: real) : real ;

begin

pvenda (a, b , c, fVenda) ;

end;

 

begin

writeln('Digite quantos pãos foram vendidos') ;

readln(pao)

writeln('Digite quantas broas foram vendidas') ;

readl(broa) ;

 

pVenda(pao, broa ,lucro, poup) ;

writeln(procedure') ;

writeln(lucro:0:2,' ', pop:0:2) ;

 

poup :=fVenda (pao , broa, lucro) ;

writeln('fuction');

writeln('lucro:0:2,' ', poup:0:2) ;

 

redln;

 

end

 

 

 

 

 

Faça um programa que retorne a media ponderada de tres notas de um aluno, com peso 2,3,5.

 

program MediaPonderada ;

 

var

n1,n2,n3 ,M : real ;

procedure pMedia(a , b , c : real; var d : real) ;

begin

d:= (a * 2 + b * 3 + c * 5) / 2 + 3 + 5 ;

end;

 

fuction fMedia( a , b , c : real) : real ;

begin

pMedia( a , b , c , fMedia);

end

 

begin

writeln(' Digite a nota 1') ;

readln(n1)

writeln(' Digite a nota 2') ;

readln(n2)

writeln('Digite a nota 3') ;

readln(n3)

 

pMedia (n1 , n2 , n3 , m) ;

writeln ('proceduire');

writeln ('m' :0 : 2) ;

 

m:= fmedia(n1 , n2 , n3 ) ;

writeln ('fuction') ;

writeln (m: 0: 2 ) ;

 

readln;