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

Exercice 1c

program Ex7_fromto;
function more (ligne: integer): integer;
begin
if ligne > 9 then
begin
readln;
more := 1;
end
else
more := ligne + 1;
end;
{ Fin de 'more' }

procedure fromtomore (n, p, m: integer);
begin
if n <= p then
begin
writeln(n : 0);
fromtomore(n + 1, p, more(m));
end;
end;
{ Fin de 'FromToMore' }

begin
writeln('Exercice: 1 c TD7 www.Software-DS.com');
writeln;
fromtomore(5, 75, 1);
writeln;
writeln('©2001 All Rights Reserved to www.Software-DS.com');
{ ©2001 All Rights Reserved to http://www.Software-DS.com 20/11/01 }
end.





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

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