Ein- und Ausgabe

Aus ProgrammingWiki

Archivierte Version vom 2011-01-15T09:32:11+00:00. Aktuelle Version

var zahl: integer;

function eingabe: integer;
 var korrekt, ziffer: boolean;
     zk : string;
     i,j: integer;        
 begin
  zk:=inputDialog('Deine Zahl:');
  korrekt:=true;
  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
  begin
   result:=strtoint(zk);
   showMessage('Deine Zahl war: '+zk);
  end 
  else
  begin
   result:=0;
   showmessage('Fehlerhafte Eingabe: '+zk);
  end;
 end;

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

Ein- und Ausgabe

Suche