|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
15.01.2008, 17:14 | #1 |
Регистрация: 11.01.2008
Сообщений: 9
|
Qbasic, шифрование
Написали и сдали программу шифрования "из буковок в циферки". Помогите, пжлста, написать "из циферок в буковки" на основе той программы!
Вот "из буковок в циферки": cls kl$="йцукенгшщзхъфывапро...(символы даллее, буквы и знаки препинания)..." DIM a$(LEN(kl$)+100) FOR i=1 to len (kl$) a$ (i+99)=MID(kl$, i, 1) PRINT a$(i+99); i+99; ""; NEXT INPUT n$ For j=1 to len (n$) k$=MID$(n$, j, 1) For i=100 to (LEN(kl$)+100) IF a$(i)=k$ then f$=f$+MID$(STR$(i),2,3) NEXT NEXT PRINT f$ А как теперь наоборот? Последний срок - 23 число, потому что 25 уже сдача, а еще нужно время, чтобы программку выучить и уметь рассказать, о чём она. Буду очень благодарна, если еще и с объяснениями всё будет. Если есть вопросы, касающиеся программы первой, стучите в асю: 259708102 |
17.01.2008, 09:22 | #2 |
Забанен
Форумчанин Подтвердите свой е-майл
Регистрация: 01.11.2006
Сообщений: 420
|
Ваш переделанный алгоритм шифрования
без всяких массивов Код:
Код:
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
|
17.01.2008, 18:59 | #3 |
Регистрация: 11.01.2008
Сообщений: 9
|
СПАСИБО!
Извините, я ничего в этом не понимаю, и, возможно, вопрос покажется глупым, не смейтесь)) Мне нужно, чтобы было так: вверху отображаются все буковки, которые можно шифровать, каждая под своим собственным номерком. Чтобы потом, когда зашифруешь, можно было бы проверить соответствие буковок и циферок (информатик потом проверяет, напортачили или нет). Мне нравится программка, которую вы сделали, Plague. Она поменьше, поэтому мне кажется попроще... Пожалуйста! Если можно, сделайте буковки! Красиво как-нибудь, ровненькими столбиками? Очень-очень буду благодарна! Последний раз редактировалось Лицеистка; 17.01.2008 в 19:19. |
17.01.2008, 20:58 | #4 |
Забанен
Форумчанин Подтвердите свой е-майл
Регистрация: 01.11.2006
Сообщений: 420
|
Код:
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
|
20.01.2008, 08:03 | #5 |
Регистрация: 11.01.2008
Сообщений: 9
|
Спасибо! Столбики очень красивые, только вот программка дешифрации не запускается, пишет, что s$ = s$ + MID$(kl$, a, 1) - неверный выззов функции.
|
20.01.2008, 12:11 | #6 |
Забанен
Форумчанин Подтвердите свой е-майл
Регистрация: 01.11.2006
Сообщений: 420
|
kl$, то кто будет указывать в начале программы.
как я понял это ключ к дешифрации Код:
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
|
20.01.2008, 13:27 | #7 |
Регистрация: 11.01.2008
Сообщений: 9
|
Я все указала... Не выходит и все тут...
|
21.01.2008, 17:10 | #8 |
Регистрация: 11.01.2008
Сообщений: 9
|
Блин... Какие-нибудь еще есть варианты? Программка plaque не работает. Через программку plaquе только из уже зашифрованного снизу выводится слово. Может быть, задумано им было не так, но по-другому программа не работает.
Нужно теперь чтобы я вводила, например, "100" и получала букву "q"! |
22.01.2008, 06:34 | #9 |
Забанен
Форумчанин Подтвердите свой е-майл
Регистрация: 01.11.2006
Сообщений: 420
|
Ну надо просто добавить
Код:
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
|
22.01.2008, 10:07 | #10 |
Регистрация: 11.01.2008
Сообщений: 9
|
ОГРОМНОЕ СПАСИБО!
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
вопрос по QBasic | kaf-17 | Помощь студентам | 2 | 01.04.2010 20:59 |
Задачи по QBasic | Ванек | Помощь студентам | 14 | 08.11.2008 15:00 |
[QBasic] Вычислить ряд!! | toad88 | Помощь студентам | 1 | 20.11.2007 00:07 |
Help me on QBasic. Анимация. | toad88 | Помощь студентам | 2 | 16.11.2007 21:58 |