Casio FX-850P Stellar

Stellar

Ein Programm zur Berechnung astronomische Entfernungen bzw. Einheiten.

Stellar (2.889 Bytes)

10 CLEAR:CLS:LOCATE 2,0:PRINT "*** Stellarentfernung ***       von M.Schaarschmidt 2007"
20 BEEP
30 AE=149597870.691:PC=30856775812800:Lj=9460528000000:Ls=299792.458:Lm=17987547.48:Lst=1079252848.8
40 INPUT "Entfernung eingeben: Kilometer :",Km
50 IF Km=0 THEN GOTO 130
60 PRINT "Entspricht: ";Km/AE;" AE"
70 PRINT "Entspricht: ";Km/PC;" Parsec"
80 PRINT "Entspricht: ";Km/Lj;" Lichtjahre"
90 PRINT "Entspricht: ";Km/Ls;" Lichtsekunden"
100 PRINT "Entspricht: ";Km/Lm;" Lichtminuten"
110 PRINT "Entspricht: ";Km/Lst;" Lichtstunden"
120 GOTO 660
130 INPUT "Entfernung eingeben: AE        :",Km
140 IF Km=0 THEN GOTO 220
150 PRINT "Entspricht: ";Km*AE;" Km"
160 PRINT "Entspricht: ";(Km*AE)/PC;" Parsec"
170 PRINT "Entspricht: ";(Km*AE)/Lj;" Lichtjahre"
180 PRINT "Entspricht: ";(Km*AE)/Ls;" Lichtsekunden"
190 PRINT "Entspricht: ";(Km*AE)/Lm;" Lichtminuten"
200 PRINT "Entspricht: ";(Km*AE)/Lst;" Lichtstunden"
210 GOTO 660
220 INPUT "Entfernung eingeben: Parsec    :",Km
230 IF Km=0 THEN GOTO 310
240 PRINT "Entspricht: ";Km*PC;" Km"
250 PRINT "Entspricht: ";(Km*PC)/AE;" AE"
260 PRINT "Entspricht: ";(Km*PC)/Lj;" Lichtjahre"
270 PRINT "Entspricht: ";(Km*PC)/Ls;" Lichtsekunden"
280 PRINT "Entspricht: ";(Km*PC)/Lm;" Lichtminuten"
290 PRINT "Entspricht: ";(Km*PC)/Lst;" Lichtstunden"
300 GOTO 660
310 INPUT "Entfernung eingeben: Lichtjahre:",Km
320 IF Km=0 THEN GOTO 400
330 PRINT "Entspricht: ";Km*Lj;" Km"
340 PRINT "Entspricht: ";(Km*Lj)/AE;" AE"
350 PRINT "Entspricht: ";(Km*Lj)/PC;" Parsec"
360 PRINT "Entspricht: ";(Km*PC)/Ls;" Lichtsekunden"
370 PRINT "Entspricht: ";(Km*PC)/Lm;" Lichtminuten"
380 PRINT "Entspricht: ";(Km*PC)/Lst;" Lichtstunden"
390 GOTO 660
400 INPUT "Entfernung eingeben:Lichtstunden:",Km
410 IF Km=0 THEN GOTO 490
420 PRINT "Entspricht: ";Km*Lst;" Km"
430 PRINT "Entspricht: ";(Km*Lst)/AE;" AE"
440 PRINT "Entspricht: ";(Km*Lst)/PC;" Parsec"
450 PRINT "Entspricht: ";(Km*Lst)/Ls;" Lichtsekunden"
460 PRINT "Entspricht: ";(Km*Lst)/Lm;" Lichtminuten"
470 PRINT "Entspricht: ";(Km*Lst)/Lj;" Lichtjahre"
480 GOTO 660
490 INPUT "Entfernung eingeben:Lichtminuten:",Km
500 IF Km=0 THEN GOTO 580
510 PRINT "Entspricht: ";Km*Lm;" Km"
520 PRINT "Entspricht: ";(Km*Lm)/AE;" AE"
530 PRINT "Entspricht: ";(Km*Lm)/PC;" Parsec"
540 PRINT "Entspricht: ";(Km*Lm)/Ls;" Lichtsekunden"
550 PRINT "Entspricht: ";(Km*Lm)/Lst;" Lichtstunden"
560 PRINT "Entspricht: ";(Km*Lm)/Lj;" Lichtjahre"
570 GOTO 660
580 INPUT "Entfernung eingeben:Lichtsekunden:",Km
590 IF Km=0 THEN GOTO 660
600 PRINT "Entspricht: ";Km*Ls;" Km"
610 PRINT "Entspricht: ";(Km*Ls)/AE;" AE"
620 PRINT "Entspricht: ";(Km*Ls)/PC;" Parsec"
630 PRINT "Entspricht: ";(Km*Ls)/Lst;" Lichtstunden"
640 PRINT "Entspricht: ";(Km*Ls)/Lm;" Lichtminuten"
650 PRINT "Entspricht: ";(Km*Ls)/Lj;" Lichtjahre"
660 INPUT "Nochmal (j/n)";A$
670 IF A$="J" THEN GOTO 10

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

(c) 2007 by M.Schaarschmidt - bon13@gmx.de - http://blog.manib.bplaced.net