260 likes | 355 Views
Programação e Estrutura de Dados. Prof. : Flavio Bellotti. Outros tipos de unidades: dos , graph , windos. Identificadores ou Variáveis. Palavras Reservadas. Tipos de palavras mais utilizadas em Pascal. E X E R C . E X E R C Í C I O S. E X E R C Í C I O S.
E N D
Programação e Estrutura de Dados Prof. : Flavio Bellotti
E X E R C E X E R C Í C I O S E X E R C Í C I O S E X E R C Í C I O S E X E R C Í C I O S E X E R C Í C I O S E X E R C
E X E R C Í C I O S 1) Faça um programa que receba quatro números inteiros, calcule e mostre a soma destes números.
1ª Solução em Pascal – EX1 PROGRAM EX1; USES CRT; VAR n1, n2, n3, n4, soma: INTEGER; BEGIN CLRSCR; READLN(n1, n2, n3, n4); soma := n1 + n2 + n3 + n4; WRITELN(soma); READLN; END.
2ª Solução em Pascal – EX1 PROGRAM EX1; USES CRT; VAR n1, n2, n3, n4, soma: INTEGER; BEGIN CLRSCR; WRITELN('Digite quatro números'); READLN(n1, n2, n3, n4); soma := n1 + n2 + n3 + n4; WRITELN('Resultado da soma = ',soma); READLN; END.
1ª Solução E X E R C Í C I O S 2) Faça um programa que receba três notas, calcule e mostre a média aritmética entre elas.
1ª Solução em Pascal – EX2 PROGRAM EX2; USES CRT; VAR nota1, nota2, nota3, media: REAL; BEGIN CLRSCR; READLN(nota1, nota2, nota3); media := (nota1 + nota2 + nota3)/3; WRITELN(media:4:2); READLN; END.
2ª Solução em Pascal – EX2 PROGRAM EX2; USES CRT; VAR nota1, nota2, nota3, soma, media: REAL; BEGIN CLRSCR; WRITELN('Digite as três notas'); READLN(nota1, nota2, nota3); soma := (nota1 + nota2 + nota3); media := soma/3; WRITELN(media:4:2); READLN; END.
3ª Solução em Pascal – EX2 PROGRAM EX2; USES CRT; VAR nota1, nota2, nota3, media: REAL; BEGIN CLRSCR; WRITELN('Digite a primeira nota'); READLN(nota1); WRITELN('Digite a segunda nota'); READLN(nota2); WRITELN('Digite a terceira nota'); READLN(nota3); media := (nota1 + nota2 + nota3)/3; WRITELN('M‚dia = ',media:4:2); READLN; END.
1ª Solução E X E R C Í C I O S 3) Faça um programa que receba três notas e seus respectivos pesos, calcule e mostre a média ponderada dessas notas.
1ª Solução em Pascal – EX3 PROGRAM EX3; USES CRT; VAR nota1, nota2, nota3, peso1, peso2, peso3, media: REAL; BEGIN CLRSCR; READLN(nota1, nota2, nota3, peso1, peso2, peso3); media := (nota1 * peso1 + nota2 * peso2 + nota3 * peso3)/(peso1 + peso2 + peso3); WRITELN(media:5:2); READLN; END.
2ª Solução em Pascal – EX3 PROGRAM EX3; USES CRT; VAR nota1, nota2, nota3, peso1, peso2, peso3: REAL; soma1, soma2, soma3, total, media: REAL; BEGIN CLRSCR; WRITELN('Digite as três notas'); READLN(nota1, nota2, nota3); WRITELN('Digite os três pesos'); READLN(peso1, peso2, peso3); soma1:=nota1 * peso1; soma2:=nota2 * peso2; soma3:=nota3 * peso3; total:=peso1 + peso2 + peso3; media := (soma1 + soma2 + soma3)/total; WRITELN('M‚dia Ponderada = ',media:5:2); READLN; END.
3ª Solução em Pascal – EX3 PROGRAM EX3; USES CRT; VAR nota1, nota2, nota3, peso1, peso2, peso3: REAL; soma1, soma2, soma3, total, media: REAL; BEGIN CLRSCR; WRITELN('Digite a 1¦ nota'); READLN(nota1); WRITELN('Digite o peso da 1¦ nota'); READLN(peso1); WRITELN('Digite a 2¦ nota'); READLN(nota2); WRITELN('Digite o peso da 2¦ nota'); READLN(peso2); WRITELN('Digite a 3¦ nota'); READLN(nota3); WRITELN('Digite o peso da 3¦ nota'); READLN(peso3); soma1:=nota1 * peso1; soma2:=nota2 * peso2; soma3:=nota3 * peso3; total:=peso1 + peso2 + peso3; media := (soma1 + soma2 + soma3)/total; WRITELN('M‚dia Ponderada = ', media:5:2); READLN; END.