экзамен.написать програму

@De32 · Регистрация: 21.05.2011

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

помогите!
заданы масивы а(40.40) в(20.20) с(30.30) для каждоГо из заданных масивов оппеделить столбец с наибольшим кол-вом нулевых элементов и поместить элементы этого столбца в одномерный массив. решить с помощью подпрограмм

@~~Busine2009~~ · 09.06.2011, 10:13

De32,
наработки выкладывайте.

@De32 · 09.06.2011, 10:23 **[ТС]**

sub f()
dim a 39.39
dim b 19.19
dim c 29.29
dim x
worksheets ''лист1''.cells 1.1 a
for i- 0 to 39
for j-0 to 39
a i,j- worksheets
next j
next i
... для в и с так же - равно означает скобки здесь не ставлю думаю понятно
call max-0
end sub
sub max-0
а дальше незнаю

@~~Busine2009~~ · 09.06.2011, 10:29

De32,
это получается, что надо создавать ещё 3 одномерных массива?
Как заполнять массивы и куда данные выводить?

Предлагаю под каждый массив использовать свой лист Excel.

@De32 · 09.06.2011, 10:33 **[ТС]**

можете код програмы написать? главное чтоб с помощью подпрограмы решить

@~~Busine2009~~ · 09.06.2011, 10:35

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

можете код програмы написать?

думаю, что могу, только что скажет на этот код преподаватель. Ведь у вас же свои требования. А я напишу так, как придумаю.

@De32 · 09.06.2011, 10:59 **[ТС]**

главное чт б код верНый быб остальное фигня

Добавлено через 21 минуту
скоро?

@~~Busine2009~~ · 09.06.2011, 11:00

De32,
минут 15-20.

@gaw · 09.06.2011, 11:00

Visual Basic

Private Sub g(n As Integer, l As Integer)
Dim a() As Integer
ReDim a(1 To n, 1 To n)
 Sheets(l).Cells.Clear
For i = 1 To n
  For j = 1 To n
    a(i, j) = Int(Rnd * 10) - 5
    Sheets(l).Cells(i, j) = a(i, j)
  Next j
Next i
Call m(a(), l)
End Sub
Sub m(a() As Integer, l As Integer)
Dim i%, j%, k%, kn%, ind%
Dim b() As Integer
k = UBound(a)
ReDim b(k)
mx = 0: ind = 1
For j = 1 To k
 kn = 0
  For i = 1 To k
    If a(i, j) = 0 Then kn = kn + 1
  Next i
  If mx < kn Then mx = kn: ind = j
Next j
  For i = 1 To k
    b(i) = a(i, ind)
    Sheets(l).Cells(k + 2, i) = b(i)
  Next i
End Sub
 
Private Sub CommandButton1_Click()
Dim s%
For s = 1 To 3
   Call g(10 + 10 * s, s)
Next s
End Sub

@am-wrag · 09.06.2011, 13:52

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

Visual Basic

Private Sub g(n As Integer, l As Integer)
Dim a() As Integer
ReDim a(1 To n, 1 To n)
 Sheets(l).Cells.Clear
For i = 1 To n
  For j = 1 To n
    a(i, j) = Int(Rnd * 10) - 5
    Sheets(l).Cells(i, j) = a(i, j)
  Next j
Next i
Call m(a(), l)
End Sub
Sub m(a() As Integer, l As Integer)
Dim i%, j%, k%, kn%, ind%
Dim b() As Integer
k = UBound(a)
ReDim b(k)
mx = 0: ind = 1
For j = 1 To k
 kn = 0
  For i = 1 To k
    If a(i, j) = 0 Then kn = kn + 1
  Next i
  If mx < kn Then mx = kn: ind = j
Next j
  For i = 1 To k
    b(i) = a(i, ind)
    Sheets(l).Cells(k + 2, i) = b(i)
  Next i
End Sub
 
Private Sub CommandButton1_Click()
Dim s%
For s = 1 To 3
   Call g(10 + 10 * s, s)
Next s
End Sub

А что значат проценты в коде после значения?

@gaw · 09.06.2011, 14:00

As Integer

@De32 0 / 0 / 0 Регистрация: 21.05.2011 Сообщений: 17
		1
	экзамен.написать програму 09.06.2011, 09:59. Показов 1064. Ответов 10 Метки нет (Все метки) помогите! заданы масивы а(40.40) в(20.20) с(30.30) для каждоГо из заданных масивов оппеделить столбец с наибольшим кол-вом нулевых элементов и поместить элементы этого столбца в одномерный массив. решить с помощью подпрограмм 0

@~~Busine2009~~ Заблокирован
	09.06.2011, 10:13	2
	De32, наработки выкладывайте. 0

@De32 0 / 0 / 0 Регистрация: 21.05.2011 Сообщений: 17
	09.06.2011, 10:23 [ТС]	3
	sub f() dim a 39.39 dim b 19.19 dim c 29.29 dim x worksheets ''лист1''.cells 1.1 a for i- 0 to 39 for j-0 to 39 a i,j- worksheets next j next i ... для в и с так же - равно означает скобки здесь не ставлю думаю понятно call max-0 end sub sub max-0 а дальше незнаю 0

@~~Busine2009~~ Заблокирован
	09.06.2011, 10:29	4
	De32, это получается, что надо создавать ещё 3 одномерных массива? Как заполнять массивы и куда данные выводить? Предлагаю под каждый массив использовать свой лист Excel. 0

@De32 0 / 0 / 0 Регистрация: 21.05.2011 Сообщений: 17
	09.06.2011, 10:33 [ТС]	5
	можете код програмы написать? главное чтоб с помощью подпрограмы решить 0

@~~Busine2009~~ Заблокирован
	09.06.2011, 10:35	6
	Сообщение от De32 можете код програмы написать? думаю, что могу, только что скажет на этот код преподаватель. Ведь у вас же свои требования. А я напишу так, как придумаю. 0

@De32 0 / 0 / 0 Регистрация: 21.05.2011 Сообщений: 17
	09.06.2011, 10:59 [ТС]	7
	главное чт б код верНый быб остальное фигня Добавлено через 21 минуту скоро? 0

@~~Busine2009~~ Заблокирован
	09.06.2011, 11:00	8
	De32, минут 15-20. 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	09.06.2011, 14:00	11
	As Integer 0

Опции темы