Exercicio função e procedimento

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;