Информатика -продвинутый курс


         

Результатом работы программы является зашифрованный


70 NEXT j

80 PRINT "таких символов в таблице кодов нет": GOTO 160

90 kk = k + 10

100 x$ = x$ + STR$(kk)

110 NEXT i

120 OPEN "letter.txt" FOR OUTPUT AS #1

130 PRINT #1, x$

140 CLOSE »1

150 PRINT "шифровка - "; x$

160 END

Результатом работы программы является зашифрованный текст, записанный в файл с именем letter.txt.

Следующая программа считывает информацию из этого файла и проводит его

раскодирование, используя указанный выше ключ.

Программа 76 (см. программу 27 retsek)

5 '*********•* расшифровка текста *******•***«*»

10 OPEN "letter.txt" FOR INPUT AS #1

20 INPUT tl, a$

30 CLS

40 PRINT a$

50 c$ = "абвгдежзийклшюпрстуфхцчшщъыэюя "

60 x$ =

" "

70 FOR i =

1 TO LEM(a$) STEP 3

SO k = VAL(MID$(a$, i, 2))

90 k =

k - 10

100 x$ =

x$ + MID$(c$, k, 1)

110 NEXT i

120 CLOSE #1

130 PRINT "шифровка - "; x$

140 END


Содержание  Назад  Вперед





Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий