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

Ответы:
Ulya Kuznecova
08-09-2014 15:56

Программа шифровки:DATA "ауоыэяюёие"DATA "бвгджзклмнпрстфхцчшщ"DATA "ъйь"DIM s10 AS STRING, s20 AS STRING, s3 AS STRINGDIM i AS INTEGERDIM s AS STRING, t AS STRINGCLSREAD s10, s20, s3RANDOMIZE TIMERINPUT "Введите фразу: ", st = ""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 iPRINT tENDПрограмма дешифровки:DIM s AS STRING, t AS STRING, i AS INTEGERCLSINPUT "Введите фразу: ", st = ""FOR i = 1 TO LEN(s) STEP 4   t = t + MID$(s, i, 1)NEXT iPRINT tEND

Также наши пользователи интересуются:

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

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!