Eingaben prüfen (Pascal)

[chris_82]

Guten Abend,

ich darf mal wieder ein gutes altes Pascalprogramm schreiben.

Nun muss ich noch meine Eingaben abfangen, sprich ich habe ein Menü in dem verschieden Werde eingegeben werden, eigentlich alles Gleitkommazahlen. Bräuchte ich eine Funktion die prüft ob die eingabe in real liegt oder nicht. so nach dem Motto ist 0.00001 ein Teilmenge von Real, gibt es da ein Funktion?

[Hansa]

Zitat von chris_82:

...ich darf mal wieder ein gutes altes Pascalprogramm schreiben...

Aber das hat mit Pascal nichts zu tun. 8) Die Eingabe muß halt im Fehlerfalle abgefangen werden. 8)

[dizzy]

Na, es muss ja nicht sofort eine Falscheingabe sein. Man könnte sich auch Eingaben denken, die zwar syntaktisch völlig okay sind, aber die der Datentyp nicht mehr in all ihrer Genauigkeit erfassen kann.

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.

(Auf fehlerhafte Eingaben muss natürlich im Vorfeld gesondert reagiert werden!)

mfg,
dizzy

[glkgereon]

das problem hatte ich auch schon oft: gibt es in pascal sowat in der art:

Code:

if try readln(InEinenInteger)=error
then machsnochmal;
//also wenn der benutzer KEINEN integer eingibt, muss ers nochmal machen, solang bis ers hinkriegt

gibts das?

[alcaeus]

Zitat von glkbkk:

das problem hatte ich auch schon oft: gibt es in pascal sowat in der art:

Code:

if try readln(InEinenInteger)=error
then machsnochmal;
//also wenn der benutzer KEINEN integer eingibt, muss ers nochmal machen, solang bis ers hinkriegt

gibts das?

Nein, aber das gibts in Pascal:

Delphi-Quellcode:

function SichereEingabe(Text: String): Integer;
var
  Wert, Code: Integer;
  WertEin: String;
begin
  repeat
    Write(Text+' ');
    Readln(WertEin);
    Val(WertEin,Wert,Code);
    if Code <> 0 then
      Writeln('Ungültige Eingabe');
  until Code=0;
  SichereEingabe := Wert;
end;

[glkgereon]

soweit ich sehe prüft das nur, ob das eingegebene <>'' ist, oder?
was ist, wenn ich zb 'vierzehn' eingebe?

[devnull]

Nein, wenn du 'vierzehn' eingibst, dann ist in der Variable WertEin (String) 'vierzehn' gespeichert.
Wenn du nun mit der Funktion val probierst, Zeichen (d.h. Buchstaben) umzuwandeln, dann wird in der
Variable Code (integer) der Fehlertyp zurückgegeben!
Du wirst solange 'gezwungen', eine korrekte, gültige Eingabe einzugeben, bis Code=0 ist!

Delphi-Quellcode:

function SichereEingabe(Text: String): Integer;
var
  Wert, Code: Integer;
  WertEin: 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');
  until Code=0;
  SichereEingabe := Wert;
end;

mfg
devnull

[glkgereon]

aso, mir war die bedeutung von val nit so ganz klar...

[devnull]

Findet man alles in der Hilfe:
> Hilfe->Index->Suchen

Code:

 Auszug aus der Hilfe
Val (Prozedur)
Interpretiert einen String als numerischen Wert.

Deklaration
procedure Val(S; var V; var Code: Integer);
Es gilt:
S   ist eine Variable des Typs String, die eine Zeichenfolge speichert, die einen numerischen Wert (mit Vorzeichen) ergibt.
V   ist eine Variable mit einem Integer- oder Real-Typ.
Code   ist eine Variable des Typs Integer.

Zielsystem
>Windows, Real, Protected

[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;