![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте, ситуация такая: есть сообщение которое хранится в массиве начиная со второй строки, и есть ключевое слово которое заносится в первую строку массива но в отсортированном по алфавиту виде, затем надо в массиве менять местами столбцы так чтобы получить обратно исходное ключевое слово, таки образом выполнив шифрование.
Для реализации этого написал вот такое, но работает не очень Код:
procedure TMainForm.SortMas; var i,j,p,h:integer; x:char; begin for p := 1 to Length(st) do for j:=0 to m-1 do if A[0,j]= st[p] then begin for h := 0 to n-1 do begin x:=a[h,j]; a[h,j]:=a[h,p-1]; a[h,p-1]:=x; end; end; end; где st - ключевое слово этот алгоритм при некоторых значениях ключевого слова его восстанавливает не правильно, а также он мне вообще не совсем подходит поскольку надо чтоб если в ключевом слове есть одинаковые буквы то они должны упорядочивается по алфавиту слева направо а потом восстанавливаться на свои места, а в данном случаи они могут перемешаться. Прошу Вас доработать этот алгоритм или предложить другой, если надо могу выложить исходники. |
#2
|
||||
|
||||
![]() В чём заключается идея? Это задание или для себя?
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#3
|
|||
|
|||
![]() Задание, шифрование/дешифрование текста, шифрованный текст это как раз и будет текст из массива после перестановки.
|
#4
|
||||
|
||||
![]() Вообще вариаций решения масса. Вот один из примеров:
Код:
var s: string; procedure Code(var text: string; password: string; decode: boolean); var i, PasswordLength: integer; sign: shortint; begin PasswordLength := length(password); if PasswordLength = 0 then Exit; if decode then sign := -1 else sign := 1; for i := 1 to Length(text) do text[i] := chr(ord(text[i]) + sign * ord(password[i mod PasswordLength + 1])); end; Пример использования: Код:
procedure TForm1.Button1Click(Sender: TObject); begin s := Memo1.Text; code(s, Edit1.Text, false); Memo1.Text := s; end; procedure TForm1.Button2Click(Sender: TObject); begin code(s, Edit1.Text, true); Memo1.Text := s; end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |