Exerciciosresolvidos-pascal

Universidade Estadual Vale do Acaraú Curso: Ciências da Matemática Disciplina: Introdução à Computação Prof. Hudson Costa Exercícios resolvidos - PASCAL 1ª Faça um programa que imprima os números de 120 a 300. Program questao01; var c: integer; Begin for c:=120 to 300 do begin write(c, ' '); end; End. 2ª Faça um programa que imprima todos os números de 1 até 100 e a soma deles. Program questao02; var i, soma: integer; Begin soma := 0; for i:= 1 to 100 do begin soma := soma + i; write(i, ' '); end; writeln('===================='); writeln('O somatório é ', soma); End.

3ª Faça um programa que tenha como dados de entrada o nome, a idade e o sexo de 20 pessoas. O programa deve imprimir o nome se a pessoa for do sexo masculino e tiver mais de 21 anos. Program questao03; var i, idade: integer; nome, sexo: string; Begin for i:= 1 to 20 do begin writeln('Digite o nome da pessoa:'); readln(nome); writeln(''); writeln('Digite o sexo da pessoa:'); readln(sexo); writeln('Digite a idade da pessoa:'); readln(idade); if ((sexo = 'M') and (idade >= 21) )then writeln(nome); end; End. 4ª Faça uma programa que leia os limites inferior e superior de um intervalo e imprima todos os números pares no intervalo aberto e seu somatório. Suponha que os dados digitados são para um intervalo crescente. Exemplo: Limite inferior: 3 Limite superior: 12 Número: 3 Saída: 4 6 8 10 Soma: 28 Program questao04; var ini, vf, soma, i: integer; Begin writeln('Digite o valor inicial e o valor final de um intervalo. Pressione ENTER após digitar cada um.'); readln(ini); readln(vf); soma := 0; if (ini mod 2 = 0) then ini := ini + 2 else

ini := ini + 1; vf := vf - 1; i:=ini; while (i maior) then maior := num; if (num < menor) then menor := num; i := i + 1; end; writeln('Maior: ', maior); writeln('Menor: ', menor); End.

6ª Faça um programa que o usuário entre com 20 números e depois seja impressa a soma dos números cujos quadrados são menores do que 225. Program questao06; var a, numero, soma: