Publicité
10 M ODE 1 : BORDER 0 : DEG
20 PR INT"VEUILLEZ PATIENTER "
30 FOR N=1 TO 3
40 INK 0 , 0 : INK 1 , 2 6 : INK 2 , 6 : INK 3, 18
50 IF N=1 THEN SA=120
60 IF N = 2 THEN S A =13 5
70 IF N=3 THEN SA=150
80 IF N=1 THEN ORIGIN 0 , - 5 0 , 0 , 6 4 0 , 0 , 4 0 0 ELSE ORIGIN 0 , 0 , 0 , 6 4
0 , 0 , 4 0 0
90 DIM CX( 5 ) , CY( 5 ) , R( 5 ) , LC(5)
100 DIM NF'(5>
110 DIM PX7 . ( 5, 81 ) ,F'Y7. ( 5, 81)
120 ST = 1 : CX <1) =320: CY(1) =200: R( 1 )=80
130 FOR ST= 1 TO 4
140 R (ST + 1) =R( ST) / 2
150 NEXT ST
160 FOR ST=1 TO 5
170 LC(ST) = 0 : NP( ST)=0
180 NP(ST)=NP(ST)+1
190 PX7.(ST,NP (ST) )=R(ST) *SI N(LC(ST) )
200 PY7.(ST,NP(ST) )=R(ST)*COS(LC(ST) )
210 LC(ST)=LC(ST)+360/ R(ST)
220 IF LC( ST)<360 THEN 180
Cours élém entaire
Chapitre 1 Page 63
Publicité
