PASCAL

Programação de Computadores I

Prof. Pedro Manoel Silveira

EXEMPLOS DE PROGRAMAS PASCAL
Exemplo 1.

Este programa saúda o mundo, imprimindo Hello world! no dispositivo de saída. program dizalo ; begin writeln ('Hello world!') end. Este é um exemplo extremamente simples. O conjunto de comandos do programa, formado neste caso por apenas um writeln, aparece entre begin e end. A execução do programa acima provocaria a impressão da mensagem
Hello world!
Exemplo 2.

O programa ilustra o uso dos operadores / e div. program testdiv ; var v1, v2 : integer ; begin write ('Entre com dois numeros inteiros: '); readln (v1, v2); writeln ('A expressao ', v1:1, ' / ', v2:1,
' vale ', v1 / v2 :1:2 ) ; writeln ('A expressao ', v1:1, ' DIV ', v2:1,
' vale ', v1 div v2 ) end. (* testdiv *)

Veja agora alguns exemplos de sua execução.
Entre com dois numeros inteiros: 0 3 ↵
A expressao 0 / 3 vale 0.00
A expressao 0 DIV 3 vale 0
Entre com dois numeros inteiros: 1 3
A expressao 1 / 3 vale 0.33
A expressao 1 DIV 3 vale 0
Entre com dois numeros inteiros: 2 3
A expressao 2 / 3 vale 0.67
A expressao 2 DIV 3 vale 0
Entre com dois numeros inteiros: 6 3
A expressao 6 / 3 vale 2.00
A expressao 6 DIV 3 vale 2

Embora neste exemplo tenhamos usado apenas números inteiros, o operador / é capaz de operar com inteiros e reais.

Exemplo 3.

Este programa lê o número de um aluno e suas três notas, calcula a média das notas, ponderada pelos pesos 2,3,4 respectivamente, e imprime o número do aluno, suas três notas e a média.
1

Programação de Computadores I

Prof. Pedro Manoel Silveira

program Notas ; var numal : integer ; n1, n2, n3, media : real ; begin writeln
('Digite o numero do aluno seguido das tres notas') ; readln ( numal, n1, n2, n3 ) ; media := ( 2*n1 + 3*n2 + 4*n3 ) / 9 ; writeln ('Aluno: ', numal:4) ; writeln ('Notas: ', n1:6:2, n2:6:2, n3:6:2) ; writeln ('Media: ', media:6:2 ) ; end. Veja abaixo um exemplo de