Exercícios programação em pascal
1. Dada uma seqüência de números inteiros não-nulos, seguida por 0,
imprimir seus quadrados.
2. Resposta:
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.
2. Dados um inteiro x e um inteiro não-negativo n, calcular x n
.
Resposta:
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.
3.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
