| | |
| 9. RADIANTEN UND GRADE | |
| Dieses Programm wandelt jeden Wert von Radianten in Grad um und umgekehrt. | |
| | |
| 10 REM RADIAN & DEGREE | |
| 20 CLS | |
| 30 INPUT "UMRECHNUNG IN RADIANTEN(1) ODER GRAD(2)";S | |
| 40 IF S = 1 THEN 140 | |
| 50 INPUT "RADIANT";B | |
| 60 C = B * 180 / 3.1416 | |
| 70 IF C > 360 THEN C = C - 360. : GOTO 70 | |
| 80 PRINT INT (C);"GRAD" | |
| 90 D = (C - INT (C)) * 60 | |
| 100 PRINT INT (D);"MINUTEN" | |
| 110 E = (D - INT (D)) * 60 | |
| 120 PRINT INT (E);"SEKUNDEN" | |
| 130 END | |
| 140 INPUT "GRAD";A | |
| 150 INPUT "MINUTEN";B | |
| 160 INPUT "SEKUNDEN";C | |
| 170 PRINT | |
| 180 D = A + B / 60 + C / 3600 | |
| 190 IF D > 360 THEN D = D - 360 : GOTO 190 | |
| 200 D = D * 3.1416 / 180 | |
| 210 PRINT D;"RADIANTEN" | |
| 220 END | |
