Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.65/20: Рейтинг темы: голосов - 20, средняя оценка - 4.65
iponi
1

Сформировать двумерный массив Z(10,3) из случайных чисел, принадлежащих отрезку [-2;15]

23.02.2012, 01:26. Просмотров 3657. Ответов 4
Метки нет (Все метки)

Сформировать двумерный массив Z(10,3) из случайных чисел, принадлежащих отрезку[-2;15].Получить и вывести одномерный массив P, где Pi – сумма элементов, расположенных за первым отрицательным элементом в i-й строке; если все элементы строки неотрицательны, то принять Pi=100. ребят пожайлуста! отблагодарю
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.02.2012, 01:26
Ответы с готовыми решениями:

Сформировать массив из 14 случайных целых чисел, принадлежащих заданному промежутку
Задача: составить программу, которая формирует массив из 14 случайных целых чисел, принадлежащих...

Задать двумерный массив размерности N*N из целочисленных элементов, принадлежащих отрезку [-10;10].
Задать двумерный массив размерности N*N из целочисленных элементов, принадлежащих отрезку . Вывести...

Сформировать двумерный целочисленный массив, используя генератор случайных чисел на интервале
Здравствуйте! Прошу подправить ошибки ,если не сложно. Задание звучит так: I Сформировать...

Сформировать двумерный массив. Использовать генератор случайных чисел. Кол-во строк и столбцов вводить вручную
Сформировать двумерный массив. Использовать генератор случайных чисел. Кол-во строк и столбцов...

4
es geht mir gut
11208 / 4686 / 1177
Регистрация: 27.07.2011
Сообщений: 11,423
23.02.2012, 11:30 2
Visual Basic
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
Option Explicit
Dim Z(), P(), n, m, i, j, kPol
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Cls       'Очищаем форму
n = 10    ' InputBox("Enter n")
m = 3    ' InputBox("Enter m")
ReDim Z(n, m), P(n) ' Размеры массива Z -  n-строк, m-столбцов
For i = 1 To n
 For j = 1 To m
     Z(i, j) = Round(17 * Rnd - 2) 'Заполняем массив случайными числами
      Print Z(i, j); vbTab;
 Next j
 Print
Next i
 
Print
  For i = 1 To n
     kPol = 0
     For j = 1 To m
        If Z(i, j) >= 0 Then P(i) = P(i) + Z(i, j): kPol = kPol + 1 Else P(i) = 0
     Next j
     If kPol = m Then P(i) = 100
   Print P(i);
Next i
End Sub
1
iponi
24.02.2012, 17:47 3
А можно полностью программу с процедурами вывода а то я написал мне выводит куча ошибок( пишу в visual studio)
es geht mir gut
11208 / 4686 / 1177
Регистрация: 27.07.2011
Сообщений: 11,423
24.02.2012, 18:26 4
Ты вопрос задал в ветке VB6, и ответ получил соответственно на нём.
1
Вложения
Тип файла: rar Сформировать массив.rar (5.0 Кб, 55 просмотров)
0 / 0 / 0
Регистрация: 15.07.2019
Сообщений: 1
15.07.2019, 13:39 5
vb.net
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Option Strict On
Option Explicit On
 
Public Class Form1
    Sub RAM(ByRef Z(,) As Integer)
        Const a As Integer = 10
        Const b As Integer = 3
        Dim i, j As Integer
        Randomize()
        For i = 0 To a - 1
            For j = 0 To b - 1
                Z(i, j) = CInt((15 + 2) * Rnd() - 2)
            Next j
        Next i
    End Sub
    Sub vivodmassiv(ByRef zr(,) As Integer, ByRef lb As ListBox)
        Dim i, j, a, b As Integer
        Dim z, z1 As String
        lb.Items.Clear()
        a = zr.GetUpperBound(0) - 1
        b = zr.GetUpperBound(1) - 1
        For i = 0 To a
            z = ""
            For j = 0 To b
                z1 = Format(zr(i, j), "00")
                If zr(i, j) < 0 Then
                    z1 = Space(2) + z1 + Space(4)
                Else
                    z1 = Space(3) + z1 + Space(4)
                End If
                z = z + z1
            Next j
            lb.Items.Add(z)
        Next i
    End Sub
    Sub printmassiv(ByRef p() As Integer, ByRef lb As ListBox)
        lb.Items.Clear()
        Dim i As Integer
        Dim z As String
        For i = 0 To UBound(p)
            z = CStr(p(i)) + vbNewLine
            lb.Items.Add(z)
        Next
    End Sub
    Sub massiv(ByRef zz(,) As Integer, ByRef p() As Integer)
        Dim i, j, k, firstotric, kpol As Integer
        For i = 0 To zz.GetUpperBound(0) - 1
            kpol = 0
            firstotric = 1
            For k = 3 To 1 Step -1
                If zz(i, k) < 0 Then
                    firstotric = k
                ElseIf zz(i, k) >= 0 Then
                    kpol = kpol + 1
                End If
            Next k
            For j = firstotric + 1 To zz.GetUpperBound(1)
                p(i) = p(i) + zz(i, j)
                If kpol = 3 Then
                    p(i) = 100
                End If
            Next j
        Next i
        ReDim Preserve p(i - 1)
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Z(10, 3) As Integer
        Dim p(10) As Integer
        RAM(Z)
        vivodmassiv(Z, listbox1)
        massiv(Z, p)
        printmassiv(p, listbox2)
    End Sub
End Class
–– ––– ·–· ––·· ·
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.07.2019, 13:39

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Сформировать и вывести построчно двумерный массив х размерностью 4*4 случайных целых чисел из интервала [–100, 100]
Задачка очень легкая,но не могу с ней справится,очень редко сталкиваюсь с VBA Сформировать и...

Сгенерировать массив из N случайных чисел, принадлежащих указанному диапазону
1) Написать функцию, генерирующую массив из N случайных чисел, принадлежащих указанному диапазону ....

Составить программу, которая формирует массив из 7 случайных целых чисел, принадлежащих промежутку [-14;9], и вычисляет произведение нечетных чисел.
Составить программу, которая формирует массив из 7 случайных целых чисел, принадлежащих...


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

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

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