Lazarus Programm haut vor dem Anzeigen der Antwort ab

[Wotan1]

Warum Endet dieses Programm, bevor es "Notendurchschnitt" ausgegeben hat?
Vielen Dank schonmal im Vorraus


program Project2;
uses
SysUtils,crt;
var
Punkte: String;
A: TStringArray;
kPunkte,x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,Anzahl,i:byt e;
Notendurchschnitt: real;

begin
writeln('Notendurchschnittsrechner');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln;
writeln ('Punkte: ');
writeln ('Kursarbeitspunkte: ');
gotoxy(22,4);readln(Punkte);
gotoxy(22,5);readln(kPunkte);
writeln;

A :=Punkte.Split(',');
x0:=strtoint(A[0]);
x1:=strtoint(A[1]);
x2:=strtoint(A[2]);
x3:=strtoint(A[3]);
x4:=strtoint(A[4]);
x5:=strtoint(A[5]);
x6:=strtoint(A[6]);
x7:=strtoint(A[7]);
x8:=strtoint(A[8]);
x9:=strtoint(A[9]);


anzahl := 0;
for i := 1 to length(Punkte) do
begin
if (Punkte[i] = ',') then
anzahl := anzahl + 2;
end;


Notendurchschnitt:=(((x1+x2+x3+x4+x5+x6+x7+x8+x9+x 0)/anzahl)*2+kPunkte)/3;
write('Notendurchschnitt: ');write(Notendurchschnitt);


readln;
end.

[mmw]

Hallo,

mal jetzt schnell

kPunkte,x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,Anzahl,i:byt e;

'byte' zusammen schreiben

Notendurchschnitt:=(((x1+x2+x3+x4+x5+x6+x7+x8+x9+x 0)/anzahl)*2+kPunkte)/3;

'x 0' müsste 'x0' sein

strtoint konventiert einen String in einen Integer nicht Byte

Gruß

[Wotan1]

Zitat von mmw:

Hallo,

mal jetzt schnell

kPunkte,x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,Anzahl,i:byt e;

'byte' zusammen schreiben

Notendurchschnitt:=(((x1+x2+x3+x4+x5+x6+x7+x8+x9+x 0)/anzahl)*2+kPunkte)/3;

'x 0' müsste 'x0' sein

strtoint konventiert einen String in einen Integer nicht Byte

Gruß

Danke, aber das ist es leider nicht, das mit den Leerzeichen war nur komisch rpberkoppiert und wo ich Byte in Integer geändert habe ging es acu nicht. Grüße

[Wotan1]

Ich habe das Problem gefunden. Es besteht darin, das wenn ich weniger als 10 Abtrennungen nehme es abbricht, weil es die anderen nicht gibt... Ich hatte halt gedacht, das wenn ich bis 10 hoch gehe, reicht das als maximale Notenanzahl, weil man ja nicht weis wie viele Noten man hat...

Wisst ihr wie man dies umgeht?

[Frickler]

Zitat von Wotan1:

Ich habe das Problem gefunden. Es besteht darin, das wenn ich weniger als 10 Abtrennungen nehme es abbricht, weil es die anderen nicht gibt... Ich hatte halt gedacht, das wenn ich bis 10 hoch gehe, reicht das als maximale Notenanzahl, weil man ja nicht weis wie viele Noten man hat...

Statt x1...x9 ein Array of Byte. Und dann die Länge des Bytearray auf die Länge des Stringarray setzen: SetLength(X, Length(A)); Dann kann auch die Zuweisung in einer Schleife laufen.

[Wotan1]

Zitat von Frickler:

Zitat von Wotan1:

Ich habe das Problem gefunden. Es besteht darin, das wenn ich weniger als 10 Abtrennungen nehme es abbricht, weil es die anderen nicht gibt... Ich hatte halt gedacht, das wenn ich bis 10 hoch gehe, reicht das als maximale Notenanzahl, weil man ja nicht weis wie viele Noten man hat...

Statt x1...x9 ein Array of Byte. Und dann die Länge des Bytearray auf die Länge des Stringarray setzen: SetLength(X, Length(A)); Dann kann auch die Zuweisung in einer Schleife laufen.

Danke, ich werde es mal ausprobieren

[stahli]

Setze mal am ersten "begin" einen Breakpoint (mit F5).
Wenn Du dann das Programm startest kann Du mit F8 das Programm zeilenweise durchlaufen (Debuggen).
In einer Zeile sollte daher immer nur eine Anweisung stehen, das ist übersichtlicher.

Mit dem Mauszeiger über den Variablen kannst Du deren Werte anzeigen lassen und prüfen, ob alles wie erwartet berechnet wird.

Wenn z.B. ein String nicht in eine Zahl umgewandelt werden kann, bricht das Programm ab.
Das wird vermutlich das Problem sein.


PS: Hier im Forum kannst Du Deinen Code formatiert anzeigen lassen (der Helm-Schalter im Editor). Dadurch wird das für alle besser lesbar.

[Wotan1]

Zitat von stahli:

Setze mal am ersten "begin" einen Breakpoint (mit F5).
Wenn Du dann das Programm startest kann Du mit F8 das Programm zeilenweise durchlaufen (Debuggen).
In einer Zeile sollte daher immer nur eine Anweisung stehen, das ist übersichtlicher.

Mit dem Mauszeiger über den Variablen kannst Du deren Werte anzeigen lassen und prüfen, ob alles wie erwartet berechnet wird.

Wenn z.B. ein String nicht in eine Zahl umgewandelt werden kann, bricht das Programm ab.
Das wird vermutlich das Problem sein.


PS: Hier im Forum kannst Du Deinen Code formatiert anzeigen lassen (der Helm-Schalter im Editor). Dadurch wird das für alle besser lesbar.

danke, hat gut gegklappt