Пожалуйста, помогите! Решить задачку шифровки и дешифровки по последующему принципу: За

Пожалуйста, помогите!
Решить задачу шифровки и дешифровки по следующему принципу: За каждой буковкой данной фразы стоит случайная гласная( их 9 - у, е, ы, а, о, э, я, и, ю), потом случайная согласная ( их 20 - ц, к, н, г, ш, щ, з, х, ф, в, п, р, л, д, ж, ч, с, м, т, б), затем случайная ни та, ни другая ( их 3 - ъ, ь, й) и т.д.
С DATA без массивов.
Программа создаётся через язык программирования QBasic.

Задать свой вопрос
Олеся Олеханова
И Вы не ответили на 2-ой вопрос - о шифровании и дешифровании.
Екимецкий Данил
2. Приблизительно. Зашифровывается слово, например, тот же самый "мусор". И выходит: м (какие-то 4 любые буковкы)у(какие-то четыре буковкы) и по аналогии. Что касается дешифровки, то там вводится текст зашифровки, а после идёт "расшифровка текста" - то есть, после того, как мы зашифровали текст, нам выбегут циферки, различные, а чтобы понять, какое слово всё-таки было зашифровано, и нужна эта дешифровка, чтоб ввести их - и получить то самое разыскиваемое. Эм, как-то так.
Даниил Марутин
Откуда взялось, что за "правильной" буковкой стоят именно ЧЕТЫРЕ "какие-то" ?
Аделина Бодакова
Я считаю, что задание можно двойственно разуметь: либо за каждой "правильной" буковкой следует одна "ошибочная", которая 1-ый раз берется из гласных, второй - из согласных, третий - ь или ъ и так по кругу, или сходу следуют все три "неправильные".
Геннадий Майзельсон
3. Хорошо, я сейчас исправлю. 4. Я разумею, что это факт, но всё же, нам так сказал учитель, и это не 1-ая программа, где "ни те, ни другие" - ъ, ь, й. 5. Извините, я не верно написала. Не 4, а 3, то есть М ( гл, согл, ни те, ни др) У(гл, согл, ни те, ни др) и далее...
Ljudmila Tolstekova
В остальном всё, как вы написали, то есть 9 штук - гласных, потом 20 согласных и 3 - ни тех, ни других. Не знаю, но почему-то это "й" у нас стоит не в согласных, а вот конкретно в ни тех, ни других.
Василиса Горновова
Т.е. "мусор" может быть зашифрован, как "мулъуынъсещъоучъролъ" ?
Ревис Тимур
Да, конкретно так.
Ирина Факеева
Мне абсолютно неинтересно, что произнес Ваш информатик по предлогу русского языка. Или Вы оставляете В ЗАДАНИИ все, как есть, и тогда 10,21 и 2 буковкы, или поправляете В ЗАДАНИИ "Ни те, ни иные" на "одна из й, ъ, ь" либо как-то так.
Алексей Сихневич
Я исправила задание. 2 Скажите, пожалуйста, Вы можете посодействовать либо нет? Всё Вам понятно?..
1 ответ
Программка шифровки:
DATA "ауоыэяюёие"
DATA "бвгджзклмнпрстфхцчшщ"
DATA "ъйь"
DIM s10 AS STRING, s20 AS STRING, s3 AS STRING
DIM i AS INTEGER
DIM s AS STRING, t AS STRING
CLS
READ s10, s20, s3
RANDOMIZE TIMER
INPUT "Введите фразу: ", s
t = ""
FOR i = 1 TO LEN(s)
   t = t + MID(s, i, 1)
   t = t + MID(s10, INT(10 * RND + 1), 1)
   t = t + MID(s20, INT(20 * RND + 1), 1)
   t = t + MID(s3, INT(3 * RND + 1), 1)
NEXT i
PRINT t
END

Программка дешифровки:
DIM s AS STRING, t AS STRING, i AS INTEGER
CLS
INPUT "Введите фразу: ", s
t = ""
FOR i = 1 TO LEN(s) STEP 4
   t = t + MID(s, i, 1)
NEXT i
PRINT t
END


Gennadij
На самом деле здесь DATA введены только потому, что так сказано в задании, поэтому что они не нужны, можно было сделать просто операторы присваивания вида s10="ауоыэяюёие", либо даже объявить константы CONST s10="ауоыэяюёие".
Lenka Brunfman
Вот спасибо Для вас большое и за помощь, и за разъяснение! Хлопаю и хлопаю стоя, Вы выручили и выручили меня. Ещё раз, спасибо огромное за помощь! Эм, и баллы Вы заслуженные получили (а то я тут новая, не во всём, как следует разобралась)?
Денчик Пузарин
Вот спасибо Для вас огромное и за помощь, и за объясненье! Хлопаю и хлопаю стоя, Вы выручили и выручили меня. Ещё раз, спасибо большое за помощь!
Пашка Купалов
Баллы меня абсолютно не тревожат, если что))
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт