EXERCICIOS RESOLVIDOS

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'); 2 – Lista de Exercícios

http://erinaldosn.wordpress.com

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 : REAL;

BEGIN

WRITELN('Digite o sal rio do funcion rio: ');

READLN(SAL);

WRITELN('Sal rio l¡quido: ',SAL*(1+0.05-0.11):0:2);

READLN;

END.

14. Faça um programa que recebe o salário-base de um funcionário, calcule e mostre o

seu salário a receber, sabendo-se que esse funcionário tem gratificação de R$ 50,00

e paga imposto de 10% sobre o salário-base.

PROGRAM EX_14;

VAR

SAL : REAL;

BEGIN

WRITELN('Digite o sal rio base do funcion rio: ');

READLN(SAL);

WRITELN('O sal rio l¡quido ‚: ',SAL*(1-0.1)+50:0:2);

READLN;

END.

15. Faça um programa que receba o valor de um depósito e o valor da taxa de juros,

calcule e mostre o valor do rendimento e o valor total depois do rendimento.

PROGRAM EX_15;

VAR

VAL_DEP, VAL_TX : REAL;

BEGIN

WRITE('Digite o valor do dep¢sito: R$ ');

READLN(VAL_DEP);

WRITE('Digite o valor da tax de juros: % ');

READLN(VAL_TX);

WRITELN('O valor do rendimento ‚ de: ',VAL_DEP*VAL_TX/100:0:2);

WRITELN('O valor total ap¢s o rendimento ‚: ',

VAL_DEP*(1+VAL_TX/100):0:2);

READLN;

END.