Code
1=>D
EffListe lVAR
EffListe lVAR2
Axesaff
FonctOn
Input "NB DE POINTS",A
A=>dim(lVAR
A=>dim(lVAR2
Disp "FONCTION DEFINIE"'"SUR ?"
Prompt B,C
B=>Xmin
C=>Xmax
B=>Ymin
C=>Ymax
For(I,1,A
Disp "COORDONE POINT ?","(B=ABSCISE)","(C=ORDONNE)"
Prompt B,C
B=>lVAR(I
C=>lVAR2(I
End
Graph1(Polygone,lVAR,lVAR2,+
AffGraph
Pause
EffeEcr
AxesNAff
FonctOff
0=>Xmin
94=>Xmax
-62=>Ymin
0=>Ymax
Lbl 1
EffDessin
Ligne(0,-8,94,-8
Ligne(14,0,14,-62
Texte(1,5,"X
Texte(24,0,"F(X)
If A=D:Goto 2
Texte(1,23,lVAR(D
Texte(24,23,lVAR2(D
If lVAR2(D)>lVAR2(D+1)
Then
Ligne(31,-29,38,-36
Ligne(38,-33,38,-36
Ligne(38,-36,35,-36
D+1=>D
Texte(39,41,lVAR2(D
Texte(1,41,lVAR(D
Pause
Goto 1
End
If lVAR2(D)<lVAR2(D+1)
Then
Ligne(31,-29,38,-22
Ligne(38,-22,38,-25
Ligne(38,-22,35,-22
D+1=>D
Texte(15,41,lVAR2(D
Texte(1,41,lVAR(D
Pause
Goto 1
End
If lVAR2(D)=lVAR2(D+1)
Then
Ligne(28,-27,36,-27
Ligne(36,-27,33,-24
Ligne(36,-27,33,-30
D+1=>D
Texte(24,41,lVAR2(D
Texte(1,41,lVAR(D
Pause
Goto 1
End
Lbl 2
EffEcr
Stop