Сформировать матрицу, найти число положительных, отрицательных и нулевых элементов в ней

@RedBlood · Регистрация: 16.06.2008

Студворк — интернет-сервис помощи студентам

Задан массив х={Хi}, i = 1,2...,n; n-число элементов массива (n<=24) a;b.
Сформировать массив y={Yk} из элементов массива х больших а, но меньших или равных b (a<Yk<=b). Определить и присвоить переменным KP,KN и KO значения, равные числу положительных, отрицательных и нулевых элементов массива x соответственно.

Стучите в аську 724764

Vovan-VE · 16.06.2008, 21:21

QBasic/QuickBASIC
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
DO
    INPUT "Input size of source array (2 to 24): N = "; N
LOOP WHILE N < 2 OR N > 24
DO
    INPUT "a = "; a
    INPUT "b = "; b
LOOP WHILE a <= b
DIM X(1 TO N)
RANDOMIZE TIMER
L = 0
FOR i = 1 TO N
    X(i) = FIX(RND * 101 - 50)
    IF X(i) > a AND X(i) <= b THEN L = L + 1
NEXT
DIM Y(1 TO L)
PRINT "Array Y has "; L; " value."
KP = 0:  KN = 0: K0 = 0
L = 1
FOR i = 1 TO N
    IF X(i) > a AND X(i) <= b THEN
        Y(L) = X(i)
        L = L + 1
    END IF
    IF X(i) = 0 THEN
        K0 = K0 + 1
    ELSEIF X(i) < 0 THEN
        KN = KN + 1
    ELSE
        KP = KP + 1
    END IF
NEXT
PRINT "Negative: "; KN
PRINT "Zero: "; K0
PRINT "Positive: "; KP

@RedBlood · 16.06.2008, 21:26 **[ТС]**

ААААА, спасибо огромное, если это ещё правильно =)

Vovan-VE · 16.06.2008, 21:39

А исправление ошибок мы оставим на совесть любознательного читателя.

@RedBlood · 16.06.2008, 21:49 **[ТС]**

не а серьёзно, там реально не много что то не правильно, т.к. я щас запускал там значения надо ввести
n=9 a= -0.5 b=5.8
x={-1, 5.8, 0, -5, -0.4, 0.6, 12, 0, 0.05}

@RedBlood · 16.06.2008, 22:01 **[ТС]**

Задан массив х={Хi}, i = 1,2...,n; n-число элементов массива (n<=24) a;b.
Сформировать массив y={Yk} из элементов массива х больших а, но меньших или равных b (a<Yk<=b). Определить и присвоить переменным KP,KN и KO значения, равные числу положительных, отрицательных и нулевых элементов массива X соответственно.
Значения исходных данных для расчетов :
n=9 a= -0.5 b=5.8
x={-1, 5.8, 0, -5, -0.4, 0.6, 12, 0, 0.05}

@RedBlood · 16.06.2008, 22:55 **[ТС]**

QBasic/QuickBASIC
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
DO
    INPUT "Input size of source array (2 to 24): N = "; N
LOOP WHILE N < 2 OR N > 24
DO
    INPUT "a = "; a
    INPUT "b = "; b
LOOP WHILE a <= b
DIM X(1 TO N)
RANDOMIZE TIMER
L = 0
FOR i = 1 TO N
    X(i) = FIX(RND * 101 - 50)
    IF X(i) > a AND X(i) <= b THEN L = L + 1
NEXT
DIM Y(1 TO L)
PRINT "Array Y has "; L; " value."
KP = 0:  KN = 0: K0 = 0
L = 1
FOR i = 1 TO N
    IF X(i) > a AND X(i) <= b THEN
        Y(L) = X(i)
        L = L + 1
    END IF
    IF X(i) = 0 THEN
        K0 = K0 + 1
    ELSEIF X(i) < 0 THEN
        KN = KN + 1
    ELSE
        KP = KP + 1
    END IF
NEXT
PRINT "Negative: "; KN
PRINT "Zero: "; K0
PRINT "Positive: "; KP

