• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Розділ 3

А) Для одновимірного числового масиву А(N), довжиною N скласти алгоритм і програму

на алгоритмічній мові QBASIC для знаходження кількості додатніх елементів, кількості від’ємних елементів масиву.

Програма:

CLS

INPUT "N="; N

DIM A(N)

FOR i = 1 TO N

INPUT "A(i)="; A(i)

NEXT i

K = 0

L = 0

INPUT "B="; B

FOR i = 1 TO N

IF A(i) > B THEN K =K + 1 ELSE L=L+1

NEXT i

PRINT "K="; K , "L="; L

END

Одержаний результат:

Б) Для двовимірного масиву A(N,M) з кількістю N рядків і M стовпців слід скласти алгоритм і програму на алгоритмічній мові QBASIC для знаходження кількості елементів масиву,що більше від заданог числа В.

Алгоритм програми:

Програма:

CLS

INPUT "N="; N

INPUT "M="; M

DIM A(N, M)

FOR i = 1 TO N

FOR j = 1 TO M

INPUT "A(i,j)="; A(i, j)

NEXT j

NEXT i

k = 0

INPUT "B="; B

FOR i = 1 TO N

FOR j = 1 TO M

IF A(i, j) > B THEN k = k + 1

NEXT j

NEXT i

PRINT "k="; k

END

Одержаний результат:

Переглядів: 360