program affich_more;
function more (ligne: integer): integer;
{ permet de
creer une pause lorsque ligne>4 ici dans notre exemple
}
{ on a une pause tous les 5 affichages. }
begin
if ligne > 4 then
begin
readln;
more := 1;
end
else
more := ligne + 1;
end; { Fin de
'more' }
procedure affichmore (n, m: integer);
{ Affiche les
entiers de n a 1 }
begin
if n > 0 then
begin
writeln(n : 0);
affichmore(n - 1, more(m));
end;
end; { Fin de
'affichmore' }
begin {
Début du programme principal }
writeln('Exercice 1 a TD7
http://www.Software-DS.com');
affichmore(12, 1);
readln;
{ ©2001 All
Rights Reserved to http://www.Software-DS.com
20/11/01 }
end.
|