Casio FX-850P Scientific Library 116

5960

Metrische Umwandlungen für Flächen

LIB5960 (1160 Bytes)

5 GOTO10010
10 DATAx[m?],0.01x[a],X[a]=0.01*x[m?],10,20
20 DATAx[m?],0.000247105x[acre],X[acre]=2.47105E-4*x[m?],10,30
30 DATAx[m?],0.000000386102x[mile?],X[mile?]=3.86102E-7*x[m?],20,40
40 DATAx[a],100x[m?],X[m?]=100*x[a],30,50
50 DATAx[a],0.0247105x[acre],X[acre]=0.0247105*x[a],40,60
60 DATAx[a],0.0000386102x[mile?],X[mile?]=3.86102E-5*x[a],50,70
70 DATAx[acre],4046.86x[m?],X[m?]=4046.86*x[acre],60,80
80 DATAx[acre],40.4686x[a],X[a]=40.4686*x[acre],70,90
90 DATAx[acre],0.0015625x[mile?],X[mile?]=.0015625*x[acre],80,100
100 DATAx[mile?],2589990x[m?],X[m?]=2589990*x[mile?],90,110
110 DATAx[mile?],25899.9x[a],X[a]=25899.9*x[mile?],100,120
120 DATAx[mile?],640x[acre],X[acre]=640*x[mile?],110,120
10010 MODE8:DIM:x=10:y=120:r=x
10050 p$="Metric conversion (area)"
10110 RESTORE(r)
10120 READm$,n$,s$,b,c
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINTp$;TAB(l);l$;m$;" -æ ";n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>THENr=x:GOTO10110
10180 IFz=28 ANDr<>THENr=y:GOTO10110
10190 IFz=30 ANDr<>THENr=b:GOTO10110
10200 IFz=31 ANDr<>THENr=c:GOTO10110
10210 IFz=13 THENCALC$=s$:CALCJMP
10280 GOTO10150

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net