TP9

Semaine du lundi 8/12

1. Prévoir ce que fait le programme suivant (rédiger votre solution) :

   program boucle;
   	var i:integer;
   begin
   	i:=0;
   	while i<10 do
   		begin
   			writeln(i);
   			i:=i+1;
   		end;
   	readln;
   end.
   

2. Même question avec le programme suivant :

   program boucle2;
   	var i:integer;
   begin
   	i:=3;
   	repeat
   		writeln(i);
   		i:=2*i;
   	until i>60;
   	readln;
   end.
   

3. Quel est le plus petit multiple de 7 qui soit supérieur ou égal à 100 ?
4. Écrire un programme multiples qui affiche tous les multiples de 7 compris entre 100 et 200, en utilisant une boucle while.
5. Même question en utilisant une boucle repeat.
6. Même question en utilisant une boucle for.
7. Soit u(n) la suite définie par récurrence par u(0)=1 et u(n+1)=(u(n)+1)/(2*u(n)+1). Écrire un programme suite qui demande un entier n à l'utilisateur puis qui calcule u(n) à l'aide d'une boucle while.
8. Même question en utilisant une boucle repeat.
9. Même question ne utilisant une boucle for.