Casio FX-850P Koordinatenberechnung

KOORDINATENBERECHNUNG

Koordinatenberechnung zur Standortbestimmung

KOORDINATENBERECHNUNG (1.005 Bytes)

10 DIM G(2), M(2), S(2), W(2)
20 FOR F = 1 TO 2
30 G(F) = 0: M(F) = 0: S(F) = 0: W(F) = 0
40 NEXT
100 CLS
110 PRINT "Koordinatenberechnung"
120 CLS
130 ' BEZUNGSGRAD
140 PRINT "Eingabe des kleineren Winkels :";
150 I = 1
160 GOSUB 500
170 CLS
180 ' ZWEITER GRAD
190 PRINT "Eingabe groesseren Winkels :";
200 I = 2
210 GOSUB 500
220 ' MASSE
230 INPUT "Massdifferenz zwischen den      Gradlinien : "; MD
240 INPUT "Mass von kleinem Winkel zum     Zielort : "; M
250 GD = W(2) - W(1)
260 W = GD * M / MD
270 gw = W + W(1)
275 CLS
280 PRINT "Zielortkoordinaten : ";
290 LOCATE 2, 1
300 PRINT INT(gw); "ø";
310 gw = gw - INT(gw)
320 gw = gw * 60
330 PRINT INT(gw); "'";
340 gw = gw - INT(gw)
350 gw = gw * 60
360 PRINT INT(gw); "''"
470 INPUT "Weiter (J/N) "; a$
480 IF a$ = "j" OR a$ = "J" THEN GOTO 120
490 END
500  '
510 LOCATE 2, 1
520 INPUT "Grad "; G(I)
530 INPUT "Minuten "; M(I)
540 INPUT "Sekunden "; S(I)
550 W(I) = G(I) + M(I) / 60 + S(I) / 3600
560 RETURN

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

(C) 2009 by Monika und Wilhelm Leibold - mleibold@arcor.de - http://blog.manib.bplaced.net