eminem

Comandos de Repetição
WHILE
Sintaxe: while () do begin ; end
REPEAT
Sintaxe: repeat ; until ();
FOR
Sintaxe: for(:= to ) do begin ; end OBS.: "TO" incrementa(+1) um-a-um e "DOWNTO" decrementa(-1) um-a-um. Exercícios
Tente fazer os exercícios, depois veja uma das soluções mais abaixo na página.
1) Construir um programa em Pascal que calcule a média de vários valores inteiros positivos, lidos externamente. O final da leitura acontecerá quando for lido um valor negativo.
2) Escrever um programa que leia uma quantidade desconhecida de números e conte quantos deles estão nos seguintes intervalos: (0 a 25), (26 a 50), (51 a 75), (76 a 100). A entrada de dados deve terminar quando for lido um número negativo.
3) Escrever um programa que leia um número N que indica quantos valores devem ser lidos a seguir. Para cada número lido mostre, como resultado, o valor lido e o fatorial deste valor.
4) Escreva um programa que lê dois números N1 e N2. Como resultado, calcule quantos números ímpares existem entre N1 e N2. Supor que N1 e N2 não entram no cálculo.
5) Fulano tem 1,50 metros e cresce 2 cm por ano, enquanto Ciclano tem 1,10 metros e cresce 3 cm por ano. Construa um programa que calcule e imprima quantos anos serão necessários para que Ciclano seja maior que Fulano.
Resolução
1)
PROGRAM MEDIA;
Var
valor,cont:integer; soma:real;
Begin
soma:=0; cont:=0; writeln('Digite um valor positivo(negativo pra terminar)'); read(valor); while(valor>=0)do begin soma:=soma+valor; cont:=cont+1; writeln('Digite um valor positivo(neg.para terminar)'); read(valor); end; if cont>0 then writeln('Media=',soma/cont) else writeln('Nenhum valor