Реферат: Общие сведения о языке программирования Qbasic

FOR i=0 TO 9

INPUT B (i)

NEXTi

FOR i=1 TO 10

A(i)=B(i-1)

NEXT i

FOR i=1 TO 10

P=A(I):Y=I-1

40IF P<A(Y) AND Y>0 THEN A(Y+1)=A(Y):Y=Y-1:GOTO 40

A(Y+1)=P

NEXT i

PRINT “Отсортированные элементы”

FOR i=1 TO 10

PRINT A (i)

NEXT i

END

Задачи на использование цикла при обработке массивов.

Вывести положительные элементы массива Х(k), затем отрицательные элементы массива У(m) и количество выведенных чисел.

Даны k и массив X(k). Найти сумму.

(X₁ -P)² +(X₂ -P)² +...+(X_k -P)² , где Р=Х₁ +Х₂ +...+Х_k )/k.

Даны m и массив Х ( m ). Найти произведение.

(2+Х² ₁ )*(2+Х² ₂ )*...*(2+Х² _m).

4. Найти номер элемента массива Х(k), ближайшего к С, где

С=(Х₁ +Х₂ +...+Х_k )/k

Даны С, m и массив Т(m). Найти число элементов массива Т, меньших С, а для элементов, больших С, найти их среднее арифметическое.

Для массива Т(m) найти число элементов, больших предыдущего элемента, а для тех, которые меньше, найти их среднее арифметическое.

Найти номер наименьшего положительного элемента массива Х(m).

Для массива Х(m) напечатать сумму, произведение и номера положительных элементов после последнего нулевого элемента.

Даны k и массив Т(k). Найти сумму и количество элементов в массиве Т после первого нулевого элемента.

Даны m и массив А (m). Напечатать сумму отрицательных элементов массива А после первого нулевого элемента.