Question

Разработать блок схему и написать программу в QBASIC Дан массив А из 20 элементов. Найти сумму отрицательных элементов массива.Результат вывести на печать

Answer 1

DIM ch$(26)
FOR i = 1 TO 26
ch$(i) = CHR$(ASC("a") + i - 1)
NEXT

DIM cw(26) AS LONG

PRINT "text:"
INPUT "", s$
DO WHILE s$ <> "*"
s$ = s$ + " "
iw = 0
FOR i = 1 TO LEN(s$)
c$ = MID$(s$, i, 1)
IF iw = 0 AND c$ <> " " THEN
iw = 1
idx = ASC(c$) - ASC("a") + 1
cw(idx) = cw(idx) + 1
ELSEIF iw = 1 AND c$ = " " THEN
iw = 0
END IF
NEXT
INPUT "", s$
LOOP

FOR i = 1 TO 25
m = i
FOR j = i TO 26
IF cw(j) > cw(m) OR (cw(j) = cw(m) AND ch$(j) < ch$(m)) THEN
m = j
END IF
NEXT
IF m <> i THEN
tmp = cw(m)
cw(m) = cw(i)
cw(i) = tmp
tmp$ = ch$(m)
ch$(m) = ch$(i)
ch$(i) = tmp$
END IF
NEXT

FOR i = 1 TO 26
IF cw(i) <> 0 THEN
PRINT ch$(i) + ":"; cw(i)
END IF
NEXT

Answer 2

Давайте сначала рассмотрим блок-схему алгоритма, который находит сумму отрицательных элементов в массиве:

lessCopy code
  Начало
  |
  |__ Объявить и инициализировать переменные:
  |   |__ сумма = 0
  |   |__ i = 0
  |
  |__ Пока i < 20:
  |   |
  |   |__ Если А[i] < 0, то:
  |   |   |
  |   |   |__ увеличить сумму на А[i]
  |   |
  |   |__ увеличить i на 1
  |
  |__ Вывести сумму на печать
  |
  Конец

Теперь давайте напишем программу на QBASIC, которая реализует этот алгоритм:

qbasicCopy code
CLS

DIM A(20) ' Объявление массива А из 20 элементов

' Заполнение массива A (пример данных)
FOR i = 1 TO 20
    A(i) = INT(RND * 100) - 50 ' Заполняем массив случайными числами от -50 до 49
NEXT i

' Нахождение суммы отрицательных элементов массива
sum = 0 ' Инициализация переменной суммы
FOR i = 1 TO 20
    IF A(i) < 0 THEN ' Если элемент отрицательный
        sum = sum + A(i) ' Увеличиваем сумму на значение элемента
    END IF
NEXT i

' Вывод результата на печать
PRINT "Сумма отрицательных элементов массива: " + STR$(sum)

END

Эта программа сначала объявляет массив A из 20 элементов и заполняет его случайными числами от -50 до 49. Затем она находит сумму отрицательных элементов, увеличивая переменную sum на каждый отрицательный элемент. Наконец, она выводит результат на печать.

Обратите внимание, что индексация массива в QBASIC начинается с 1, поэтому мы используем циклы FOR с диапазоном от 1 до 20. Если вам нужно изменить размер массива или вводить элементы вручную, вы можете внести соответствующие изменения в программу.