Нужно исправить код

← →
Шурик (2008-11-30 11:33) [0]

Нужно реализовать задачу по шифрованию кода Трасмуса. Если кто не знает, суть такая: Таблица 6х5, не учитываем Ё Ъ Й, в нее на первое место ставим слов которое хотим зашифровать (слово не должно иметь повторяющихся букв), затем из всего русского алфавита исключаем буквы которые содержит слово и добавляем их в массив. Пример:
зашифрованное слово стол
СТОЛаб
вгдежз
икмнпр
уфх...
Далее букве с присваиваем букву в, т - г, 0 - д, л-е. Шифр у нас получился ВГДЕ. Я написал код для реализации данного шифра, но ничто не получается, помогите, пожалуйста исправить
ar
Mas: Array[1..6,1..5] of string;
i,j,m,o,k: integer;
t,s: string;
KEY: string;
c, c2: char;
begin
t:= Edit1.Text;// это типа слово которое хотим зашифровать
s:= "АБВГДЕЖЗИКЛМНОПРСТУФХЦЧШЩЬЫЭЮЯУФХЦШЩ";
for i:= 1 to 6 do
for j:= 1 to 5 do
for k:= 1 to Length(t) do
for o:= 1 to 30 do
begin
c:=t[k];
c2:=s[o];
if c=c2 then
delete(s,i,1); //ищем буквы из эдит1 в s, одинаковые удаляем
Mas[i,j]:=copy(t,o,1); // тут ерунда получилась, нужно в массив добавить слово из эдит1 и остальные буквы алфавита попорядку.

mas[1,1]:=edit1.text;
for i:= 1 to 6 do
for j:= 1 to 5 do
if not ((i=1) and (j=1)) then
mas[i,j]:=s[(i-1)*5+j-1];// этот код мне предложили для обавления в массив, не знаю правильный ли он.
Дальше нужно присвоить слову которое хотим зашифровать буквы для шифровки, получается что надо для каждой буквы присвоить букву, стоящую 6 от нее.
Затем зашифрованное слово добавляем в эдит2

end;
end;

end.

← →
Ega23 © (2008-11-30 11:45) [1]

> Mas[i,j]:=copy(t,o,1); // тут ерунда получилась, нужно
> в массив добавить слово из эдит1 и остальные буквы алфавита
> попорядку.

Исправь, чтобы была не ерунда.

> mas[i,j]:=s[(i-1)*5+j-1];// этот код мне предложили для
> обавления в массив, не знаю правильный ли он.

Разберись. Узнай, правильный ли это код.

Нужно исправить код Найти похожие ветки