Kryptologie - Informatik

PROCEDURE PROCEDURE interAktion;
VAR V VAR A R altPosi, neuPosi: point;
altBuch, neuBuch: char;
PROCEDURE PROCEDURE statistik (wo: rect; was: integer);
VAR
VAR
i, dh, dv, dx, d2, li, mi, mm, maxi: integer;
faktor: real;
balken: rect;
BEGIN
BEGIN
IF I IF F buchstaben[was, 1].anzahl > standard[was, 1].anzahl THEN
THEN
maxi := buchstaben[was, 1].anzahl
ELSE
ELSE
maxi := standard[was, 1].anzahl;
dh := (wo.bottom - wo.top) DIV DIV 28;
dv := (wo.right - wo.left) DIV DIV 2;
d2 := dh DIV D DIV I V 2 - 2;
li := wo.left + 30;
mi := li + dv;
mm := wo.top - 4;
faktor := (dv - 40) / maxi;
textFace([]);
textSize(9);
foreColor(yellowColor);
paintRect(wo);
foreColor(blueColor);
moveto(wo.left + 3, wo.top + dh + 3);
CASE CASE CASE was OF
OF
1: writeDraw(‚Buchst. Standard TextVorlage‘);
2: writeDraw(‚Paare Standard TextVorlage‘);
3: writeDraw(‚Tripel Standard TextVorlage‘);
END E END N D; { CASE }
FOR F FOR O R i := 1 TO T TO O 26 DO
DO
BEGIN
BEGIN
moveto(wo.left + 3, wo.top + (i + 2) * dh);
dx := round(faktor * standard[was, i].anzahl);
writeDraw(standard[was, i].tripel);
setRect(balken, li, mm + (i+2) * dh - d2, li + dx, mm + (i+2) * dh + d2);
paintRect(balken);
END END; END
FOR F FOR O R i := 1 TO T TO O 26 DO
DO
BEGIN
BEGIN
moveto(wo.left + 3 + dv, wo.top + (i + 2) * dh);
dx := round(faktor * buchstaben[was, i].anzahl);
writeDraw(buchstaben[was, i].tripel);
setRect(balken, mi, mm + (i+2) * dh - d2, mi + dx, mm + (i+2) * dh + d2);
paintRect(balken);
END END; END END
textSize(TS);
textface([bold]);
END E END N D; { statistik }
44