Accueil     Soft. MacOSX     Soft. MacOS/PC     PHP     Python     ROMS GBA     TP d'info     DBZ-GT     Martingales     Galeries     Liens     @  

Exercice 1a

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.

execution programme




Haut de la page - Page précédente - Page générée en 0.01916 sec.
Recherche personnalisée
 

1843268 visiteurs.   ©2001-2023 All Rights Reserved to Software-DS.com
Made with a mac  
Confidentialité