Задан массив х={Хi}, i = 1,2...,n; n-число элементов массива (n<=24) a;b.
Сформировать массив y={Yk} из элементов массива х больших а, но меньших или равных b (a<Yk<=b). Определить и присвоить переменным KP,KN и KO значения, равные числу положительных, отрицательных и нулевых элементов массива X соответственно.
Значения исходных данных для расчетов :
n=9 a= -0.5 b=5.8
x={-1, 5.8, 0, -5, -0.4, 0.6, 12, 0, 0.05}

Vovan-VE · 17.06.2008, 20:49

Все теперь работает.

QBasic/QuickBASIC
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
40
41
42
43
CLS
DO
 INPUT "Input size of source array (2 to 24): N = "; N
LOOP WHILE N < 2 OR N > 24
DO
 INPUT "a = "; a
 INPUT "b = "; b
LOOP UNTIL a <= b
DIM X(1 TO N)
'RANDOMIZE TIMER
L = 0
FOR i = 1 TO N
 'X(i) = FIX(RND * 101 - 50)
 PRINT "X("; i; ") = ";
 INPUT X(i)
 IF (X(i) > a) AND (X(i) <= b) THEN
  L = L + 1
 END IF
NEXT
IF L = 0 THEN
 PRINT "No values from A to B found"
 END
END IF
DIM Y(1 TO L)
PRINT "Array Y has "; L; " values."
KP = 0: KN = 0: K0 = 0
L = 1
FOR i = 1 TO N
 IF X(i) > a AND X(i) <= b THEN
  Y(L) = X(i)
  L = L + 1
 END IF
 IF X(i) = 0 THEN
  K0 = K0 + 1
 ELSEIF X(i) < 0 THEN
  KN = KN + 1
 ELSE
  KP = KP + 1
 END IF
NEXT
PRINT "Negative: "; KN
PRINT "Zero: "; K0
PRINT "Positive: "; KP

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@RedBlood 0 / 0 / 0 Регистрация: 16.06.2008 Сообщений: 16

	Сформировать матрицу, найти число положительных, отрицательных и нулевых элементов в ней 16.06.2008, 18:50. Показов 2661. Ответов 7 Метки нет (Все метки) Задан массив х={Хi}, i = 1,2...,n; n-число элементов массива (n<=24) a;b. Сформировать массив y={Yk} из элементов массива х больших а, но меньших или равных b (a<Yk<=b). Определить и присвоить переменным KP,KN и KO значения, равные числу положительных, отрицательных и нулевых элементов массива x соответственно. Стучите в аську 724764 0

@RedBlood 0 / 0 / 0 Регистрация: 16.06.2008 Сообщений: 16
	16.06.2008, 21:26 [ТС]
	ААААА, спасибо огромное, если это ещё правильно =) 0

Vovan-VE 13210 / 6599 / 1041 Регистрация: 10.01.2008 Сообщений: 15,069
	16.06.2008, 21:39
	А исправление ошибок мы оставим на совесть любознательного читателя. 0

@RedBlood 0 / 0 / 0 Регистрация: 16.06.2008 Сообщений: 16
	16.06.2008, 21:49 [ТС]
	не а серьёзно, там реально не много что то не правильно, т.к. я щас запускал там значения надо ввести n=9 a= -0.5 b=5.8 x={-1, 5.8, 0, -5, -0.4, 0.6, 12, 0, 0.05} 0

@RedBlood 0 / 0 / 0 Регистрация: 16.06.2008 Сообщений: 16
	16.06.2008, 22:01 [ТС]
	Задан массив х={Хi}, i = 1,2...,n; n-число элементов массива (n<=24) a;b. Сформировать массив y={Yk} из элементов массива х больших а, но меньших или равных b (a<Yk<=b). Определить и присвоить переменным KP,KN и KO значения, равные числу положительных, отрицательных и нулевых элементов массива X соответственно. Значения исходных данных для расчетов : n=9 a= -0.5 b=5.8 x={-1, 5.8, 0, -5, -0.4, 0.6, 12, 0, 0.05} 0