Bergervei/Ein- und Ausgabe

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
<code id="4d321b0414f10">
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 
   showMessage('Deine Zahl war: '+zk);
  else
   showmessage('Fehlerhafte Eingabe: '+zk);
  result:=strtoint(zk);
 end;
</code>

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