|
d) Prüfung ob ein String nummerisch ist
Ein String wird als nummerisch bezeichnet, wenn alle enthalten Zeichen ausschliesslich Ziffern von 0 bis 9 sind.
Dies kann man am besten mit einer VAL- Funktion prüfen.
Die VAL-Funktion wandelt einen String in eine Zahl um:
Sie wird folgendermaßen geschrieben:
VAL(String, Zahlvariable, Fehlervariable)
String: umzuwandelnder String
Zahlvariable: Variable des Types in welche der String umgewandelt werden soll
Fehlervariable: Gibt die Stelle an wo ein Fehler auftritt; Ein Fehler tritt dann auf, wenn Im
String ein Zeichen keine Ziffer von 0-9 ist. Wenn Fehlerstelle Null ist konnte der String vollkommen umgewandelt werden.
Beispielprogramm:
PROGRAM Pruefung_nummerischer_String;
{Folgende Funktion prueft ob ein String nummerisch ist}
{Sie gibt als Ergebnis TRUE ober FALSE zurück }
FUNCTION Pruefung ( zkette: STRING): BOOLEAN;
VAR
fehler : INTEGER; {zeigt Fehler in Val-Funktion}
zahl : REAL; {alle reellen Zahlen}
numm : BOOLEAN; {nummerisch oder nicht}
BEGIN
numm:=TRUE; {initialisierung von numm}
val(zkette, zahl, fehl);
IF fehl <> 0 THEN
numm:=TRUE
ELSE
numm:=FALSE;
Pruefung:=numm;
END;
{Beginn Hauptprogramm}
VAR
zkette : STRING;
BEGIN
WriteLn(' Geben Sie die zu ueberpruefende Zeichenkette ein...');
{Abfragung der Zeichekette}
ReadLn(zkette); {Einlesen der Zeichenkette}
IF Pruefung(zkette) THEN
WriteLn('Der eingegebene String ist nicht nummerisch!')
{Ausgabe des Ergebnisses}
ELSE
WriteLn('Der eingegebene String ist nummerisch!');
ReadLn;
END.
|
