Eingaben prüfen (Pascal)

[alcaeus]

Zitat von dizzy:

IMHO wäre es eine Variante, wenn du die Eingabe zunächst in den Zieldatentyp (hier wohl Real) konvertierst, und dann wieder zurück zu String. Wenn jetzt der gelesene, und der 2x konvertierte String noch gleich sind, so kann der eingegebene Wert ohne Rundungsfehler in ausreichender Genauigkeit in Real gespeichert werden.

Wenn du auch das berücksichtigen willst, dann würde der Code so aussehen:

Delphi-Quellcode:

function SichereEingabe(Text: String): Integer;
var
  Wert, Code: Integer;
  WertEin, WertNeu: String;
begin
  repeat
    Write(Text+' ');
    Readln(WertEin);
    Val(WertEin,Wert,Code);    //Wenn Code <> 0, dann war in der Eingabe ein ungültiges Zeichen
    if Code <> 0 then
      Writeln('Ungültige Eingabe')
    else
    begin
      Str(Wert,WertNeu);
      if WertNeu <> WertEin then
        Code := 1;
    end;
  until Code=0;
  SichereEingabe := Wert;
end;