Для лентяев

Lalique · 18.04.2009

Помогите, очень очень надо решить задачку в VBA: Седловой точкой в матрице называется элемент, являющийся одновременно наибольшим в столбце и наименьшим в строке. Седловых точек может быть и несколько (в этом случае они имеют равные значения). В матрице A(m,n) найти седловую точку и ее координаты p,q, либо установить, что такой точки нет.

SkaMaggotGhost · 19.04.2009

Я Вас категорически приветствую!! Помогите с решением задачи. Дан документ (*.doc) в котором содержаться: шифр статьи, название и имена авторов. Что б в ручную не копипастить все эти данные нужно сделать макрос, я вижу решение таким: выделяем шифр название и авторов символами, к примеру вот так- }Шифр} , ©Авторы©, {Название{. Макрос пробегаеться по всему документу, находит нужные символы, выделяет и переносит все это в БД.

примерно получился такой код.. для одного символа .. далее по анологии.. проблема в том как сделать чтобы он выделял область внутри символов и делал перенос в БД?? (MySQL)..

Sub Макрос3()
'
'
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Text = "{"
While Selection.Find.Execute=True
i = 0
While Selection.Text <> "}"
Selection.MoveRight Unit:=wdCharacter, Count:=1
i = i + 1
Wend
Selection.MoveRight Unit:=wdCharacter, Count:=1
i = i + 1
Selection.MoveLeft Unit:=wdCharacter, Count:=i, Extend:=wdExtend
Selection.Font.Italic = True
Selection.MoveRight Unit:=wdCharacter, Count:=1
Wend
End Sub

Заранее спасибо..

BGD9517 · 19.04.2009

Lalique, Вам повезло, т. к. я решал похожую задачу! (А сейчас и не вспомнил бы). В общем решение такое:

Код:

dim a(m,n), p(10), e(10) as integer
for i = 1 to m
for j = 1 to n
a(i,j) =cint(rnd*(20-1)+1) 'Заполняем массив случайным образом
next j
next i
min = a(1,1)
for i = 1 to m
for j = 1 to n
if a(i,j)<min then min = a(i,j)
t = i
t1 = j
next j
p(i) = min
next i
for j = 1 to m
for i = 1 to n
if a(i,j)>max then max = a(i,j)
next
e(j) = max
next
for i = 1 to 10
if p(i) = m(i) then 
msg box "Седловая точка", a(t,t2)
else 
msgbox "нет"
end if
next

З.Ы код немного надо подправить, буквы и тп.

Lalique · 21.04.2009

спасибо большое.а можно еще такой вопрос:как правильно задать случайным образом многомерный массив с выводом на лист Excel?

Jumpy · 21.04.2009

Lalique сказал(а):
спасибо большое.а можно еще такой вопрос:как правильно задать случайным образом многомерный массив с выводом на лист Excel?

dim a as integer
dim b as integer

dim M as integer
dim N as integer

M = 10 'задаем размерность массива
N = 5

for a = 1 to M
for b =1 to N
cells(a,

= rnd()*10000 'случайное число от 0 до 10000
next b
next a

в итоге получим поле 10 на 5 заполненное случайными числами

BGD9517 · 21.04.2009

Lalique, вы помоему то сообщение, где я вам код написал, так и не прочитали

a(i,j) =cint(rnd*(20-1)+1) 'Заполняем массив случайным образом

А на счёт экселя, эт я пока не знаю

Jumpy, твое решение мне кажется не очень правильно(может я не прав)

Lalique · 22.04.2009

BGD9517, я нашла как заполнить массив в Excel, вдруг пригодится

Dim a() As Variant
m = UserForm1.TextBox1.Value
n = UserForm1.TextBox2.Value
ReDim a(1 To m, 1 To n) As Variant
For i = 1 To m
For j = 1 To n
a(i, j) = Fix(Rnd(1) * 50)
Next j
Next i
For i = 1 To m
For j = 1 To n
Worksheets(1).Range(Cells(1, 1), Cells(i, j)).Value = a
Next j
Next i

Jumpy · 22.04.2009

BGD9517 сказал(а):
Lalique, вы помоему то сообщение, где я вам код написал, так и не прочитали

А на счёт экселя, эт я пока не знаю
Jumpy, твое решение мне кажется не очень правильно(может я не прав)

А я не знаю что такое "заполнить массив в экселе" ))
что такое заполнить массив в VBA - знаю.
Что такое заполнить таблицу из массива - догадываюсь

по факту паходу надо было заполнить массив и вывести на лист

Lalique · 22.04.2009

Jumpy, признаю, не правильно сформулировала

бывает

Jumpy · 22.04.2009

Lalique сказал(а):
Jumpy, признаю, не правильно сформулировала бывает

ничего страшного

) обращайтесь еще

