Konsolen Anwendung

[neolithos]

Ich habs!

Delphi-Quellcode:

program Project2;
{$APPTYPE CONSOLE}
Var a,b,c,x,E:Real;

Begin
  Write('Stimmen fuer a=');
  Readln(a);
  Write('Stimmen fuer b=');
  Readln(B);
  Write('Stimmen fuer c=');
  Readln(c);
  Write('Anzahl der Kandidaten=');
  Readln(x);
  E :=(a+b+c)/(x);
  Writeln ('Durchschnitt= ',E:6:2);
  Readln
End.

So ist es korrekt! Nach meinem Verständnis!
Wenn man nicht richtig hinschaut!

[MrSpock]

Hallo neolithos,

hab auch gerade die Tomaten von den Augen entfernt.

[sakura]

Kurze Begründung... Wenn Du Read nutzt, dann wird das Return ignoriert und bleibt im Speicher. Solange Du Zahlen erwartest ist das egal... na ja, wenn als letztes ein String kommt, wird dieser durch das letzte Return sofort beendet Das ist ein altes Problem, das es schon zu TP/BP Zeiten gab. Na ja, Lösung ist einfach immer ReadLn zu nutzen, dann wird das Enter sofort aus dem Tastaturspeicher gelöscht.

......

[neolithos]

@sakura


Lang ist es her! Aber stimmt!

Read ist ja nur sinnvoll bei Eingaben die nicht von der Tastatur kommen z.B. einer Datei!

[Bladerunn3r]

Danke für diese schnelle hilfe !!!
MFG Bladerunn3r

[sakura]

Zitat von neolithos:

Lang ist es her!

Wohl wahr Ich habe es auch nicht gleich bemerkt

......