Kryptologie - Informatik

PROCEDURE PROCEDURE textAnalyse (single: boolean);
CONST CONST MAX = 225;
TYPE TYPE haeuf = ARRAY ARRAY[1..MAX] ARRAY
OF O OF F typ3;
VAR V VAR A R aktuelle_Anzahl, max_anzahl, vorher, i : integer;
B_haeuf : ARRAY ARRAY[‚A‘..’Z’] ARRAY
OF OF OOF OF F integer;
haeufigkeit : haeuf;
FUNCTION FUNCTION sortiert_und_reduziert_auf (VAR VAR VVAR A R h: haeuf; typ, fest: integer): integer;
VAR V VAR A R i, k: integer;
hilf: typ3;
BEGIN
BEGIN
FOR F FOR O R i := 1 TO TO TTO TO O aktuelle_anzahl - 1 DO DO
DO
FOR F FOR O R k := i + 1 TO T TO O aktuelle_anzahl DO
DO
IF IF IIF IF F h[i].anzahl < h[k].anzahl THEN
THEN
BEGIN BEGIN BEGIN { tauschen }
hilf := h[i];
h[i] := h[k];
h[k] := hilf;
END END E END N D; { tauschen }
sortiert_und_reduziert_auf := fest;
IF IF I IF F fest = 26 THEN
THEN
FOR F FOR O R i := 1 TO T TO O 26 DO
DO
BEGIN
BEGIN
buchstaben[typ, i].tripel := haeufigkeit[i].tripel;
buchstaben[typ, i].anzahl := round(haeufigkeit[i].anzahl / gesamt * 1000);
END END; END
END E END N D; { sortiert_und_reduziert_auf }
PROCEDURE PROCEDURE histogramm (maxWert: integer);
VAR VAR VVAR VAR A R i, k, proMille : integer;
faktor : real;
BEGIN
BEGIN
faktor := ((konsole.right - konsole.left) / 8 - 12) / maxWert * gesamt / 1000;
FOR FOR FFOR FOR O R i := 1 TO T TO O aktuelle_Anzahl DO
DO
WITH WITH haeufigkeit[i] DO
DO
BEGIN
BEGIN
proMille := round(anzahl / gesamt * 1000);
write(tripel, ‚:‘, proMille / 10 : 6 : 1, ‚ % ‚);
FOR F FOR O R k := 1 TO TO TTO TO O round(proMille * faktor) DO
DO
BEGIN
BEGIN
write(‚•‘);
END END; END END
writeln;
END E END N D; { WITH haeufigkeit }
END E END N D; { histogramm }
PROCEDURE PROCEDURE titel (ttt: STRING);
BEGIN
BEGIN
writeln;
writeln(ttt);
writeln;
END E END N D; { titel }
39