Exercice 1b

program ex1_fromto;

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

begin
{ Début du programme principal }
writeln('Exercice: 1 b TD7 (www.Software-DS.com)');
writeln;
fromto(3, 15);
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 générée en 0.00358 sec.
 

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