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

@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

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

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

	Сформировать матрицу, найти число положительных, отрицательных и нулевых элементов в ней 16.06.2008, 18:50. Показов 2716. Ответов 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