Guten Morgen,
Zitat:
2.Nun wird von dem Text in v1 jeder zweite Buchstabe weggenommen und hinten angesetzt:
ADCAABHAGFHEHI
=
A C A H G H H
D A B A F E I
Delphi-Quellcode:
function moveChar(s:String;mv :Byte):String;
var
i:byte;
s1:String;
begin
s1:='';
for i:=1 to length(s) do
if i mod mv <> 0 then
s1:=s1+s[i];
for i:=1 to length(s) div mv do
s1:=s1+s[i*mv];
result := s1;
end;
Zitat:
3.Das letze Ergebnis in v2 umwandeln:
y=CG=35 Ac AH GH HD AB AF EI
z=CH=36 =
A=CI=37 11 16 76 82 99 14 57
B=DA=38 =
C=
DB=39 11167682991457
Hierbei wäre es angebracht wenn v2 vom Typ String oder shortString wäre.
Mit dem Typ Integer kannst Du die Ziffern nicht so zusammenhängen.
Zitat:
5.Das Ergebnis in n umwandeln:
11 78 91 51 66 29 47
=
c . ! M 1 t J
=
c.!M1tJ
Hierbei hilft Dir die Function
StrToInt und
chr.
Du mußt aus Deinem String nur immer zwei Zeichen zusammenfassen.
Delphi-Quellcode:
function convert(s:string):String;
var
i:Byte;
s1 :String;
begin
s1:='';
for i:=0 to length(s)-1 div 2 do
begin
s1:=s1+chr(StrToInt(s[(i*2)+1]+s[(i*2)+2]));
end;
end;
Für den Anfang sollte das erst einmal reichen.
Das ist alles ungetestet und soll Dir nur ein paar Denkanstöße geben.
Grüße
Klaus