Bergervei/Ein- und Ausgabe

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
<code id="4d31699baf0e7">
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;
</code>

<run id="4d31699baf16b">
zahl := eingabe();
writeln(zahl);
</run>