Lalique · 24.04.2009

BGD9517, преподша забраковала программу. Седловая точка точка находится немного не так: нужно найти max всех столбцов,а затем среди этих чисел определить min. Аналогично по строкам, найти min всех строк, а среди них max. И если min=max это и есть седловая точка. Теперь вопрос, как это сделать?

Jumpy · 24.04.2009

Lalique сказал(а):
BGD9517, преподша забраковала программу. Седловая точка точка находится немного не так: нужно найти max всех столбцов,а затем среди этих чисел определить min. Аналогично по строкам, найти min всех строк, а среди них max. И если min=max это и есть седловая точка. Теперь вопрос, как это сделать?

Эм... правильно ли я понял:
1) В Каждом столбце найти максимальное значение
2) Среди найденных максимальных значений - найти минимальное
3) В каждой строке найти минимальное значение
4) Среди найденных минимальных значений - найти максимальное.

если найденное в 2) равно найденном в 4) это и есть седловая точка ?
Вопрос: чего делать если все всему равны, т.е. в таблице 2на2:

3 3
3 3

Ноль седловых точек или 4ре ?

Lalique · 24.04.2009

Jumpy сказал(а):
Эм... правильно ли я понял:
1) В Каждом столбце найти максимальное значение
2) Среди найденных максимальных значений - найти минимальное
3) В каждой строке найти минимальное значение
4) Среди найденных минимальных значений - найти максимальное.

если найденное в 2) равно найденном в 4) это и есть седловая точка ?
Вопрос: чего делать если все всему равны, т.е. в таблице 2на2:

3 3
3 3

Ноль седловых точек или 4ре ?

получается, что 4.но этот случай не надо рассматривать

Jumpy · 24.04.2009

ыыыы щас чо нить наваяю...

дан массив A(m,n)

Код:

dim a as integer
dim b as integer
dim MAX as double 'максимальное значение в столбце
dim CURRENT_MAX as double 'минимальное значение среди всех максимальных значений в столбцах
dim MIN as double 'аналог, только для строк
dim CURRENT_MIN as double 

current_max = A(1,1)
for a = 1 to m
MAX = A(a,1) 'по умолчанию считаем что первый элемент и есть максимальный
CURRENT_MAX = MAX
for b = 1 to n
if MAX < A(a,b) then
MAX = A(a,b)
end if
next b
if CURRENT_MAX > MAX then 'если текущее минимальное значение среди максимальных больше чем данное максимальное
CURRENT_MAX = MAX 'считаем его наименьшим максимальным :)
end if
next a

'тож самое для строк
CURRENT_MIN = A(1,1)
for b = 1 n
MIX = A(1,b) 
for a = 1 to m
if MIN > A(a,b) then
MIN = A(a,b)
end if
next b
if CURRENT_MIN < MIN then 
CURRENT_MIN = MIN 'считаем его наименьшим максимальным :)
end if
next a

if CURRENT_MIN = CURRENT_MAX then
'седловая точка есть, ее значение = CURRENT_MIN
'если ее надо вывести то
for a = 1 to m
for b = 1 to n 
if A(a,b) = CURRENT_MIN then 
msgbox ("Элемент массива А(" & a & ":" & b & ") является седловой." )
'ну или выписать a,b - если эти индексы надо сохранить
end if
next b
next a
else
call msgbox("Чота нету седловой, нет в жизни счастья :( ")
end if

Lalique · 25.04.2009

Jumpy сказал(а):
ыыыы щас чо нить наваяю...

Спасибо большое, Вы мне очень помогли!!!
Еще один вопрос: как сделать, чтобы программа запоминала индексы имеено седловой точки, а то например, когда вбиваешь матрицу

4 5 3
6 7 4
5 2 3

седловой точко является А(2,3)=4, а
программа выводит А(1,1), т.к. значение тоже =4. кстати в любым примерах А(1,1) показывает ( задавали current_max = A(1,1) и current_max = A(1,1))

