VBDOS :
print "Bienvenue dans le programme éducatif que-c'est le mieux"
locate (0,3): input "Combien de couleurs dans un arc-en-ciel ?"; a$
if a$ = "7" or "sept" or "Sept" or "SEPT" then
print "Gagné !"
else
print "Perdu !"
end if
cls
print "Un arc-en-ciel est simpelment dù au phénomène de diffraction de la lumière à travers une goutte d'eau. La lumière entre dans la goutte, et les couleurs qui composent la lumière "blanche" du soleil sont plus ou moins déviées, au final on obtiens un angle de déviation, selon les couleurs, qui est approximativement autour de 160°, c'est pour celà que un arc-en-ciel n'est visible que si on a le soleil dans le dos."
input "Appuyez sur entrée pour une shématisation..."; a$
cls
screen 3 (je crois)
line (10,10)-(50,10)
circle (50,10,10)
color 6
line (50,10)-(10,60)
color 4
line 50,10)-(10,50)
color 2
line 50,10)-(10,40)
color 0
locate (0,0): print "Rayon de lumière solaire"
locate (65,10): "Goutte d'eau"
locate (0;65): "Lumière décomposée et déviée"
system
Voilà, en corrigeant les quelques fautes ça devrai marcher... ;-)
Compatible QuickBasic et QBasic :-p
Linux a un noyau, Windows a un pépin ;-)
Poste le Sunday 2 May 2004 21:57:15