Voilà ce que j'ai reçu hier par mail. Merci à luffy_yop pour ce programme qui vérifie si un système est isostatique !
Code
ClrDraw
ClrHome
Disp "NB DE CLASSE","D'EQUIVALANCE"
Input N
Disp "NB DE MOBILITE","UTILES"
Input U
Disp "NB DE MOBILITE","INTERNES"
Input I
Disp "CB DE LIAISONS"
Input A
0→S
While A>0
0→Xmin
94→Xmax
0→Ymin
62→Ymax
0→Yscl
GridOff:AxeOff:ClrDraw
Text(0,0,"0:PIVOT"
Text(0,49,"1:GLISSIERE"
Text(6,0,"2:HELICOIDALE"
Text(12,0,"4:PIVOT GLISSANT"
Text(6,65,"3:ROTULE"
Text(18,0,"5:ROTULE A DOIGT"
Text(24,0,"6:LINEAIRE ANNULAIRE"
Text(30,0,"7:APPUI PLAN"
Text(36,0,"8:LINEAIRE RECTILIGNE"
Text(42,0,"9:PONCTUELLE"
Text(48,0,"APPUI SUR LA TOUCHE "
Text(54,0,"0:DE LA LIASON"
0→Z
While Z=0
GetKey→Z
End
If Z=102:5+S→S
If Z=92:5+S→S
If Z=93:5+S→S
If Z=94:3+S→S
If Z=82:4+S→S
If Z=83:4+S→S
If Z=84:2+S→S
If Z=72:3+S→S
If Z=73:2+S→S
If Z=74:1+S→S
A-1→A
End
-6(N-1)+U+I+S→H
ClrDraw
ClrHome
ZDecimal
CoorOn
AxesOn
If H=0:Disp "ISOSTATIQUE"
If H[Différent de]0:Disp "HYPERSTATIQUE","D'ORDRE",H
