Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Stanislav163
0 / 0 / 0
Регистрация: 04.03.2013
Сообщений: 22
1

Как найти количество различных элементов одномерного масива A(Q) , принадлежащих отрезку [R,P]

22.03.2013, 18:03. Просмотров 790. Ответов 1
Метки нет (Все метки)

Составьте программу подсчета числа различных элементов одномерного масива A(Q) , принадлежащему отрезку [R,P]
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.03.2013, 18:03
Ответы с готовыми решениями:

Сортировка по убыванию элементов одномерного массива А (N) не принадлежащих отрезку
Print "kol-vo elementov" input n input "nachalo otrezka";o input "konec otrezka";p if p<o then...

В заданном векторе размерности N подсчитать количество компонент, принадлежащих отрезку
Ребят, помоги, пожалуйста!!! У меня 4 задачи, которые нужно решить на языке Visual Basic.Точно...

Найти количество различных элементов одномерного массива, не принадлежащих отрезку
ЗАДАНИЕ: СОСТАВЬТЕ ПРОГРАММУ ПОДСЧЕТА ЧИСЛА РАЗЛИЧНЫХ ЭЛЕМЕНТОВ ОДНОМЕРНОГО МАССИВА A(I), НЕ...

Подсчет различных элементов одномерного массива, не принадлежащих отрезку
Помогите, пожалуйста составить программу подсчета различных элементов одномерного массива, НЕ...

Подсчет количества различных элементов одномерного массива не принадлежащих отрезку [R,P]
помогите пожалуйста задачку решить:) Составить программу подсчета количества различных элементов...

1
xod
156 / 46 / 70
Регистрация: 01.07.2014
Сообщений: 185
22.07.2014, 18:41 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение


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
DEFINT A-D, I-L, N
RANDOMIZE TIMER
CLS
INPUT "N = "; n
INPUT "A=?, B="; a, b
DIM c(1 TO n)
DIM d(1 TO n)
 
FOR i = 1 TO n
   c(i) = 10 * RND - 5
   PRINT USING "###"; c(i);
NEXT i
PRINT
 
FOR i = 1 TO n - 1
   FOR j = 1 TO n - 1
      IF c(j) > c(j + 1) THEN SWAP c(j), c(j + 1)
   NEXT j
NEXT i
 
k = 1
d(k) = c(1)
FOR i = 1 TO n
   IF d(k) < c(i) THEN
      k = k + 1
      d(k) = c(i)
   END IF
NEXT i
 
l = 0
FOR i = 1 TO k
   IF a <= d(i) AND d(i) <= b THEN
      l = l + 1
   END IF
NEXT i
 
PRINT l
END
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.07.2014, 18:41

Программа подсчета числа различных элементов одномерного массива А(Q), не принадлежащих отрезку [R,P]
Помогите, пожалуйста :) (если не трудно, то можно с пояснениями) 1.Составьте программу подсчета...

Найти количество элементов матрицы, принадлежащих отрезку [5; 7]
В вещественной матрице B(n*m) найти количество элементов, принадлежащих отрезку

Найти количество отрицательных элементов массива, принадлежащих отрезку [-100; -20]
Дан массив А, элементами которого являются n действительных чисел. Найти количество отрицательных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.