Kryptologie - Informatik

PROGRAM PROGRAM PROGRAM stringTests; stringTests;
{ --------- Beispielprogramm --------- }
VAR VAR V VAR A R num : longInt;
L, P, N : integer;
xStr, yStr : string;
zStr : str255;
c : char;
{ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ Ausgabe }
BEGIN
BEGIN
xStr := ‚Berta ist eine gute‘;
writeln(‚xStr :‘, xStr);
xStr :=concat(‚Tante ‚, xStr,‘ Frau’);
{ xStr: Berta ist eine gute }
writeln(‚xStr :‘, xStr);
P := pos(‚gute‘, xStr);
{ xStr: Tante Berta ist eine gute Frau }
writeln(‚pos(„gute“, xStr) =’, P);
xStr := omit(xStr, P, 5);
{ pos(„gute“, xStr) = 22 }
writeln(‚xStr :‘, xStr);
L := length(xStr);
{ xStr :Tante Berta ist eine Frau }
writeln(‚length(xStr) =‘, L);
yStr := copy(xStr, 7, L - 6);
{ length(xStr) = 25 }
writeln(‚yStr :‘, yStr);
P := pos(‚eine‘, yStr);
insert(‚k‘, yStr, P);
{ yStr: Berta ist eine Frau }
writeln(‚yStr :‘, yStr);
delete(yStr, 3, 16);
{ yStr: Berta ist keine Frau }
writeln(‚yStr :‘, yStr);
c:=yStr[2]);
{ yStr: Beau }
writeln(‚yStr[2] : ‚, c); { yStr[2] : e }
writeln(‚pred(yStr[2]) : ‚, pred(c); { pred(yStr[2]) : d }
writeln(‚succ(yStr[2]) : ‚, succ(c); { succ(yStr[2]) : f }
writeln(‚chr(64) = ‚, chr(64)); { chr(64) = @ }
writeln(‚chr(65) = ‚, chr(65)); { chr(65) = A }
writeln(‚ord(„B“) = ‚, ord(‚B‘) : 2); { ord(„B“) = 66 }
writeln(‚ord(„C“) = ‚, ord(‚C‘) : 2);
zStr := ‚123‘;
stringToNum(zStr, num);
{ ord(„C“) = 67 }
writeln(‚num :‘, num);
num := 3 * 123;
numToString(num, zStr);
{ num: 123 }
writeln(‚zStr :‘, zStr);
END END. END
{ zStr: 369 }
| ---- Steuerzeichen ---- | ----------------------------- Schriftzeichen ---------------------------------- |
HEX 00 10 20 30 40 50 60 70
0 NUL 0 DLE 16 320 48@ 64P 80 96p 112
1 SOH 1 DC1 1 7 ! 331 49A 65Q 81a 97q 113
2 STX 2 DC2 1 8 " 342 50B 66R 82b 98r 114
3 ETX 3 DC3 1 9 # 353 51C 67S 83c 99s 115
4 EOT 4 DC4 2 0 $ 364 52D 68T 84d 100 t 116
5 ENQ 5 NAK 2 1 % 375 53E 69U 85e 101 u 117
6 ACK 6 SYN 22& 386 54F 70V 86f 102 v 118
7 BEL 7 ETB 23' 397 55G 71W 87g 103 w 119
8 BS 8 CAN 2 4 ( 408 56H 72X 88h 104 x 120
9 HT 9 EM 2 5 ) 419 57I 73Y 89i 105 y 121
A LF 10SUB 2 6 * 4 2 : 58J 74Z 90j 106 z 122
B VT 11ESC 2 7 + 4 3 ; 59K 7 5 [ 91k 1 07
{ 123
C FF 12FS 2 8 , 4 4 < 60L 7 6 \ 92l 1 08
| 124
D CR 13OS 29- 4 5 = 61M 7 7 ] 93m 1 09
} 125
E SO 14RS 3 0 . 4 6 > 62N 78^ 94n 1 10
— 126
F SI 15US 3 1 / 4 7 ? 63O 79_ 95o 111 DEL 127
7