slalom pour Sharp PC1500 ( pas de programme ) tiré du magazine Hebdogiciel N°18 Nécessite l'extension PETOOLS. Les sports d'hiver comme si vous y étiez. Vous risquez non pas d'avoir mal aux jambes, mais plutôt à la tête, car il vous faudra réfléchir. Il est toutefois possible d'utiliser ce programme dans la configuration mémoire minimale à condition de supprimer les remarques introduites pour la compréhension du logiciel, et de faire après un NEW0 oi POKE 30822,0. Programme : 1 ARUN:LF -5:END 19 "Z":CLEAR:DEGREE 19 "TRACE":A=30:U=10:INPUT "nbre de coureurs",Q:DIM A$(Q):DIM T(Q):DIM C(Q) 20 GRAPH:GLCURSOR (110,0):SORGN 30 INPUT "nbre de portes",N 40 DIM X(N):DIM Y(N):X(0)=0,Y(0)=0 50 LINE (-50,0)-(50,0),0,1 60 FOR I=1 TO N 70 INPUT "entrer x et y",X(I),Y(I) 75 X(I)=U*X(I):Y(I)=U*Y(I) 80 LINE (X(I-1),Y(I-1))-(X(I),Y(I)),9,3 90 LPRINT "*" 100 NEXT I:SORGN 110 YN=-Y(N) 111 REM ******** 112 REM 113 REM affichage des caractéristiques 115 REM 116 REM ******** 120 WAIT 60:BEEP 1:USING 130 PRINT N;"portes":BEEP 1 140 PRINT "dénivel.";YN*SIN A/U:BEEP 1 150 PRINT "longueur";YN/U 151 REM ******** 152 REM 153 REM depart 154 REM 155 REM ******** 160 "SKI":TT=0:B0=0:GOSUB "NOM" 165 RESTORE 170:WAIT 50:X=0:Y=0 170 DATA 9,81,0,3,3,70,30,80,8,5 180 READ G,T,N,M,A,L,K,V 190 GG=G/SIN A:T1=T/N 200 FOR I=5 TO 1 STEP -1:BEEP 1:PRINT I:NEXT I 210 PRINT "go":WAIT 0:BEEP 1 220 "GO":BEEP 1:A$=INKEY$:B=0 225 IF A$="r" LET B=.3927:GOTO 300 230 IF A$="e" LET B=.7854:GOTO 300 240 IF A$="w" LET B=1.1781:GOTO 300 250 IF A$="q" LET B=1.5708:GOTO 300 260 IF A$="u" LET B=-.3927:GOTO 300 265 IF A$="i" LET B=-.7854:GOTO 300 270 IF A$="o" LET B=-1.1781:GOTO 300 280 IF A$="p" LET B=-1.5708:GOTO 300 300 TT=TT+T1 310 B1=B0+(B-B0)/N 315 S1=B1-B1*B1*B1/6:C1=1-B1*B1/2 320 D1=(B-B0)*0.3 330 KX=GG*S1+V*D1 340 KY=GG*C1-V*(L/M+K*ABS D1) 350 V1=KX*T1:V2=KY*T1+V 360 X1=KX*T1*T1/2 370 Y1=KY*T1*T1/2+V*T1 380 X=X+X1*C1-Y1*S1 390 Y=Y+X1*S1+Y1*C1 400 U=(racine)(V1*V1+V2*U2) 410 LINE -(U*X,U*Y),0,C 420 B0=B1 425 IF U*YQ THEN RETURN 650 GLCURSOR (-X,-Y):LPRINT 660 TEXT:COLOR 2 670 LPRINT "résultats":USING "###.##" 680 FOR I=0 TO Q:COLOR C(I):LPRINT A$(I):LCURSOR 10:LF -1:LPRINT T(I) 690 NEXT I:END