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

25 просмотров

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

Информатика Рахмара_zn (70 баллов) 02 Апр, 18 | 25 просмотров

2. Примерно. Зашифровывается слово, например, тот же самый "мусор". И получается: м (какие-то 4 любые буквы)у(какие-то четыре буквы) и по аналогии. Что касается дешифровки, то там вводится текст зашифровки, а после идёт "расшифровка текста" - то есть, после того, как мы зашифровали текст, нам выбегут циферки, разные, а чтобы понять, какое слово всё-таки было зашифровано, и нужна эта дешифровка, чтобы ввести их - и получить то самое искомое. Эм, как-то так.

оставил комментарий Рахмара_zn (70 баллов) 02 Апр, 18

Дан 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

Alviko_zn (142k баллов) 02 Апр, 18