Un copain m'a demandé si je pouvais lui faire un certain programme, capable, en outre, de calculer des surfaces à partir de nombre de pièces donné à l'exécution du programme. Bref, j'ai fait le code, ça marche... Mais voila: le programme ne fait faire en fait que des calculs de surfaces pour des pièces qui doivent être rectangulaires ! J'aimerai alors avoir un menu, lors de la demande des propriétés de la pièce qui demande quelle est sa forme, pour ensuite aller rediriger la personne au bon endroit du programme (lbl et goto ??) te revenir puis passer à la pièce suivante ...
Savez-vous comment faire sans utiliser trop de lbl et de goto (sachant que les variables "théta",A,B,D,E,I,T,S sont utilisées) ?
P.S. : pour le calcul de surface (des pièces rectangulaires), j'ai utilisé une boucle While, (while I>="théta", I étant l'indice associé avec "A", le nombre de pièces) avec des input pour demander la longueur et la largeur. -> Voir code
Merci de vos réponses !!
Voici le prog' :
Lbl 1
Effvar IEffvar thetaEffvar AEffvar BEffvar S
Menu [...] (surfaces -> SU)
Lbl SU
ClrHome
Imput "nbr de piece(s)",theta
If theta=0:Goto 1
Disp "","Terrasse comprise
Output(6,1,"0:Non 1:Oui
imput C
If C>1 ou C<0:Goto1
If C=1
Then
ClrHome
Disp "Terrasse :","Longueur:
Imput D
Disp "","Largeur:
Imput E
DE -> T
End
While I<theta-C
I+1 -> I
ClrHome
Disp "piece n°
Output(1,9,I
Disp "","Longueur :
Imput D
Disp "","Largeur :
Imput E
S+DE -> S
End
ClrHome
Disp "Surface totale :
Output(2,1,S
Output(2,9,Metres²
Output(4,1,"Terrasse :
Output(5,1,T
Output(5,9,"Metres²
Pause