Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.11.2008, 18:52   #1
Шура
Пользователь
 
Регистрация: 19.11.2008
Сообщений: 18
По умолчанию Цикл в массиве

Задача такая массив выглядит размером 6х5 выглядит к примеру так
КОШКАБ
АОЛЫВЛ
ЫВАПАП
МИТАРО
МИРОТЧ

Слово кошка мы берем из Edit1, под буквой К находится буква А, под буквой О буква О, под Ш буква Л, под К буква Ы, под А - В, необходимо слову которое у нас встает на превое место в массиве (в данном случае кошка) каждой букве слова присвоить букву, стоящую под ней, т.е. нужно чтоб в поле мемо выводилось не слово кошка а АОЛЫВ
P.S. мне нужно организовать сам цикл присваивания слову кошка букв АОЛЫВ

Последний раз редактировалось Шура; 26.11.2008 в 18:54.
Шура вне форума Ответить с цитированием
Старый 26.11.2008, 20:01   #2
AlexanderPeshkov
Пользователь
 
Регистрация: 24.11.2008
Сообщений: 26
По умолчанию

for i:=0 to 5 do
begin
masiv[1,i]:=masiv[2,i];
end;
ты пытаешься сделать упращенный вариант шифрования по таблицам виженера?
AlexanderPeshkov вне форума Ответить с цитированием
Старый 27.11.2008, 10:39   #3
Шура
Пользователь
 
Регистрация: 19.11.2008
Сообщений: 18
По умолчанию

Цитата:
Сообщение от AlexanderPeshkov Посмотреть сообщение
for i:=0 to 5 do
begin
masiv[1,i]:=masiv[2,i];
end;
ты пытаешься сделать упращенный вариант шифрования по таблицам виженера?
Неа, я пытаюсь сделать из отдельных кусков шифр Трасмуса 1 вариант
Шура вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
цикл if... then..else DeDoK Общие вопросы Delphi 8 11.10.2008 11:31
Цикл Sota Паскаль, Turbo Pascal, PascalABC.NET 1 24.03.2008 19:50
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until) Mr.User Помощь студентам 9 23.11.2007 01:34
3-ой цикл LeoN Общие вопросы Delphi 5 12.06.2007 14:15