1. Erläutern Sie den folgenden Verschlüsselungsalgorithmus!
Delphi-Quellcode:
procedure TKryptobox.Verschluesseln;
(* -------------------------------------------------------------- *)
var
i : integer;
begin
Geheimtext := '' ;
Vorbehandeln(Klartext);
i := 1;
while i <= length(klartext) do
begin
geheimtext := geheimtext + klartext[i];
i := i + 3;
end;
i := 2;
while i <= length(klartext) do
begin
geheimtext := geheimtext + klartext[i];
i := i + 3;
end;
i := 3;
while i <= length(klartext) do
begin
geheimtext := geheimtext + klartext[i];
i := i + 3;
end;
end;
Optimieren Sie den Algorithmus durch Einführung einer weiteren Schleife!
2. Schreiben Sie ein Unterprogramm, das einen eingegebenen Text invertiert, zunächst als Struktogramm, dann als Pascal-Unterprogramm (Prozedur und Funktion)!
3. Erstellen Sie einen Algorithmus, der in einem übergebenen Text die Häufigkeit eines übergebenen Zeichens bestimmt und zurückliefert. Schreiben Sie den Algorithmus als Pascal-Unterprogramm (Funktion und Prozedur)!
Notieren Sie zu beiden Unterprogrammen jeweils einen Aufruf in einem anderen Programmteil und die dazu notwendigen Variablendeklarationen.
----------------------------------------------------------------------------------------------
Kann mir bitte jemand bei der Beantwortung der Fragen helfen, da ich absolut keine Ahnung davon hab. (1. bekomm ich hin, aber 2. und 3. nicht...)