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