Здравтствуйте!
Очень прошу помогите пожалуйста если можно скорее до завтра, очень и очень нужно.
Суть такая: в одно поле Memo записывается текст далее нажимаем на кнопку и этот текст шифроуется по следующему принципу и выводится в другое поле Memo:
Сообщение вписывается в квадратную матрицу и выписывается "змейкой" в указанном порядке:

1 2 3 4 5
6 7 8 9 A
B C D E F
G H I  J K
L M N O P

Результат: 5 A 4 3 9 F K E 8 2 1 7 D J P O I C 6 B H N G M L

Трудность в алгоритме шифрования.
Не могу сделать этот алгоритм. Очень очень прошу помогите.
За ранее всем большущее СПАСИБО.    

Далеко не любой текст имеет длинну корень из которой будет целым числом, придется добавлять пробелы, или еще какие нибудь спец символы. 

Я понимаю это. Просто вместо пробелов можно поставить звездочку (*). Но как это сделать я не могу сообразить. 

Сегодня только вечером смогу выложить, ели отлажу. 

Большущее спасибо! Буду ждать.  

Rusman, матрицу сам заполнишь? Я задал ее константой. Вот дальнейшие действия:
 

Спасибо! Пытаюсь разобраться, но что-то не получается. Я беру читаю матрицу из 1-ого поля Мемо, но ведь корень из кол-во букв  некоторого текста не получиться целым числом, нужно добавить пробелы и в пробелы вставить какие нибудь симовлы.

Добавлено @ 11:28 
Пока буду пробовать что-то делать с вариантом Yanis.
volvo877, буду ждать твоего варианта.
Всем вам огромное спасибо за помощь!

Добавлено @ 11:29 
Извините, перепутал имена. Жду вариант Yanis-а 

Rusman,
а ведь alexeis1, тебе об этом и говорил... Построчно заполняй матрицу, и все НЕзаполненные тобой элементы заполняй пробелами (или какими-то другими символами), а еще лучше - сначала FillChar-ом заполни всю матрицу каким-то сиволом, а потом заноси в нее буквы - все, на что не хватит букв исходной строки, останется равным заданному тобой символу.

Потом шифруй... 

Для заполнения матрицы текстом из мемо мне код удалось написать


Добавлено @ 11:41 
А вот дальше что-то никак... 

Это сообщение отредактировал(а) alexeis1 - 5.5.2006, 11:41

p.s. матрица получается по индексам volvo877. т.е. для его кода. 

Ура! Сделал. Большое спасибо всем! Щас буду пытаться делать расшифровку. 
Еще хочу вас попросить объяснить некоторые моменты в этой программе. Сейчас я её разберу и напишу что не могу понять. Если вы можете, то пожалуйста объясните.
Спасибо за внимание! 

1. Что такое Trunc. 
2. Что такое Inc.
3.Что такое Until.
4. За что обозначили Count.
5. Что такое Dec. 

Rusman,
F1 заклинило?

Dec(X) равносильно x := x - 1
Inc(X) равносильно x := x + 1
Trunc(x) - целая часть числа Х

Repeat ... Until условие
это один из циклов (с постусловием)

Ну, а Count (как я понимаю, в моей процедуре) - это количество обработанных символов матрицы. Цикл должен продолжаться до тех пор, пока не будут обработаны Sqr(n), то есть n*n символов (другими словами - вся матрица) 

1. Trunc отбрасывет от числа дробную часть
2. Inc увеличивает значение переменной на единицу
3. Until...repeat - это цикл с постусловием. Те команды, которые находятся между командами until и repeat, будут повторятся, пока верно условие (оно находится после команды until, в нашем случае это count >= sqr(n))
4. Не совсем понял вопрос.
5. Dec уменьшает значение переменной на единицу 

 Trunc - отсечение дробной части.результат integer;

  Inc(i) - тоже что i := i + 1; для Integer; если inc(i, 3); -   i := i + 3  

  repeat  Until - опрераторные скобки цикла.
  ВЫПОЛНЯЕМ
  ..................
  ПОКА (....) НЕ БУДЕТ ИСТИНЫМ(TRUE) 
  Count - текущая позиция(индекс символа) в шифрованной строке

  Dec - обратное inc i := i - 1;  если dec(i, 3); -   i := i - 3;  
-----------------------
  
  ничего себе сколько человек отозвалось
            

Это сообщение отредактировал(а) alexeis1 - 5.5.2006, 14:26