|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
шифрование и дешифрование
задача: записать текст в матрицу 6х7 по столбцам и вывести полученный текст построчно.может кто помочь?
|
#2
|
|||
|
|||
Ну и что тут сложного.
Матрица 6х7 -> двумерный массив. Делишь текст на слова (ну или как там тебе делить надо) и загоняешь в список. Далее просто прописываешь в соответсвующие элементы. Т.е. у тебя будет 3 цикла, но один из них особенный. типа: Код:
var I, J, K : Integer; A : Array [1..6,1..7] Of String; L : TStringList; // <- здесь разбирый на слова текст. begin // Здесь код разбиения на слова и складывания в список // Здесь "упаковываем" список в матрицу K := 0; For I := 1 To 7 Do For J := 1 To 6 Do Begin If K >= L.Count Then A[J,I] := '' Else Begin A[J,I] := L[K]; Inc(K); End; End; end; |
#3
|
|||
|
|||
спасибо большое )
|
#4
|
|||
|
|||
You are wellcome!
|