Jumpy · 25.04.2009

Lalique сказал(а):
Спасибо большое, Вы мне очень помогли!!!
Еще один вопрос: как сделать, чтобы программа запоминала индексы имеено седловой точки, а то например, когда вбиваешь матрицу

4 5 3
6 7 4
5 2 3

седловой точко является А(2,3)=4, а
программа выводит А(1,1), т.к. значение тоже =4. кстати в любым примерах А(1,1) показывает ( задавали current_max = A(1,1) и current_max = A(1,1))

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

Код:

dim a as integer
dim b as integer
dim MAX as double 'максимальное значение в столбце
dim CURRENT_MAX as double 'минимальное значение среди всех максимальных значений в столбцах
dim MIN as double 'аналог, только для строк
dim CURRENT_MIN as double 

Dim IND_MAX_A as integer 
Dim IND_MAX_B as integer
Dim IND_MIN_A as integer
Dim IND_MIN_B as integer

Dim CURRENT_IND_MAX_A as integer
Dim CURRENT_IND_MAX_B as integer
Dim CURRENT_IND_MIN_A as integer
Dim CURRENT_IND_MIN_B as integer

current_max = A(1,1)
CURRENT_IND_MAX_A = 1
CURRENT_IND_MAX_B = 1

for a = 1 to m
MAX = A(a,1) 'по умолчанию считаем что первый элемент и есть максимальный
CURRENT_MAX = MAX
for b = 1 to n
if MAX < A(a,b) then
MAX = A(a,b)
CURRENT_IND_MAX_A = a
CURRENT_IND_MAX_B = b
end if
next b
if CURRENT_MAX > MAX then 'если текущее минимальное значение среди максимальных больше чем данное максимальное
CURRENT_MAX = MAX 'считаем его наименьшим максимальным :)
IND_MAX_A = CURRENT_IND_MAX_A
IND_MAX_B = CURRENT_IND_MAX_B
end if
next a

'тож самое для строк
CURRENT_MIN = A(1,1)
CURRENT_IND_MIN_A = 1
CURRENT_IND_MIN_B = 1
for b = 1 n
MIX = A(1,b) 
for a = 1 to m
if MIN > A(a,b) then
MIN = A(a,b)
CURRENT_IND_MIN_A = a
CURRENT_IND_MIN_B = b
end if
next b
if CURRENT_MIN < MIN then 
CURRENT_MIN = MIN 'считаем его наименьшим максимальным :)
IND_MIN_A = CURRENT_IND_MIN_A
IND_MIN_B = CURRENT_IND_MIN_B
end if
next a

if IND_MIN_A = IND_MAX_A and IND_MIN_B = IND_MAX_B then
'седловая точка есть, ее значение = CURRENT_MIN, координаты A(IND_MIN_A, IND_MIN_B)
else
call msgbox("Чота нету седловой, нет в жизни счастья :( ")
end if

но, в этой проге есть один большой минус - она определяет только одну седловую точку
если надо определять все седловые - то нужно заводить другой массив в котором будут храниться нас устраивающие координаты элементов.

Lalique · 29.04.2009

спасибо и на этом

Jumpy, теперь вообще всегда выводит (0,0)

Jumpy · 01.05.2009

Lalique сказал(а):
спасибо и на этом

Jumpy, теперь вообще всегда выводит (0,0) :huh:

а седловая точка точно есть ?
кстати там ошипка, возможен вариант - даж если седловой нет - он не выдаст сообщения

а выведет как раз 0, 0

YoYap · 03.05.2009

Всем привет!Помогите подалуйста написать программу.Условия:Определить количество отрицательного значения функция на отрезке заданным шагом y=xcoskx,xE[a,b]
Буду очень благодарен!

Goodfriend · 03.05.2009

Здравствуйте! Помогите,пожалуйста,с простенькой задачкой:
Найти сумму элементов массива A(M) находящихся между первым из максимальных и последним из минимальных элементов. Спасибо

Все сервисы Codeby

Поиск

Поиск

Для лентяев

Lalique

SkaMaggotGhost

BGD9517

Lalique

Jumpy

BGD9517

Lalique

Jumpy

Lalique

Jumpy

Lalique

Jumpy

Lalique

Jumpy

Lalique

Jumpy

Lalique

Jumpy

YoYap

Goodfriend