Salut à tous !
J'ai un petit problème que je n'arrive pas à résoudre; j’espère que vous m’aiderez ou guiderez dans pour le bon chemin ..
Bon mon problème c'est changer les boucles d'un programme que je déjà fait (avec Turbo Pascal 7) de FOR en WHILE .. (en gardant la même fonction et résultat du programme).
Bon voilà le programme, j’attends vos réponses le plus tôt possible ...
MERCI d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 program tabdever; uses crt; var a,b,c:boolean; begin clrscr; writeln('+++++++++++++++++++++++++++++++++++++++++++++++'); writeln('+ a b c not a or b and not c +'); writeln('+++++++++++++++++++++++++++++++++++++++++++++++') ; for a:=false to true do begin for b:=false to true do begin for c:=false to true do begin writeln('+',a:7,b:7,c:7,not a or b and not c:7,' +'); end; end; writeln('+++++++++++++++++++++++++++++++++++++++++++++++') ; end; readln; end.
Partager