Kryptologie - Informatik

PROCEDURE PROCEDURE bereinigt_laden;
VAR V VAR A R Datei: text;
zeichen: char;
i: integer;
PROCEDURE PROCEDURE ersetzen (nn: integer; c1, c2: char);
BEGIN
BEGIN
textlaenge := textlaenge + 1;
textVorlage[textLaenge] := c1;
IF I IF F nn = 2 THEN
THEN
BEGIN
BEGIN
textlaenge := textlaenge + 1;
textVorlage[textLaenge] := c2;
END END; END
END E END N D; { zweiterBuchstabe }
BEGIN
BEGIN
menu_zeigen(2, 4, true);
menu_zeigen(3, 0, true);
menu_zeigen(4, 0, true);
menu_zeigen(5, 0, true);
menu_zeigen(5, 1, true);
IF IF NOT NNOT NOT O T menu_markiert(2, 2) THEN
THEN
item_aend end end eend n dern(2, 2);
IF I IF F menu_markiert(2, 1) THEN
THEN
item_aend end end eend n dern(2, 1);
dateiname := oldfilename(‚ ‚);
reset(datei, dateiname);
textlaenge := 0;
WHILE WHILE NOT N NOT O T eof(Datei) AND AND AAND AND N D (textLaenge < N) DO
DO
BEGIN
BEGIN
WHILE WHILE NOT NNOT NOT O T eoln(Datei) AND AND AAND AND N D (textLaenge < N - 1) DO
DO
BEGIN
BEGIN
read(datei, zeichen);
CASE CASE zeichen OF
‚ä‘, ‚Ä‘:
ersetzen(2, ‚A‘, ‚E‘);
‚ö‘, ‚Ö‘:
ersetzen(2, ‚O‘, ‚E‘);
‚ü‘, ‚Ü‘:
ersetzen(2, ‚U‘, ‚E‘);
‚ß‘:
ersetzen(2, ‚S‘, ‚S‘);
‚a‘..’z’:
ersetzen(1, gross(zeichen), ‚-‘);
‚A‘..’Z’:
ersetzen(1, zeichen, ‚-‘);
‚0‘..’9':
ersetzen(1, zeichen, ‚-‘);
END E END N D; { CASE }
END E END N D; { WHILE not eoln }
readln(datei);
END E END N D;{While not eof}
close(datei);
text_ausgeben;
IF IF NOT NOT NNOT NOT O T STANDARD_ERFASSEN THEN
THEN
standard_laden;
END E END N D; { bereinigt_laden }
32