Program Ex1

Program ex1 ; var n1,n2:real; procedure soma(n1,n2:real); var soma:real; Begin soma:=n1+n2; writeln('o resultado é:',soma); End; begin writeln ('digite o primeiro numero.'); readln(n1); writeln('digite o segundo numero'); readln(n2); soma(n1,n2); end.

program ex2; var n1, n2: real; Procedure soma (n1,n2:real); var soma:real;

begin soma:=n1+n2; writeln('o resultado da soma é',soma); end; Procedure sub (n1,n2:real); var sub:real; begin sub:=n1-n2; writeln('o resultado da subtração é',sub); end; Procedure mults (n1,n2:real); var mults:real; begin mults:=n1*n2; writeln('o resultado da multiplicação é',mults); end; Procedure divs (n1,n2:real); var divs:real; begin divs:=n1/n2; writeln('o resultado da divisão é',divs); end;

Begin writeln('Digite o primeiro número: '); readln(n1); writeln('Digite o segundo número: '); readln(n2); soma(n1,n2); sub(n1,n2); mults(n1,n2); divs(n1,n2); End.

Program ex3 ; var num1,num2 : real; Procedure media (n1,n2:real); var media:real; Begin media:=(n1+n2/2); writeln ('A media é : ', media); End;
Begin
writeln ('Digite a distancia percorrida'); readln (num1); writeln ('Digite o tanto de combústivel gasto'); readln (num2); media(num1,num2);
End.

Program ex4 ; var nome:string; salario,vendas,salariofinal:real; procedure comissao(salario,vendas,salariofinal:real); var comissao:real; Begin comissao:=0.15*vendas; salariofinal:=salario+comissao; clrscr; writeln('nome', nome); writeln('salario',salario:4:2); writeln('salario final(salario+comissão):',salariofinal:4:2); End; begin writeln('Digite o nome do vendedor:');