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