Sharp PC1360 |
Dokumentation ansehen
Programmspeicher-Image laden
| 10 | "D" CLEAR :WAIT 0:CLS |
| 20 | DIM F(149) |
| 30 | INPUT "Anfangswert : ";A,"Endwert : ";B,"Inkrement : ";C |
| 40 | CLS :PRINT "":PRINT " *** BUSY ***" |
| 50 | MX=(B-A)/150*C |
| 60 | X=A:GOSUB 270 |
| 70 | S=Y:T=Y:F(0)=Y |
| 80 | FOR I=C TO 149 STEP C |
| 90 | X=X+MX |
| 100 | GOSUB 270 :F(I)=Y |
| 110 | IF Y<S LET S=Y |
| 120 | IF Y>T LET T=Y |
| 130 | NEXT I |
| 140 | MY=(T-S)/31 |
| 150 | CLS |
| 160 | IF SGN A<>SGN B LINE (-A/MX*C,31)-(-A/MX*C,0) |
| 170 | IF SGN S<>SGN T LINE (0,31+S/MY)-(149,31+S/MY) |
| 180 | X=A |
| 190 | FOR I=0 TO 149-C STEP C |
| 200 | X=X+I*MX/C |
| 210 | LINE (I,31+(S-F(I))/MY)-(I+C,31+(S-F(I+C))/MY) |
| 220 | NEXT I |
| 230 | WAIT :GPRINT |
| 240 | CLS |
| 250 | WAIT 0:PRINT "Xmin = ";A:PRINT "Xmax = ";B:PRINT "Ymin = ";S:WAIT :PRINT "Ymax = ";T |
| 260 | END |
| 270 | Y=ATN X |
| 280 | RETURN |
Dokumentation ansehen
Programmspeicher-Image laden
|
|
Falls diese Seite ohne Navigationsleiste angezeigt wird, aktivieren Sie Javascript oder klicken Sie hier!