обработка двумерных массивов

@vlad27 · Регистрация: 26.04.2011

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

А(20,20)
В исходной строке определить количество нулевых элементов и поделить на это количество каждый положительный элемент в этой стоке ...

блин во препод загнул ...даже не предпологаю... как сделать .....

хотяб направьте хоть мои мысли в нужное русло ....

@l2ded · 10.05.2011, 23:29

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

А(20,20)
В исходной строке определить количество нулевых элементов и поделить на это количество каждый положительный элемент в этой стоке ...

блин во препод загнул ...даже не предпологаю... как сделать .....
хотяб направьте хоть мои мысли в нужное русло ....

Легко!
1.Для начала посчитай кол-во "0" элементов в строке, а потом на это подели каждый элемент.
2.В исходной - в заданой строчке?
3.А что вывести, то надо?

@vlad27 · 10.05.2011, 23:45 **[ТС]**

ошибочка в КАЖДОЙ строчке
ну я думаю надо вывести ответ после деления

@l2ded · 10.05.2011, 23:55

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

ошибочка в КАЖДОЙ строчке
ну я думаю надо вывести ответ после деления

1.Для начала посчитай кол-во "0" элементов в строке,

if а(i,j)=0 then
n=n+1
end if

2.Подели на каждый элемент. - это явно надо связывать с ещё 1 массивчиком или впихнуть это в массив
3. В кажлой строчке? ахаха)) 20 строчек )) - неплохо
s=s & Chr(13) & t -это в цикл там бахни.
t - строчка

Но, помоему это бред!

@vlad27 · 11.05.2011, 09:41 **[ТС]**

я и говорю препод ппц загнул ...... ну придется хоть как нибудь ...сделать ...

@Alex77755 · 11.05.2011, 11:51

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

я и говорю препод ппц загнул ...

Да что там загнул? До 20 считать разучился? Где твои попытки хоть какие?
Блин, студенты ленивые! не хотят вообще думать. Всё на шару хотят диплом получить!

Visual Basic

Option Explicit
Private Sub Комманда1_Click()
Dim R, C
Dim t
Dim M(1 To 20, 1 To 20)
Randomize
Cls
For R = 1 To 20
    For C = 1 To 20
        M(R, C) = Int(50 * Rnd)
        Print M(R, C);
  Next C
  Print
Next R
  Print
For R = 1 To 20
t = 0
    For C = 1 To 20
     If M(R, C) = 0 Then t = t + 1
    Next C
    For C = 1 To 20
            If t <> 0 Then
                 M(R, C) = M(R, C) / t
                Print M(R, C);
             Else
                Print M(R, C);
               End If
    Next C
    Print "   нулей: " & t;
    Print
Next R
End Sub

@l2ded · 11.05.2011, 18:47

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

Да что там загнул? До 20 считать разучился? Где твои попытки хоть какие?
Блин, студенты ленивые! не хотят вообще думать. Всё на шару хотят диплом получить!

Visual Basic

Option Explicit
Private Sub Комманда1_Click()
Dim R, C
Dim t
Dim M(1 To 20, 1 To 20)
Randomize
Cls
For R = 1 To 20
    For C = 1 To 20
        M(R, C) = Int(50 * Rnd)
        Print M(R, C);
  Next C
  Print
Next R
  Print
For R = 1 To 20
t = 0
    For C = 1 To 20
     If M(R, C) = 0 Then t = t + 1
    Next C
    For C = 1 To 20
            If t <> 0 Then
                 M(R, C) = M(R, C) / t
                Print M(R, C);
             Else
                Print M(R, C);
               End If
    Next C
    Print "   нулей: " & t;
    Print
Next R
End Sub

А сам мне говорил, что надо помогать, а не делать)))

@Alex77755 · 11.05.2011, 21:44

Сорри

@vlad27 · 12.05.2011, 00:05 **[ТС]**

Cls- а что это за функция ... VBA ругается говорит что не определена

@Alex77755 · 12.05.2011, 00:07

Это сделано в VB
Адаптируй под себя в VBA

@vlad27 · 13.05.2011, 15:28 **[ТС]**

Private Sub CommandButton1_Click()
Dim R, C As Single
Dim t As Single
Dim M(1 To 20, 1 To 20) As Single
Cells.Clear
Cells(1, 21) = "íóëåé"
Randomize
For R = 1 To 20
For C = 1 To 20
M(R, C) = Int(50 * Rnd)
Cells(R + 1, C) = M(R, C)
Next C
Next R
For R = 1 To 20
t = 0
For C = 1 To 20
If M(R, C) = 0 Then t = t + 1
Next C
For C = 1 To 20
If t <> 0 Then
M(R, C) = M(R, C) / t
Cells(R + 1, C) = M(R, C)
End If
Next C
Next R
End Sub

