Ein- und Ausgabe

Aus ProgrammingWiki

var zahl: integer;

function eingabe: integer;
 var korrekt, ziffer: boolean;
     zk : string;
     i,j: integer;        
 begin
  zk:=inputdialog('Deine Zahl:');
  korrekt:=strtoint(zk)>=0;
  for i:=1 to length(zk) do
  begin
   ziffer:=false;
   for j:=48 to 57 do ziffer:=ziffer or (zk[i]=chr(j)); 
   korrekt:=korrekt and ziffer;
  end;
  if korrekt then 
   showmessage('Deine Zahl war: '+zk)
  else
   showmessage('Fehlerhafte Eingabe: '+zk);
  result:=strtoint(zk);
 end;

zahl:=eingabe();
writeln(zahl);

Ein- und Ausgabe

Suche