создать квадратную матрицу заданного порядка, используя датчик случайных чисел

@mi_ih · Регистрация: 12.01.2010

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

Здравствуйте!
Не знаю к кому обратиться с подобным вопросом - одна надежда на этот форум.
Как создать квадратную матрицу заданного порядка, используя датчик случайных чисел подсчитать кол-во положительных и отрицательных элементов в диагонали матриц. Диапазон случайных чисел от -100 до +100.
Ну или хотя бы подскажите как вобще просто создать эту квадратную матрицу. Буду рада любому ответу!

@кот Бегемот · 13.01.2010, 00:56

Сообщение от mi_ih

Здравствуйте!
Не знаю к кому обратиться с подобным вопросом - одна надежда на этот форум.
Как создать квадратную матрицу заданного порядка, используя датчик случайных чисел подсчитать кол-во положительных и отрицательных элементов в диагонали матриц. Диапазон случайных чисел от -100 до +100.
Ну или хотя бы подскажите как вобще просто создать эту квадратную матрицу. Буду рада любому ответу!

Я очень плохо разбираюсь в VB, точнее, совсем не разбираюсь, поэтому правильности не гарантирую, но помочь хочется. Условие, правда, неточное, у матрицы 2 диагонали, считать на какой? Или на обеих?Что-то такое должно получиться

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
n=inputbox("Введите")
dim A(1 to n, 1 to n)
randomize timer
for i= 1 to n
for j=1 to n
  A(i,j) = int(rnd*201)-100
next j
next i
'Здесь надо вывести эту матрицу на экран, а может, и не надо' 
 
for i=1 to n
 if a(i,i)<0 then otr=otr+1
 if a(i,i)>0 then pol=pol+1
  next i
 
msgbox pol
msgbox otr

Это для главной диагонали.
Если считать надо для обеих диагоналей, то в последний цикл добавятся команды

Visual Basic
1
2
if a(i,n-i+1)<0 then otr=otr+1
 if a(i,n-i+1)>0 then pol=pol+1

@mi_ih · 13.01.2010, 01:08 **[ТС]**

Спасибо большое за ответ!!! и за внимание!!!
Только я чайник из всех чайников...я не знаю как вывести матрицу на экран...тут как быть?

@кот Бегемот · 13.01.2010, 01:14

если бы я знал, обязательно написал бы

@mi_ih · 13.01.2010, 01:16 **[ТС]**

Все равно спасибо.
С меня вирт.коньяк за внимание)

@BasicMan · 13.01.2010, 11:07

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
dim a() as integer,N as integer
N=inputbox("N=")
redim a(1 to n,1 to n)
for i =1 to n
for j =1 to n
a(i,j)=rnd(1)*200-100
next j
next i
km=0
kp=0
for i =1 to n
select case a(i,i)
case is>0
kp=kp+1
case is<0
km=km+1
end select 
next i
msgbox "<0: " & cstr(km) & ", >0: " & cstr(kp)

Добавлено через 21 минуту
mi_ih, нафик 3 раза условие постить?

Добавлено через 2 минуты

Сообщение от mi_ih

я не знаю как вывести матрицу на экран

в начале переменную обьявить

Visual Basic
1
dim Sss as String

в конце проги написать так

Visual Basic
1
2
3
4
5
6
7
8
sss=""
for i =1 to n
for j =1 to n
sss= sss & " " & cstr(a(i,j))
next j
sss= sss & chr(13)
next i
msgbox sss

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике 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 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@mi_ih 0 / 0 / 0 Регистрация: 12.01.2010 Сообщений: 3

	создать квадратную матрицу заданного порядка, используя датчик случайных чисел 13.01.2010, 00:23. Показов 3570. Ответов 5 Метки нет (Все метки) Здравствуйте! Не знаю к кому обратиться с подобным вопросом - одна надежда на этот форум. Как создать квадратную матрицу заданного порядка, используя датчик случайных чисел подсчитать кол-во положительных и отрицательных элементов в диагонали матриц. Диапазон случайных чисел от -100 до +100. Ну или хотя бы подскажите как вобще просто создать эту квадратную матрицу. Буду рада любому ответу! 0

@mi_ih 0 / 0 / 0 Регистрация: 12.01.2010 Сообщений: 3
	13.01.2010, 01:08 [ТС]
	Спасибо большое за ответ!!! и за внимание!!! Только я чайник из всех чайников...я не знаю как вывести матрицу на экран...тут как быть? 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	13.01.2010, 01:14
	если бы я знал, обязательно написал бы 0

@mi_ih 0 / 0 / 0 Регистрация: 12.01.2010 Сообщений: 3
	13.01.2010, 01:16 [ТС]
	Все равно спасибо. С меня вирт.коньяк за внимание) 0