A Linguagem Pascal

Pascal é a linguagem de programação que iremos utilizar para implementar os nossos algoritmos. Para uma apresentação completa da linguagem Pascal recomenda-se a consulta de Turbo Pascal Programmer's Guide - Borland ou de Turbo Pascal - Guia do Usuário - Steve Wood - McGraw-Hill.

Neste capítulo será apresentada a correspondência entre a linguagem algoritmica e o Pascal. Começaremos por apresentar o programa correspondente ao algoritmo 3.19, e iremos descrevendo os diferentes blocos.

conta;
CONST
Tam = 10;
TYPES
Numeros = ARRAY [1..Tam] OF REAL;
VAR
num: Numeros;
med: REAL;
qt : INTEGER;
PROCEDURE le_nums(VAR t: Numeros);
{ Ainda não definido }
FUNCTION calc_media(t: Numeros): REAL;
VAR
i : INTEGER;
soma, media: REAL;
BEGIN
soma := 0;
FOR i:= 1 TO Tam DO
soma := soma + t[i];
media := soma/Tam;
le_nums := media
END;
FUNCTION conta_maiores(t: Numeros; m:REAL): INTEGER;
{ Ainda não definido }
BEGIN
le_nums(num);
med := calc_media(num);
qt := conta_maiores(num, med);
WRITELN(qt, ' numeros maiores que a media.')
END.

• Cabeçalho;
• Declaração de Constantes (opcional);
• Declaração de Tipos (opcional);
• Declaração de Variáveis (opcional);
• Declaração de Funcões e Procedimentos (opcionais);
• Programa principal (obrigatório).