EXERCICIO LOGICA E PROGRAMAÇÃO

EXERCÍCIO DE REVISÃO I

1- Faça um programa que receba o ano de nascimento de uma pessoa e o ano atual, calcule e mostre:
a) A idade dessa pessoa;
b) Quantos anos ela terá em 2050 program idade; uses crt; var idade, resultado, anonascimento, anoatual : integer;

begin clrscr; writeln('Digite o ano de nascimento: '); readln(anonascimento);

writeln('Digite o ano atual: '); readln(anoatual); idade:= anoatual-anonascimento ; writeln ('A sua idade é de: ',idade);

resultado:= 2050 - anonascimento ; writeln ('A sua idade em 2050 é de:',resultado); readln; end.

2- Um trabalhador recebeu seu salário e o depositou em sua conta bancária. Esse trabalhador emitiu dois cheques e agora deseja saber seu saldo atual. Sabe-se que cada operação bancária de retirada paga CPMF de 0,38% e o saldo inicial da conta está zerado. program Cheques; uses crt; var salario, cheque1, cheque2, cpmf1, cpmf2, saldo : real;

begin clrscr; writeln('Informe seu salario: '); readln(salario); writeln('valor do cheque 01: '); readln(cheque1); writeln('valor do cheque 02: '); readln(cheque2); cpmf1:= cheque1 * 0.0038; cpmf2:= cheque2 * 0.0038; saldo:= salario-cheque1-cheque2-cpmf1-cpmf2 ; writeln ('Seu saldo é de: ',saldo);

readln; end. 3- Faça um programa que receba a altura e o peso de uma pessoa. De acordo com a tabela a seguir, verifique e mostre a classificação dessa pessoa.
Altura
Peso

Até 60
Entre 60 e 90
Acima de 90
Menores 1,20
A
D
G
De 1,20 a 1,70
B
E
H
Maiores 1,70
C
F
I
4- Faça um algoritmo que receba o nome e um código de estado civil de uma pessoa e escreva o valor correspondente.
(Solteiro = S; Casado = C; Divorciado = D; Viúvo = V; Outros)
5- Faça um programa que resolva equações do 2 grau: