Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
VIGENERECIJFER
program VigenereCijfer; var lettermatrix: array['A'..'Z','A'..'Z'] of char; sleutel: string; boodschap: string; patroon: string; rijletter, kolomletter: char; tmp: char; i, j: byte; begin patroon := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'; for rijletter := 'A'to 'Z' do begin for kolomletter := 'A'to 'Z' do lettermatrix [rijletter, kolomletter] := patroon[1+ord(kolomletter)-ord('A')]; tmp := patroon[1]; for i := 1 to 25 do patroon[i] := patroon[i+1]; patroon[26] := tmp; end; readln(sleutel); readln(boodschap); j := 1; for i := 1 to length(boodschap) do begin write(lettermatrix[boodschap[i],sleutel[j]]); if ( j<length(sleutel) ) then j := j+1 else j := 1; end; end.
run
|
edit
|
history
|
help
0
nomer9
1
Triangle.pas
Урок 3, задача 10 (1483). Два момента времени
Mat
[DE/GER] Caesar Chiffre (Verschlüsseln)
GABRIELLA ALVES DA SILVA 600307538
Project 16 Pascal
test12
lecturas