Pascal

Exercícios Resolvidos

1. Dada uma seqüência de números inteiros não-nulos, seguida por 0, imprimir seus quadrados.

program CalculaQuadrado; var numero: integer; /* usada para leitura da sequencia */ quadrado: integer; /* guardara o quadrado do numero lido */ begin writeln(''); writeln(' Calculo dos quadrados de uma sequencia de numeros'); writeln(''); write('Entre com uma sequencia de numeros inteiros nao-nulos, seguida por 0: '); read(numero); while (numero 0) do begin quadrado:= numero * numero; writeln('O quadrado do numero ', numero, ': ',quadrado); read(numero) end end. 4. Dados um inteiro x e um inteiro não-negativo n, calcular x n.

program Potencias; var x, n, potencia, contador: integer; begin writeln(''); writeln(' CALCULO DE POTENCIAS'); writeln(''); repeat write('Entre com um numero inteiro e um natural: '); read(x,n); if n < 0 then writeln('O segundo numero deve ser natural!!') until n >= 0; potencia := 1; contador := 0; while(contador n) do begin potencia := potencia * x; contador := contador + 1 end; writeln ('O valor de ', x,' elevado a ', n,': ', potencia) end. 6. Dados o número n de alunos de uma turma de Introdução aos Autômatos a Pilha (MAC 414) e suas notas da primeira prova, determinar a maior e a menor nota obtidas por essa turma (Nota máxima = 100 e nota mínima = 0).

program Notas; var n, Nota, Contador, NotaMaior, NotaMenor: integer; begin writeln ('Entre com o numero de alunos: '); read (n); writeln ('Digite as notas(de 0 a 100) dos alunos: '); Nota := 0; Contador := 0; NotaMaior := 0; NotaMenor := 100; repeat read (Nota); Contador := Contador+1; if (NotaMaior < Nota) then NotaMaior := Nota; if (NotaMenor > Nota) then NotaMenor := Nota until Contador = n; writeln ('A