Форум программистов, компьютерный форум CyberForum.ru

QBasic

Войти
Регистрация
Восстановить пароль
 
Petro29
5 / 5 / 0
Регистрация: 30.04.2016
Сообщений: 121
#1

Определить количество элементов массива, равных числу m - QBasic

05.01.2017, 09:35. Просмотров 81. Ответов 1
Метки нет (Все метки)

Дан массив Х, состоящий из 20 це-
лых случайных чисел, каждое из которых лежит в пределах от 3
до 13. С клавиатуры вводится число m, также лежащее в этих пределах. Определить количество элементов массива, равных числу m.
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
CLS
RANDOMIZE TIMER
INPUT “ Кол. эл-ов массива: “, X
DIM A(X)
FOR i = 1 TO X
A(i) = INT(RND(i) * 13)
   PRINT A(i);
NEXT i
   PRINT
INPUT “ Число m больше 3 но меньше 13: “, m
  FOR I = 1 TO m
  PRINT “  “; A(i);
NEXT i
QBasic/QuickBASIC
1
2
3
4
Кол. эл-ов массива:  20
4   5   5   3   8   12   4   11   0   10   1   10   12   9   5   11   10   2   0   7
Число m больше 3 но меньше 13:  7
4   5   5   3   8   12   4
Вот только числа вводятся не с 3 до 13, а с 0 до 13. Почему?
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.01.2017, 09:35     Определить количество элементов массива, равных числу m
Посмотрите здесь:

Определить минимальный элемент массива и количество элементов, равных минимальному - QBasic
Помогите, пожалуйста с решением задачи: А) В заданном массиве A(120) определить минимальный элемент и количество элементов равных...

Найти количество элементов, равных 4, среди вторых элементов массива - QBasic
Не знаю как сделать 2 программы. Не поможете? 1) Дан массив из 11 чисел. Найти количество эл-ов, равных 4, среди вторых эл-ов массива....

В числовой последовательности определить количество элементов равных максимальному - QBasic
Построить блок-схему, написать программу на языке QBASIC А) В числовой последовательности А1,А2,…А100 определить количество элементов...

Найти количество элементов массива, равных минимальному - QBasic
Ммм помогите с программкой пожалуйста чуть-чуть Даны натуральное число n и последовательность действительных чисел a1,...

Подсчитать количество элементов массива, равных нулю - QBasic
Заданы одномерные массивы X(N),Y(M),Z(L).Для каждого из них: 1) Подсчитать количество элементов равных нулю. 2)Дробные элементы...

В числовой последовательности определить количество элементов, равных максимальному (Блок-схема) - QBasic
1) В числовой последовательности определить количество элементов равных максимальному. 2) Ввести массив B(5,5). Получить массив C(K),...

Определить сумму элементов массива X(n), предшествующих первому отрицательному числу - QBasic
Лабораторная работа №4. Массивы Задача 1. Определить сумму элементов массива X(n), предшествующих первому отрицательному числу. Вывести...

Определить количество положительных и количество отрицательных элементов массива - QBasic
Определить количество положительных и количество отрицательных элементов массива

Подсчитать количество элементов матрицы, равных нулю и сумму положительных элементов - QBasic
всем привет!Если не затруднит,не могли бы мне помочь написать cls код к такой задачке...не получается сделать. В прямоугольной...

Определить количество членов последовательности, не равных последнему элементу - QBasic
Cделайте пожалуйста блок-схему алгоритмов к этому заданию.Очень прошу помочь.


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
echs
891 / 1086 / 348
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
05.01.2017, 10:57     Определить количество элементов массива, равных числу m #2
Petro29
Перепишите вашу строку 6 так
QBasic/QuickBASIC
1
A(i) = INT(RND * 10) + 3
объясняется все очень просто
1. Вам надо наименьшее число 3. Вот вы его и прибавляете
2 Вам надо наибольшее число 13. Вы умножаете на число
10 = (13 - 3)
Yandex
Объявления
05.01.2017, 10:57     Определить количество элементов массива, равных числу m
Ответ Создать тему
Опции темы

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