1.1 Variablen-Deklaration - wieso denn das?
1.2 Bisher bekannte Datentypen
1.3 Der kleinste mögliche Datentyp: Boolean
1.4 Typumwandlungen

     var n : Integer;

     int n;

1. sie weist den Compiler an, in dem Programm dafür zu sorgen, dass zur Laufzeit für eine im Programmtext "n" genannte Variable Speicherplatz reserviert wird;
2. die Angabe des Typs der Variablen (in Delphi "Integer" und in Java "int") liefert die Information, in welchem Format die Variable im Speicher steht, also wieviele Bytes Speicherplatz sie benötigt und was die einzelnen Bits dabei bedeuten.

     n := 137682; 

     n = 137682; 

     D2h 19h 02h 00h

In einer WHILE-Schleife sollen die Quadrate der natürlichen Zahlen von 1 bis 10 zusammengezählt werden.



In Delphi: Links sehen Sie, wie wir dies bisher programmiert haben. Die Variante rechts verwendet eine zusätzliche boolsche Variable namens "not_ready", welche das Auftreten des Wahrheitswertes verdeutlicht: var i, s : Integer; begin s := 0; i := 1; While i <= 10 do begin s := s + i*i; i := i + 1; end; end; var i, s : Integer; not_ready : Boolean; begin s := 0; i := 1; not_ready := True; While not_ready do begin s := s + i*i; i := i + 1; not_ready := i <= 10; end; end;

In Java: Links sehen Sie, wie wir dies bisher programmiert haben. Die Variante rechts verwendet eine zusätzliche boolsche Variable namens "not_ready", welche das Auftreten des Wahrheitswertes verdeutlicht: int s = 0; int i = 1; while (i <= 10) { s = s + i*i; i = i + 1; }; int s = 0; int i = 1; boolean not_ready = true; while not_ready { s = s + i*i; i = i + 1; not_ready := i <= 10; };


(Zugegeben, das Beispiel ist künstlich. Es dient lediglich dazu, den Umgang mit boolschen Variablen zu veranschaulichen. Kaum jemand würde die oben gestellte Aufgabe auf die angegebene Art und Weise lösen wollen. Zunächst ist hier eine REPEAT-Schleife sehr viel naheliegender als eine WHILE-Schleife, aber eigentlich ist die Aufgabe ein typischer Fall für eine FOR-Schleife! Und da wir dort keine Bedingung mehr zu verwalten haben, entfällt dann auch die Versuchung, zu einer boolschen Variablen zu greifen.)

     If CheckBox1.Checked then
       ......
     else
       ......;
   

     if (checkBox1.State) {
       .........
     } else {
       .........
     };
   

 If Checkbox1.Checked AND NOT Checkbox2.Checked then
   ........;

 oder:

 If Checkbox1.Checked OR ((s >= 3) AND (s <= 7)) then
   .........;

 if (Checkbox1.State && !Checkbox2.State) {
   ....... }

 oder:

 if ( Checkbox1.Checked || ((s >= 3) && (s <= 7)) ) {
   ....... }

Es wird eine kleine natürliche Zahl s (< 26) gewählt.
Der verschlüsselte Text wird erzeugt, indem jeder Buchstabe des Originaltextes durch denjenigen Buchstaben ersetzt wird, der im Alphabet s Stellen weiter hinten steht.

  a := Byte(u);
    { Typ-Umwandlung Zeichen -> Zahl }

  n := a - Byte('A')
    { Verschiebung ASCII-Nr von 'A' -> 0  }

  m := (n + s) MOD 26
    { Verschiebung um s Zeichen  }

  b := m + Byte('A');
    { Verschiebung  0 -> ASCII-Nr von 'A' }
  v := Char(b);
    { Typ-Umwandlung Zahl -> Zeichen }

  a = (int) u;
    // Typ-Umwandlung Zeichen -> Zahl

  n = a - (int) 'A';
    // Verschiebung  ASCII-Nr von 'A' -> 0 

  m = (n + s) % 26;
    // Verschiebung um s Zeichen 

  b = m + (int) 'A';
    // Verschiebung  0 -> ASCII-Nr von 'A'
  v = (char) b;
    // Typ-Umwandlung Zahl -> Zeichen

Aufgaben:

1. Die Caesar-Verschlüsselung:
   
   Schreiben Sie ein Programm "Caesar", das die Eingabe einer kleinen Zahl s und eines einzeiligen Textes gestattet und dann auf Knopfdruck diesen Text in einem zweiten Edit-Feld Caesar-verschlüsselt mit Verschiebung s ausgibt.
   
   Deklarieren Sie dazu eine Funktion "encrypted", die das zu verschlüsselnde Zeichen und die Verschiebung übergeben bekommt und das verschlüsselte Zeichen zurückliefert.
   
   Sie können dasselbe Programm auch zum Entschlüsseln nehmen, indem Sie den verschlüsselten Text ins erste Edit-Feld eintragen und dann ein zur Verschiebung s passendes s* wählen. Wie müssen s und s* zusammenhängen?
   
   Bequemer wäre es allerdings, wenn man den entschlüsselten Text immer in der ersten und den verschlüsselten Text immer in der zweiten Textbox hätte und die Ver- bzw. Entschlüsselung mit jeweils einem eigenen Knopf ausgelöst würde. Schreiben Sie dazu zusätzlich eine Funktion "decrypted", die zu jedem verschlüsselten Zeichen das zugehörige unverschlüsselte zurückliefert, und benutzen Sie diese, um den Text aus der zweiten Edit-Komponente entschlüsselt in der ersten auszugeben.
   
   
   Lösungsvorschlag [Delphi] [Java]
   
   
   
   
2. Die Vigenère-Verschlüsselung:
   
   Eine Weiterentwicklung des Caesar-Verfahrens ist die Vigenère-Verschlüsselung. Dabei wird jedes Zeichen des Textes mit einer durch ein Schlüsselwort bestimmten Verschiebung Caesar-verschlüsselt:
   
   
   1. Zunächst wird unter die Nachricht so oft wiederholt das Schlüsselwort geschrieben, bis unter jedem Buchstaben der Nachricht ein Buchstabe des Schlüsselwortes steht.
      
      
   2. Dann wird jeder Buchstabe der Nachricht mit derjenigen Verschiebung Caesar-verschlüsselt, die durch die Position des darunterstehenden Schlüsselbuchstabens im Alphabet bestimmt ist.
      (Beispiel: Unter dem Nachrichten-Buchstaben "D" stehe der Schlüsselbuchstabe "K". Dieser führt zu einer Verschiebung um s = 10; das "D" wird also so in ein "N" verschlüsselt.)
      
   
   Schreiben Sie ein Programm "Vigenere", das die Eingabe eines Schlüsselwortes und eines einzeiligen Textes gestattet und dann auf Knopfdruck diesen Text in einem zweiten Edit-Feld Vigenère-verschlüsselt ausgibt. Implementieren Sie auch die Entschlüsselung!
   
   Damit dieses Programm schön übersichtlich strukturiert wird, sollten Sie zunächst auch hier wieder (genau wie in der vorigen Aufgabe) eine Funktion "encrypted" implementieren, diesmal aber mit 2 Char-Parametern: dem zu verschlüsselnden Buchstaben der Botschaft und dem zugeordneten Schlüsselbuchstaben. Die eigentliche Ver- (und Ent-!) schlüsselung sollte dann durch Aufrufe dieser Funktion erledigt werden.
   
   
   Lösungsvorschlag [Delphi] [Java]