Определить количество отрицательных элементов массива - QBasic

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток!Решите не сложные задачки,если не трудно,буду признателен!)

Задача 1

Определить количество отрицательных элементов массива Х(п), заменить их на их модули. Вывести исходный и полученный массивы, число отрицательных элементов исходного массива. Упорядочить массив X(n) по убыванию. Вывести полученный массив. Исходный массив элементов получить с помощью датчика случайных чисел. Значения буквенных переменных задавать с клавиатуры.

Задача 2

Определить сумму ASCII-кодов символов, составляющих строку а$. Вывести полученное значение и строку b$, состоящую из символов, ASCII-коды которых на заданное число п больше соответствующих символов строки а$.

Решение задачи: «Определить количество отрицательных элементов массива»

textual
Листинг программы
CLS
DIM a AS STRING
DIM b AS STRING
DIM c AS STRING
n = 10
a = "ABCDEFGH"
 
FOR i = 1 TO LEN(a)
   c = MID$(a, i, 1)
   s = s + ASC(c)
   b = b + CHR$(ASC(c) + n)
NEXT i
 
PRINT a; "  s ="; s
PRINT b
END

Объяснение кода листинга программы

  1. CLS - очистка экрана
  2. DIM a AS STRING - объявление переменной типа строка с именем a
  3. DIM b AS STRING - объявление переменной типа строка с именем b
  4. DIM c AS STRING - объявление переменной типа строка с именем c
  5. n = 10 - присваивание переменной n значение 10
  6. a =ABCDEFGH` - присваивание переменнойaзначениеABCDEFGH`
  7. FOR i = 1 TO LEN(a) - начало цикла, который будет выполняться для каждого символа в строке a
  8. c = MID$(a, i, 1) - присваивание переменной c значение i-го символа строки a
  9. s = s + ASC(c) - прибавление значения ASCII символа c к переменной s
  10. b = b + CHR$(ASC(c) + n) - прибавление символа, соответствующего ASCII значению c плюс n, к переменной b
  11. NEXT i - переход к следующему шагу цикла
  12. PRINT a;  s =; s - вывод на экран строки a и значения переменной s
  13. PRINT b - вывод на экран значения переменной b
  14. END - конец программы

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы