console application schließt einfach...

[dummer_info_schüler]

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

Ich habe eine Konsolenanwendung, die so aussieht:

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 :wiejetzt:
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

[sakura]

Einfach noch einen Prompt einfügen:

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.

...:cat:...

[Stevie]

@Sakura: Warum nicht einfach so?

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.

[sakura]

Zitat:

Zitat von Stevie

@Sakura: Warum nicht einfach so?

Zu einfach :roll: :oops:

...:cat:...