trabalho de matemática

Linguagem de Programação – 1

Solução – 1ª Lista de Exercícios
8. Faça um programa que receba quatro números inteiros, calcule e mostre a soma desses números.
PROGRAM EX_8;
VAR
A, B, C, D : INTEGER;
BEGIN
WRITELN('Digite quatro n£meros inteiros');
READLN(A,B,C,D);
WRITELN('A soma dos quatro n£meros ‚: ',A+B+C+D);
READLN;
END.

9. Faça um programa que receba três notas, calcule e mostre a média aritmética entre elas. PROGRAM EX_9;
VAR
N1, N2, N3 : REAL;
BEGIN
WRITELN('Digite trˆs notas');
READLN(N1,N2,N3);
WRITELN('A m‚dia aritm‚tica entre elas ‚: ',(N1+N2+N3)/3:0:1);
READLN;
END.

10. Faça um programa que receba três notas e seus respectivos pesos, calcule e mostre a média ponderada dessas notas.
PROGRAM EX_10;
VAR
N1, N2, N3 : REAL;
P1, P2, P3 : INTEGER;
BEGIN
WRITELN('Digite trˆs notas');
READLN(N1, N2, N3);
WRITELN('Digite trˆs pesos');
READLN(P1, P2, P3);
WRITELN('A m‚dia ponderada ‚: ',
(N1*P1+N2*P2+N3*P3)/(P1+P2+P3):0:1);
READLN;
END.

11. Faça um programa que receba o salário de um funcionário, calcule e mostre o novo salário, sabendo-se que este sofreu um aumento de 25%.
PROGRAM EX_11;
VAR
SAL : REAL;
BEGIN
WRITELN('Digite o sal rio do funcin rio');
READLN(SAL);
WRITELN('O sal rio reajustado ‚: ',SAL*1.25:0:2);
READLN;
END.

12. Faça um programa que receba o salário de um funcionário e o percentual de aumento, calcule e mostre o valor do aumento e o novo salário.
PROGRAM EX_12;
VAR
SAL, POR : REAL;
BEGIN
WRITELN('Digite o sal rio do funcion rio'); http://erinaldosn.wordpress.com 2 – Lista de Exercícios
READLN(SAL);
WRITELN('Digite o percentual de aumento');
READLN(POR);
WRITELN('O novo sal rio ‚: ',SAL*(1+POR/100):0:2);
READLN;
END.

13. Faça um programa que receba o salário-base de um funcionário, calcule e mostre o salário a receber, sabendo-se que esse funcionário tem gratificação de 5% sobre o salário-base e paga imposto de 11% sobre o salário-base.
PROGRAM EX_13;
VAR
SAL :