Kryptologie - Informatik

FUNCTION FUNCTION uebernehmen_von (bbb: hist): integer;
VAR V VAR A R i, www: integer;
BEGIN
BEGIN
FOR F FOR O R i := 1 TO T TO O 26 DO DO
DO
BEGIN
BEGIN
www := round(bbb[i].anzahl / 1000 * vorher);
haeufigkeit[i].anzahl := www;
haeufigkeit[i].tripel := bbb[i].tripel;
END END END; END
uebernehmen_von := 26;
END E END N D; { uebernehmen_von }
BEGIN BEGIN { textAnalyse }
vorher := gesamt;
showText;
buchstabenhaeufigkeit;
writeln;
writeln(‚—————‘, gesamt : 5, ‚ Buchstaben ——————‘);
writeln;
pause(60);
titel(‚————— Buchstaben unsortiert ——————‘);
aktuelle_anzahl := 26;
histogramm(max_anzahl);
aktuelle_anzahl := sortiert_und_reduziert_auf(haeufigkeit, 1, 26);
writeln;
writeln(‚••••• KLICK to CONTINUE •••••‘);
REPEAT
REPEAT
UNTIL UNTIL button;
writeln;
titel(‚————— Bigramme sortiert ——————‘);
IF I IF F single THEN
THEN
aktuelle_anzahl := 0
ELSE
ELSE
aktuelle_anzahl := uebernehmen_von(buchstaben[2]);
FOR F FOR O R i := 2 TO T TO O textlaenge - 1 DO
DO
BEGIN
BEGIN
aktuelle_anzahl := erfasse(2, i);
IF I IF F aktuelle_anzahl >= max THEN
THEN
aktuelle_anzahl := sortiert_und_reduziert_auf(haeufigkeit, 2, MAX DIV DIV DIV 3);
END END; END
aktuelle_anzahl := sortiert_und_reduziert_auf(haeufigkeit, 2, 26);
histogramm(haeufigkeit[1].anzahl);
titel(‚————— Trigramme sortiert ——————‘);
IF I IF F single THEN
THEN
aktuelle_anzahl := 0
ELSE
ELSE
aktuelle_anzahl := uebernehmen_von(buchstaben[3]);
FOR F FOR O R i := 3 TO T TO O textlaenge - 1 DO
DO
BEGIN
BEGIN
aktuelle_anzahl := erfasse(3, i);
IF I IF F aktuelle_anzahl >= max THEN
THEN
aktuelle_anzahl := sortiert_und_reduziert_auf(haeufigkeit, 3, MAX DIV DIV DIV 3);
END END; END
aktuelle_anzahl := sortiert_und_reduziert_auf(haeufigkeit, 3, 26);
histogramm(haeufigkeit[1].anzahl);
END EEND END N D; { textAnalyse }
41