## BASIC PROGRAMME

Zurück 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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 |

Programm : Download

<< Inhaltsverzeichnis | Kontakt : Webmaster