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
EXERCÍCIOS
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.
EXERCÍCIOS
2) Faça um programa que receba três notas, calcule e mostre a média aritmética
entre elas.
1ª Solução
2ª Solução
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.
ATENÇÃO – SITUAÇÃO TIPO DE DADOS
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.
EXERCÍCIOS
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
2ª Solução
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.