|
Substituiren von zwei Strings |
|
 |
|
 |
|
 |
|
 |
|
 |
|
|
|
|
|
|
|
|
|
|
|
|
|
von Georg Folie
PROGRAM substi;
USES
Crt;
FUNCTION subst (zeile : STRING;
such : STRING;
ersatz : STRING) : STRING;
VAR
teil1 : STRING;
teil2 : STRING;
i : INTEGER;
k : INTEGER;
BEGIN
k := pos(such, zeile);
teil1 := copy(zeile, 1, (k - 1));
i := (Length(zeile) - k);
teil2 := copy(zeile, (k + Length(such)), i);
subst := teil1 + ersatz + teil2;
END;
VAR
zeile, such, ersatz, ergebnis : STRING;
benein : INTEGER;
BEGIN (* des Hauptprogramms *)
REPEAT
clrscr;
WriteLn('Geben Sie den Text ein: '); (*Benutzereingaben*)
ReadLn(zeile);
WriteLn('Geben Sie den zu substituierenden Ausdruck ein: ');
ReadLn(such);
WriteLn('Geben Sie den Ersatz ein: ');
ReadLn(ersatz);
ergebnis := subst (zeile, such, ersatz);
WriteLn (ergebnis); (*Gibt die substituierte Zeile aus*)
WriteLn('Moechten Sie das Programm nocheinmal starten: JA(1) NEIN(2)');
ReadLn(benein);
UNTIL benein = 2; (*wiederholt den Vorgang bis Benutzer 2 eingibt*)
ReadLn;
END. (*Ende des Hauptprogramms*)
|
|
|
|
|
|
|
|
|
Letzte Änderung: 09.02.2007
© Pädagogisches Institut für die deutsche Sprachgruppe
- Bozen. 2000 - 2025
|
|
|
|
 |
|
|
|
|
