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

[edição não verificada][edição não verificada]
 
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é) ==
Utilizador anónimo