SHARE
TWEET

TOP5_M1

Abaduaber Apr 14th, 2019 108 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. DIM A$, B$
  2. DIM N AS INTEGER
  3. INPUT "Введите строковое значение A$: ", A$
  4. 'Тут вводим N. Но нужно иметь в виду, что под DOS мы работаем с 8 битными
  5. 'кодировками. Символы в них однобайтные. Ограничено 255-ю неспроста, короче.
  6. DO
  7.     INPUT "Введите N [0..255]: ", N
  8. LOOP UNTIL N >= 0 AND N <= 255
  9. DIM Sum AS INTEGER, I AS INTEGER
  10. FOR I = 1 TO LEN(A$)
  11.     Sum = Sum + ASC(MID$(A$, I, 1))
  12. NEXT I
  13. PRINT "Сумма ASCII-кодов всех символов строки A$:"; Sum
  14. DIM CharCode AS INTEGER
  15. FOR I = 1 TO LEN(A$)
  16.     'AND 255 требуется для приведения результата в диапазон байта 0..255 что требует функция ASC
  17.     CharCode = (ASC(MID$(A$, I, 1)) + N) AND 255
  18.     B$ = B$ + CHR$(CharCode)
  19. NEXT I
  20. PRINT "Строка B$: "; B$
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top