Pascal/Estrutura de repetição: diferenças entre revisões

m
Revertidas edições por 189.72.152.196 (discussão) para a última versão por Heldergeovane
[edição não verificada][edição não verificada]
m (Revertidas edições por 189.72.152.196 (discussão) para a última versão por Heldergeovane)
Usamos testes lógicos para saber quando parar a repetição, ou seja, estabelecemos uma condição para a repetição continuar, caso contrário o programa ficaria preso na repetição eternamente.
Por exemplo, usando o contador, a cada repetição testamos o número do contador até que ele alcance quantidade desejada, caso o contador atinja a quantidade de vezes que queremos repetir, o loop (repetição) pára.
 
Exemplo: programa para fazer a tabuada de multiplicação do número 7:
program tabuada;
uses CRT;
var
contad:integer;
begin
clrscr;
contad:=0; {iniciamos o contador declarando seu primeiro valor}
while cont<10 do {Enquanto cont<10, condição é testada a cada repetição}
begin
writeln('7 x ',contad,' = ',7*contad);
contad:=contad+1; {incrementamos o contador a cada repetição}
end;
readkey;
end.
 
= Comandos de repetição =
 
Observação: este comando não precisa de begin (início) e end (fim) para demarcar o corpo da repetição.
 
Exemplo:
Faça um programa para pedir um número, em seguida escrever uma tabuada de multiplicação deste número, caso for digitado o número 0, parar o programa.
 
program tabuada;
uses CRT;
var
num:real;
cont:integer;
begin
repeat
clrscr;
write('Digite um número para ver sua tabuada de multiplicação ');
read(num);
cont:=0;
while cont<10 do {temos aqui uma repetição dentro de outra}
begin
writeln(num:4:2,' x ',cont,' = ',(num*cont):6:2);
cont:=cont+1; {a cada repetição o cont aumenta +1}
end;
readkey; {parada para ver o resultado até ser taclado algo}
until num=0; {condição para parar a repetição principal}
clrscr;
write('Foi digitado o número 0! programa encerrado!');
readkey;
end.
 
== for to (para de até) ==
11 788

edições