Pascal

AULA 4
1. Elaborar um algoritmo (Descrição Narrativa, Fluxograma e Pseudocódigo) que calculi e mostre a média aritmética de duas notas de um aluno.

Program Pzim ; var n1,n2:integer; m:real; Begin write('Nota 1'); readln (n1); write('Nota 2'); readln(n2); m:= (n1+n2)/2; write('Sua média é:',m); End.

2. Elaborar um algoritmo (Descrição Narrativa, Fluxograma e Pseudocódigo) que calcule o custo de um bolo de aniversário, sabendo que o preço do quilo de bolo é de R$22,00. Program BoloAniver; Var Custo, Peso: Real; begin Custo:=0; write ('Digite o peso total do bolo de aniversário:'); read (Peso); Custo:= Peso * 22; write ('O custo total do bolo é : ', Custo:0:2); end.

3. Elaborar um algoritmo (Descrição Narrativa, Fluxograma e Pseudocódigo) que calculi o número de dias existentes entre dois anos digitados pelo usuário. A entrada do ano deve ser com 4 dígitos: AAAA

Program Pzim ; var a1,a2,dias:integer; begin write ('Digite o ano: '); readln (a1); write ('Digite o ano: '); readln (a2); dias:=(a2*365)-(a1*365); write ('Entre ',a1,' e ',a2,' existem ',dias ,' dias.'); End.

AULA 5
1) Faça um algoritmo (Descrição Narrativa, Fluxograma e Pseudocódigo) 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 Pzim ; var s,aumento:integer; vaumento,ns:real; begin write('Digite seu salário: '); readln(s); write('Digite a porcentagem de aumento: '); readln(aumento); vaumento:= (s*aumento)/100; ns:= (s+vaumento); writeln ('Seu aumento é de: ',vaumento); writeln ('Seu novo salário é: ',ns); End.

2) Faça um algoritmo (Descrição Narrativa, Fluxograma e Pseudocódigo) que calcule e mostre a

área de um circulo. Sabe-se que: Área = .R2.
Program Pzim ; var pi,r:real; a:real; begin write('Digite o valor do raio: '); read(r); pi:=3.14; a:=(pi)*r*r; write('Area do circulo = ',a); End.

3) Faça um algoritmo (Fluxograma e Pseudocódigo) que receba o ano de nascimento de uma pessoa e o ano