000
07.10.2023, 19:27 Uhr
ralle
|
Moin,
Ich habe aus dem FA Heft 12/1989 dieses Listing in KC-BASIC abgetippt:
| Quellcode: |
10 CLS:PRINT
20 PRINT "ENTFERNUNGSBESTIMMUNG "
30 PRINT "AUS DEM LOCATOR"
40 PRINT "**********************"
50 PRINT:PRINT
60 INPUT "EIGENER LOCATOR:";LE$
70 FOR K=1 TO 6
80 LE(K)=ASC(MID$(LE$,K,1))
90 NEXT K
100 XE=20*(LE(1)-74)+2*(LE(3)-48)+0.0416667*(2*LE(5)-129)
105 PRINT "LE=";XE;"GRAD"
110 XE=XE*PI/180
120 YE=10*(LE(2)-74)+LE(4)-48+0.0208333*(2*LE(6)-129)
125 PRINT "BE=";YE;"GRAD"
130 YE=YE*PI/180
140 INPUT "LOCATOR GEGENSTATION:";LG$
150 FOR K=1 TO 6
160 LG(K)=ASC(MID$(LG$,K,1))
170 NEXT K
180 XG=20*(LG(1)-74)+2*(LG(3)-48)+0.0416667*(2*LG(5)-129)
185 PRINT "LG=";XG;"GRAD"
190 XG=XG*PI/180
200 YG=10*(LG(2)-74)+LG(4)-48-0.0208333*(2*LG(6)-129)
205 PRINT "BG=" YG"GRAD"
210 YG=YG*PI/180
220 B=SIN(XE)*SIN(XG)+COS(XE)*COS(XG)*COS(YE-YG)
230 E=PI/2-ATN(B/SQR(1-B*B))
240 E=E*180/PI
250 E=E*111.3171:E=INT(E):PRINT
260 PRINT "ENTFERNUNG E=";E;"KM"
270 PRINT:PRINT:GOTO 140
280 END
|
Leider rechnet es falsch. Verschiebe ich das Komma, also den Punkt in der Zeile 250 bei der Zahl 111,3171 um eine Stelle dahinter, muss ich zum Richtige Ergebnis 1000 subtrahieren.
Das Programm wurde für den Z1013 mit 10K-BASIC geschrieben.
--
Gruß Ralle
Wenn Sie dazu neigen, Bedienungsanleitungen zusammen mit dem Verpackungsmaterial wegzuwerfen, sehen Sie bitte von einem derart drastischen Schritt ab!...
... Nachdem Sie das Gerät eine Weile ausprobiert haben, machen Sie es sich am besten mit dieser Anleitung und ihrem Lieblingsgetränk ein oder zwei Stunden lang in Ihrem Sessel bequem. Dieser Zeitaufwand wird Sie dann später belohnen...
aus KENWOOD-Bedienungsanleitung TM-D700 |