ВОТ ТАК ВОТ ГУД???
ТОК НЕ ЗНАЮ КАК КОЛЛИЧЕСТВО НУЛЕЙ ВЫВЕСТИ (((

Добавлено через 1 час 53 минуты
а как в этом массиве чтобы он делил на то колличество именно положительные элементы

Добавлено через 8 минут
всё сам сделал ..)))

@vlad27 0 / 0 / 0 Регистрация: 26.04.2011 Сообщений: 32
		1
	обработка двумерных массивов 10.05.2011, 23:22. Показов 1561. Ответов 10 Метки нет (Все метки) А(20,20) В исходной строке определить количество нулевых элементов и поделить на это количество каждый положительный элемент в этой стоке ... блин во препод загнул ...даже не предпологаю... как сделать ..... хотяб направьте хоть мои мысли в нужное русло .... 0

@l2ded 80 / 68 / 31 Регистрация: 10.05.2011 Сообщений: 284
	10.05.2011, 23:29	2
	Сообщение от vlad27 А(20,20) В исходной строке определить количество нулевых элементов и поделить на это количество каждый положительный элемент в этой стоке ... блин во препод загнул ...даже не предпологаю... как сделать ..... хотяб направьте хоть мои мысли в нужное русло .... Легко! 1.Для начала посчитай кол-во "0" элементов в строке, а потом на это подели каждый элемент. 2.В исходной - в заданой строчке? 3.А что вывести, то надо? 0

@vlad27 0 / 0 / 0 Регистрация: 26.04.2011 Сообщений: 32
	10.05.2011, 23:45 [ТС]	3
	ошибочка в КАЖДОЙ строчке ну я думаю надо вывести ответ после деления 0

@l2ded 80 / 68 / 31 Регистрация: 10.05.2011 Сообщений: 284
	10.05.2011, 23:55	4
	Сообщение от vlad27 ошибочка в КАЖДОЙ строчке ну я думаю надо вывести ответ после деления 1.Для начала посчитай кол-во "0" элементов в строке, if а(i,j)=0 then n=n+1 end if 2.Подели на каждый элемент. - это явно надо связывать с ещё 1 массивчиком или впихнуть это в массив 3. В кажлой строчке? ахаха)) 20 строчек )) - неплохо s=s & Chr(13) & t -это в цикл там бахни. t - строчка Но, помоему это бред! 0

@vlad27 0 / 0 / 0 Регистрация: 26.04.2011 Сообщений: 32
	11.05.2011, 09:41 [ТС]	5
	я и говорю препод ппц загнул ...... ну придется хоть как нибудь ...сделать ... 0

@Alex77755 11517 / 3803 / 681 Регистрация: 13.02.2009 Сообщений: 11,223
	11.05.2011, 21:44	8
	Сорри 0

@vlad27 0 / 0 / 0 Регистрация: 26.04.2011 Сообщений: 32
	12.05.2011, 00:05 [ТС]	9
	Cls- а что это за функция ... VBA ругается говорит что не определена 0

@Alex77755 11517 / 3803 / 681 Регистрация: 13.02.2009 Сообщений: 11,223
	12.05.2011, 00:07	10
	Это сделано в VB Адаптируй под себя в VBA 0

@vlad27 0 / 0 / 0 Регистрация: 26.04.2011 Сообщений: 32
	13.05.2011, 15:28 [ТС]	11
	Private Sub CommandButton1_Click() Dim R, C As Single Dim t As Single Dim M(1 To 20, 1 To 20) As Single Cells.Clear Cells(1, 21) = "íóëåé" Randomize For R = 1 To 20 For C = 1 To 20 M(R, C) = Int(50 * Rnd) Cells(R + 1, C) = M(R, C) Next C Next R For R = 1 To 20 t = 0 For C = 1 To 20 If M(R, C) = 0 Then t = t + 1 Next C For C = 1 To 20 If t <> 0 Then M(R, C) = M(R, C) / t Cells(R + 1, C) = M(R, C) End If Next C Next R End Sub ВОТ ТАК ВОТ ГУД??? ТОК НЕ ЗНАЮ КАК КОЛЛИЧЕСТВО НУЛЕЙ ВЫВЕСТИ ((( Добавлено через 1 час 53 минуты а как в этом массиве чтобы он делил на то колличество именно положительные элементы Добавлено через 8 минут всё сам сделал ..))) 0