Даны вещественные массивы A(7), B(8), C(5). Составить программу с использованием подпрограммы для вычисления суммы и количества положительных и отрицательных элементов этих массивов — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
DECLARE SUB proced (e() AS SINGLE, n AS INTEGER)
CLS
DIM a(7) AS SINGLE
DIM b(8) AS SINGLE
DIM c(5) AS SINGLE
DIM i AS INTEGER
PRINT "vvedite elementi massiva a(7)"
FOR i = 1 TO 7
    INPUT a(i)
NEXT i
PRINT "vvedite elementi massiva b(8)"
FOR i = 1 TO 8
    INPUT b(i)
NEXT i
PRINT "vvedite elementi massiva c(5)"
FOR i = 1 TO 5
    INPUT c(i)
NEXT i
DIM SHARED q$
q$ = "a(7)"
CALL proced(a(), 7)
q$ = "b(8)"
CALL proced(b(), 8)
q$ = "c(5)"
CALL proced(c(), 5)
 
SUB proced (e() AS SINGLE, n AS INTEGER)
 
k1 = 0: k2 = 0: s1 = 0: s2 = 0
FOR i = 1 TO n
    IF e(i) > 0 THEN k1 = k1 + 1: s1 = s1 + e(i)
    IF e(i) < 0 THEN k2 = k2 + 1: s2 = s2 + e(i)
NEXT i
PRINT "kolvo polozhit elementov massiva "; q$; "="; k1
PRINT "Summa polozhit elementov massiva "; q$; "="; s1
PRINT "kolvo otric elementov massiva "; q$; "="; k2
PRINT "kolvo otric elementov massiva "; q$; "="; s2
 
END SUB

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment