005
23.02.2025, 20:40 Uhr
maleuma
|
Das Laden und Speichern auf USB funktioniert erst einmal. Nach dem Laden scheint aber noch ein Zeilenvorschub zu fehlen. Da bleibt der Cursor rechts neben der letzten Blocknummer stehen.
| Quellcode: |
+G,,EVA.PAS
EVAPAS
02> 03> 04> 05> +L
10 PROGRAM KOERPEROBERFLAECHE;
20 CONST KON1=3207E-7;KON2=0.7285;KON
3=0.0188;
30 VAR KOF,MASSE,LAENGE,FAK:REAL;
40 FUNCTION YHOCHX(Y,X:REAL):REAL;
50 BEGIN
60 YHOCHX:=EXP(X*LN(Y));
70 END;
80 BEGIN(*HAUPTPROGRAMM*)
90 WRITE('Masse in kg=');READ(MASSE)
;
100 WRITE('Laenge in m=');READ(LAENGE
);
110 FAK:=MASSE*1000;
120 KOF:=KON1*YHOCHX(FAK,KON2-KON3*(L
N(FAK)/LN(10)))*YHOCHX(LAENGE*100,
0.3);
130 WRITE('Koerperob.fl.=',KOF:5:2,'
m^2');
140 WRITELN
150 END.
+P10,150,EVA2.PAS
02 03 04 05
+ |
Mehr habe ich erst einmal noch nicht getestet, muss mich in die Bedienung erst wieder reinlesen.
Der Inhalt der abgespeicherten Datei passt auch. Im Vorblock steht noch "Müll" drin an den unbenutzten Stellen. Das stört zwar nicht wirklich, kann aber für Verwirrung sorgen, wenn man das mit einem HEX-Editor betrachtet. Also vielleicht den Kassettenpuffer vor dem Eintragen der Daten löschen?
--
Mario. |
