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

@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 минут
всё сам сделал ..)))

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

@vlad27 0 / 0 / 0 Регистрация: 26.04.2011 Сообщений: 32
		1
	обработка двумерных массивов 10.05.2011, 23:22. Показов 1562. Ответов 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