'...' erwartet aber '...' gefunden?
Hallo an allen,
zuerst den Code:
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
var
f, alter:Integer;
durchschnitt1, durchschnitt2, durchschnitt3: Double;
begin
WriteLn('Morgenschicht:');
WriteLn;
for f:=1 to 5 do
begin
Write('Alter des Schülers: ');
ReadLn(alter);
durchschnitt1 := durchschnitt1 + alter;
end;
durchschnitt1 := Round((durchschnitt1 / 5),2);
WriteLn;
WriteLn;
WriteLn('Spätschicht:');
WriteLn;
for f:=1 to 6 do
begin
Write('Alter des Schülers: ');
ReadLn(alter);
durchschnitt2 := durchschnitt2 + alter;
end;
durchschnitt2 := Round((durchschnitt2 / 6),2);
WriteLn;
WriteLn;
WriteLn('Nachtschicht:');
WriteLn;
for f:=1 to 11 do
begin
Write('Alter des Schülers: ');
ReadLn(alter);
durchschnitt3 := durchschnitt3 + alter;
end;
durchschnitt3 := Round((durchschnitt3 / 11),2);
WriteLn;
WriteLn;
WriteLn('Das Durchschnittsalter der Schüler der Morgenschicht beträgt: ', durchschnitt1, '.');
WriteLn('Das Durchschnittsalter der Schüler der Spätschicht beträgt: ', durchschnitt2, '.');
WriteLn('Das Durchschnittsalter der Schüler der Nachtschicht beträgt: ', durchschnitt3, '.');
if (durchschnitt1 > durchschnitt2) and (durchschnitt1 > durchschnitt3) then
begin
Write('Die Morgenschicht hat das höchste Durchschnittsalter.');
end
else
begin
if durchschnitt2 > durchschnitt3 then
begin
Write('Die Spätschicht hat das höchste Durchschnittsalter.');
end
else
if durchschnitt3>durchschnitt1 then
begin
Write('Die Nachtschicht hat das höchste Durchschnittsalter.');
end;
end;
ReadLn;
end.
Ich habe aber folgende Fehlermeldung bekommen:
1) [dcc32 Fehler] Project1.dpr(19): E2029 ')' erwartet, aber ',' gefunden.
2) [dcc32 Fehler] Project1.dpr(19): E2029 ')' erwartet, aber ',' gefunden.
Diese Meldungen sind für mich nicht logisch. Was habe ich falsch gemacht bzw. wie kann ich diese Fehler lösen?
Danke und Grüße
2 Antworten
Die Meldung ist doch eindeutig, er erwartet eine schließende Klammer, wo aber ein Komma steht. Nur ohen Zeilennummern ist das jetzt etwas schwierig, aber ich rate mal:
Round(var);
hat nur einen Parameter und Du hast 2 angegeben? Komisch allerdings, daß er nur 2 Fehler meldet.
zeile 13, zeile 35, 38-40 ...
besorge dir mal einen editor mit syntax-highlight.
Hallo PeterP58,
ich verstehe nicht, wo das Problem liegt :(
Was für einen Editor mit Syntax-Highlight würdest du mir empfehlen?
Danke und Grüße
Verwende die Delphi IDE von Embarcadero, wenn du sie nicht bereits hast.
Hallo KarlRanseierlll,
ich habe ein Fehler gemacht. Ich wollte RoundTo statt Round verwenden.
Aber jetzt bekomme ich den Fehler, dass dies ein undeklarierter Bezeichner ist. Warum? Und wie kann ich das Problem lösen?
Danke und Grüße