martes, 8 de abril de 2014

Bucles

Bucle FOR
write ('de que numero quieres calcular su tabla');
read (num);
for i:=1 to 10 do
begin
res:=num*i;
write (num,' x ',i,' = ',res);
end;

Bucle WHILE
write ('de que numero quieres calcular su tabla');
read (num);
i:=1;
while i<=10 do
begin
res:=num*i;
write (num,' x ',i,' = ',res);
i:=i+1;
end;

Bucle REPEAT
write ('de que numero quieres calcular su tabla');
read (num);
i:=1;
repeat
res:=num*i;
write (num,' x ',i,' = ',res);
i:=i+1;
until i>10;

Repetir un programa
Repeat
       {programa}
       write('Desea ejecutar de nuevo el programa? (S/N)');
       b:=readkey;
until b in ['N','n'];