Hi @all!
Nachdem ich mich das letzte mal beschwert hatte, dass etwas nicht schließt, habe ich heute das gegenteilige problem

Ich habe eine Konsolenanwendung, die so aussieht:

zusammenfalten · markieren

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a,b,flaeche: integer;
begin
  readln(a);
  readln(b);
  flaeche:=a*b;
  writeln(flaeche);
end.

Wenn ich die starte, habe ich maximal ´ne Sekunde Zeit um die Fläche zu lesen, dann schließt das Fenster
Wie kann ich das verhindern? (meine *intelligente* Idee sieht ja so aus, noch ein <readln(a)> einfach hinten anzuhängen)
Also, her mit euren Ideen...
DUMMER_info_schüler

Einfach noch einen Prompt einfügen:

markieren

Code:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a,b,flaeche: integer;
 [color=#ff0000]S: String;[/color]
begin
  readln(a);
  readln(b);
  flaeche:=a*b;
  writeln(flaeche);
  [color=#ff0000]ReadLn(S);[/color]
end.

......

@Sakura: Warum nicht einfach so?

zusammenfalten · markieren

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE} 

uses
  SysUtils;
var a,b,flaeche: integer;
begin
  readln(a);
  readln(b);
  flaeche:=a*b;
  writeln(flaeche);
  ReadLn;
end.

Zitat von Stevie:

@Sakura: Warum nicht einfach so?

Zu einfach

......