Basic вводный курс


Задача 222


1 Шифровка
CLS
' Запрос количества букв в шифруемом слове
INPUT "Сколько букв в слове"; N
1 Объявление массива для зашифрованного слова
DIM D$ (N)
FOR 1=1 TO N
' Побуквенный запрос исходного слова
PRINT "Введите"; I; "букву";
INPUT C$
' Побуквенная шифровка
D$ (I)=CHR$(ASC(C$)+1) NEXT I
' Вывод на экран зашифрованного слова FOR I = 1 ТО N
PRINT D$(I); NEXT I END
Обратите внимание, что при введении буквы z в результате получается не буква, а символ квадратной скобки. Как избежать этого? Подумайте сами.









Начало  Назад  Вперед



Книжный магазин