Sharp PC-E500/E500S Technikersoftware

FIGURE.153

Fläche einer Form

FIGURE.153 (7.376 Bytes)

10 ' AREA.153 (Area of figure)
20 CLEAR :DEGREE
30 MERGE "G:COMN.00$"
40 ON ERROR GOTO *ERR
50 GOSUB *CG
60 DIM QIN(2),Q$(14)
70 QEA$=CHR$ &EA:QA8$=CHR$ &A8:QEB$=CHR$ &EB:QC3$=CHR$ &C3:QB0$=CHR$ &B0:QE4$=CHR$ &E4
80 Q$(0)="          *  AREA OF FIGURE  *         "
90 Q$(1)=" Triangle   ah/2"
100 Q$(2)=" Triangle   (ab"+QEA$+"sin "+QA8$+")/2"
110 Q$(3)=" Triangle   "+QEB$+"(S(S-a)(S-b)(S-c))"
120 Q$(4)=" Parallelogram  ah"
130 Q$(5)=" Parallelogram  ab"+QEA$+"sin "+QA8$+"
140 Q$(6)=" Trapezoid  (a+b)"+QEA$+"h/2"
150 Q$(7)=" Circle     "+QB0$+"r"+QC3$+"
160 Q$(8)=" Fan shape   lr/2"
170 Q$(9)=" Fan shape   "+QB0$+"r"+QC3$+QEA$+QA8$+"/360"
180 Q$(10)=" Bow shape   (lr-r"+QC3$+QEA$+"sin(l/r))/2"
190 Q$(11)=" Ellipse     "+QB0$+"ab"
200 Q$(12)=" Regular polygon  f(n,r)"
210 Q$(13)=" Regular polygon  f(n,R)"
220 Q$(14)=" Regular polygon  f(n,l)"
230 QMP=1:QMU=QMP:QMX=QMP
240 GOSUB 500
250 QKEY=ASC INKEY$ &1:IF QKEY=&D THEN 550
260 Q9=1:IF QKEY=&5 THEN 310 ELSE IF QKEY=&4 THEN 400
280 Q9=3:IF QKEY=&E THEN 310 ELSE IF QKEY=&F THEN 400 ELSE 250
310 IF QMU=14 THEN 250 ELSE QMU=Q9+QMU:QMX=Q9+QMX
330 IF QMU>=14 THEN QMU=14:QMX=3:QMP=12:GOTO 240
340 IF QMX<=3 THEN 240
350 IF Q9=1 THEN QMX=3:QMP=QMU-2 ELSE QMX=QMX-Q9:QMP=QMU-QMX+1
360 IF QMP>12 THEN QMP=12:QMX=QMU-11
370 '
380 GOTO 240
400 IF QMU=1 THEN 250
410 QMU=QMU-Q9:QMX=QMX-Q9
420 IF QMU<1 THEN QMP=1:QMU=QMP:QMX=QMP:GOTO 240
430 IF QMX>=1 THEN 240
440 IF Q9=1 AND QMU=3 THEN QMP=1:QMX=3:GOTO 240
450 IF Q9=1 THEN QMX=1:QMP=QMU ELSE QMX=QMX+Q9:QMP=QMU-QMX+1
460 IF QMP<=0 THEN QMP=1
470 IF QMU<4 AND Q9=3 THEN QMX=QMU
480 GOTO 240
500 LOCATE 0,0:PRINT Q$(0)
510 FOR QI=QMP TO QMP+2
520 Q8$=RIGHT$ (QCL$,40-LEN Q$(QI))
530 PRINT Q$(QI);Q8$:NEXT
540 LOCATE 0,QMX:PRINT QE4$:RETURN
550 CLS :QX1$="a=":QX2$="":QX3$=""
560 ON QMU GOSUB 1010,1020,1030,1040,1050,1060,1070,1080,1090,1100,1110,1120,1130,1140
570 QIN(0)=0:QIN(1)=0:QIN(2)=0
580 QKY=0:GOSUB 1150:LOCATE 21,0:PRINT QX1$;" ";:INPUT QKY
590 IF QKY<0 THEN 580
600 IF QMU<>10 THEN 620
610 IF QKY<=0 THEN 580
620 IF QMU<=11 THEN 650
630 IF QKY<=2 THEN 580
640 IF QKY-INT QKY<>0 THEN 580
650 QIN(0)=QKY
660 QKY=0:GOSUB 1150:LOCATE 21,0:PRINT QX1$;QIN(0)
670 IF QX2$="" THEN 830
680 LOCATE 21,1:PRINT QX2$;" ";:INPUT QKY
690 IF QKY<0 THEN 660
700 IF QX2$<>QA8$+"=" THEN 720
710 IF QKY>360 THEN 660
720 IF QMU<>10 THEN 740
730 IF QKY<1/2/PI *QIN(0) THEN 660
740 QIN(1)=QKY
750 QKY=0:GOSUB 1150:LOCATE 21,0:PRINT QX1$;QIN(0):LOCATE 21,1:PRINT QX2$;QIN(1)
760 IF QX3$="" THEN 830
770 LOCATE 21,2:PRINT QX3$;" ";:INPUT QKY
780 IF QKY<0 THEN 750
790 IF QX3$<>QA8$+"=" THEN 810
800 IF SIN QKY<0 THEN 750
810 QIN(2)=QKY
820 GOSUB 1150:LOCATE 21,0:PRINT QX1$;QIN(0):LOCATE 21,1:PRINT QX2$;QIN(1):LOCATE 21,2:PRINT QX3$;QIN(2)
830 P1=QIN(0):Q1=QIN(1):R1=QIN(2)
840 ON QMU-1 GOTO 860,870,880,890,900,910,920,930,940,950,960,970,980
850 Q9=P1*Q1/2:GOTO 990
860 Q9=P1*Q1*SIN R1/2:GOTO 990
870 P7=(P1+Q1+R1)/2:Q9=SQR (P7*(P7-P1)*(P7-Q1)*(P7-R1)):GOTO 990
880 Q9=P1*Q1:GOTO 990
890 Q9=P1*Q1*SIN R1:GOTO 990
900 Q9=(P1+Q1)*R1/2:GOTO 990
910 Q9=PI *SQU P1:GOTO 990
920 Q9=P1*Q1/2:GOTO 990
930 Q9=PI *SQU P1*Q1/360:GOTO 990
940 RADIAN :Q9=(P1*Q1-SQU Q1*SIN (P1/Q1))/2:DEGREE :GOTO 990
950 Q9=PI *P1*Q1:GOTO 990
960 Q9=P1*SQU Q1*TAN (180/P1):GOTO 985
970 Q9=P1*SQU Q1*SIN (360/P1)/2:GOTO 985
980 Q9=P1*SQU Q1/TAN (180/P1)/4
985 Q9=ABS Q9
990 LOCATE 21,3:PRINT "S=";Q9
1000 GOSUB *REK:GOTO 240
1010 QX2$="h=":RETURN
1020 QX2$="b=":QX3$=QA8$+"=":RETURN
1030 QX2$="b=":QX3$="c=":RETURN
1040 QX2$="h=":RETURN
1050 QX2$="b=":QX3$=QA8$+"=":RETURN
1060 QX2$="b=":QX3$="h=":RETURN
1070 QX1$="r=":RETURN
1080 QX1$="l=":QX2$="r=":RETURN
1090 QX1$="r=":QX2$=QA8$+"=":RETURN
1100 QX1$="l=":QX2$="r=":RETURN
1110 QX2$="b=":RETURN
1120 QX1$="n=":QX2$="r=":RETURN
1130 QX1$="n=":QX2$="R=":RETURN
1140 QX1$="n=":QX2$="l=":RETURN
1150 CLS :ON QMU-1 GOTO 1190,1220,1250,1280,1310,1350,1410,1430,1480,1540,1630,1640,1660
1160 LOCATE 6,3:PRINT "a":LOCATE 7,2:PRINT "h"
1170 LINE (17,28)-(45,0):LINE (45,0)-(73,28):LINE (17,28)-(33,28)
1180 LINE (43,28)-(73,28):LINE (45,0)-(45,16):LINE (45,24)-(45,28):RETURN
1190 LOCATE 5,1:PRINT "b":LOCATE 5,2:PRINT QA8$:LOCATE 7,3:PRINT "a"
1200 LINE (17,28)-(29,16):LINE (36,9)-(45,0):LINE (45,0)-(73,28)
1210 LINE (17,28)-(39,28):LINE (50,28)-(73,28):LINE (25,20)-(33,28):RETURN
1220 LOCATE 5,1:PRINT "b":LOCATE 10,2:PRINT "c":LOCATE 7,3:PRINT "a"
1230 LINE (17,28)-(29,16):LINE (36,9)-(45,0):LINE (45,0)-(60,15)
1240 LINE (66,21)-(73,28):LINE (17,28)-(39,28):LINE (50,28)-(73,28):RETURN
1250 LOCATE 9,2:PRINT "h":LOCATE 7,3:PRINT "a"
1260 LINE (23,4)-(11,28):LINE (83,4)-(71,28)
1270 LINE (56,4)-(56,16):LINE (56,24)-(56,28):GOTO 1300
1280 LOCATE 3,1:PRINT "b":LOCATE 4,2:PRINT QA8$:LOCATE 7,3:PRINT "a"
1290 LINE (23,4)-(21,8):LINE (17,16)-(11,28):LINE (83,4)-(71,28):LINE (15,20)-(23,28)
1300 LINE (23,4)-(83,4):LINE (11,28)-(39,28):LINE (49,28)-(71,28):RETURN
1310 LOCATE 8,0:PRINT "b":LOCATE 10,2:PRINT "h":LOCATE 7,3:PRINT "a"
1320 LINE (35,4)-(45,4):LINE (55,4)-(71,4):LINE (35,4)-(11,28)
1330 LINE (11,28)-(39,28):LINE (49,28)-(83,28):LINE (71,4)-(83,28)
1340 LINE (62,4)-(62,16):LINE (62,24)-(62,28):RETURN
1350 LOCATE 7,2:PRINT "r":LINE (35,16)-(52,16)
1360 GCURSOR (20,7):GPRINT "80402020101008080404040202020202020202020404040808101020204080"
1370 GCURSOR (16,15):GPRINT "C0380601":GCURSOR (51,15):GPRINT "010638C0"
1380 GCURSOR (16,23):GPRINT "031C6080":GCURSOR (51,23):GPRINT "81611D03"
1390 GCURSOR (20,31):GPRINT "01020404080810102020204040404040404040402020201010080804040201"
1400 RETURN
1410 LOCATE 7,2:PRINT "r":LOCATE 6,1:PRINT "l"
1420 GOTO 1450
1430 LOCATE 7,2:PRINT "r":LOCATE 5,1:PRINT QA8$
1440 LINE (30,23)-(40,23)
1450 LINE (17,10)-(35,28):LINE (35,28)-(40,23):LINE (48,15)-(53,10)
1460 GCURSOR (22,7):GPRINT "808080404040202020201010101010101020202020404040808080"
1470 GCURSOR (18,15):GPRINT "0A122141":GCURSOR (49,15):GPRINT "4121120A":RETURN
1480 LOCATE 8,1:PRINT "l":LOCATE 5,3:PRINT "r"
1490 LINE (23,4)-(23,27):LINE (23,27)-(27,27):LINE (37,27)-(46,27):LINE (23,4)-(46,27)
1500 GCURSOR (23,7):GPRINT "F03050F010F010F020E040C04080"
1510 GCURSOR (27,15):GPRINT "0103040F103F40FF00FF01FF02FC18F0C080"
1520 GCURSOR (35,23):GPRINT "0103040F103F40FF00FF0CF0":GCURSOR (43,31):GPRINT "090B0C0F"
1530 RETURN
1540 LOCATE 8,2:PRINT "b":LOCATE 6,1:PRINT "a"
1550 LINE (35,16)-(63,16):LINE (35,16)-(35,3)
1560 GCURSOR (13,7)
1570 GPRINT "8080C040406020201010101008080808080808080808F808080808080808080808101010102020604040C08080"
1580 GCURSOR (7,15):GPRINT "E030180C020301":GCURSOR (57,15):GPRINT "0103020C1830E0"
1590 GCURSOR (7,23):GPRINT "0F183020C080":GCURSOR (58,23):GPRINT "81816131190F"
1600 GCURSOR (12,31)
1610 GPRINT "0103020604040C08081010101020202020202020202020202020202020202020201010101008080C040406020301"
1620 RETURN
1630 LOCATE 6,2:PRINT "r":LINE (47,26)-(35,9):GOTO 1650
1640 LOCATE 8,2:PRINT "R":LINE (47,26)-(47,4)
1650 LINE (47,4)-(71,14):LINE (71,14)-(71,32):GOTO 1670
1660 LOCATE 10,1:PRINT "l":LINE (47,4)-(59,9):LINE (65,12)-(71,14):LINE (71,14)-(71,32)
1670 LINE (23,32)-(23,14):LINE (23,14)-(47,4):RETURN
2000 *ERR
2010 IF ERL =580 RESUME 580
2020 IF ERL =680 RESUME 660
2030 IF ERL =770 RESUME 750
2040 CLS :PRINT Q$(0):GOSUB *DPA:RESUME 1000

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

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