Найти максимальный элемент вещественной матрицы и указать его координаты

@eXclus · Регистрация: 04.12.2009

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

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

1. Целочисленная арифметика
Для заданных натуральных n, m (n, m >= 3) проверить: FnFm + Fn+1 Fm+1= Fn+m+1, где Fi — числа Фибоначчи.

2. Одномерные массивы
Даны два однотипных вектора размерности N. Получить их скалярное произведение.

3. Двумерные массивы
Найти максимальный элемент вещественной матрицы и указать его координаты.

4. Обработка строк
Дано натуральное N — некоторая сумма в копейках. Выразить сумму в рублях и копейках.
(Например, при N = 317 ответ: 3 руб. 17 коп.)

5. Обработка строк
Вывести слово с номером K заданного предложения.

Спасибо.

@БурундукЪ · 04.12.2009, 23:57

https://www.cyberforum.ru/qbas... 68358.html
подобное

@eXclus · 05.12.2009, 07:56 **[ТС]**

CyberБурундукЪ, а как это всё в VBA записать, через msgbox'ы и т.д., чтобы считало и работало ?

Спасибо.

@БурундукЪ · 05.12.2009, 13:12

1.

Visual Basic

Dim f()
n=INPUTbox("N")
m=INPUTbox("M") 
 ReDIM f(m+n+1)
f(1)=1
f(2)=1
FOR i=3 TO m+n+1
f(i)=f(i-1)+f(i-2)
NEXT i
IF f(n)*f(m)+f(n+1)*f(m+1)=f(n+m+1)THEN msgbox "yes" ELSE msgbox "no"

2.

Visual Basic

DIM a(),b()
n=INPUTbox("N")
reDIM a(n)
reDIM b(n)
FOR i=1 TO n
a(i)=INPUTbox("vvedite 1 vektor " & i )
NEXT i
FOR i=1 TO n
b(i)=INPUTbox("vvedite 2 vektor " & i )
NEXT i
FOR i=1 TO n 
ab=ab+a(i)*b(i)
NEXT i
msgbox ab

3.

Visual Basic

DIM a()
n=INPUTbox("N")
m=INPUTbox("M") 
ReDIM a(m,n)
FOR i=1 TO m
FOR j=1 TO n
a=INT(RND(100))
NEXT j
NEXT i
FOR i=1 TO m
FOR j=1 TO n
msgbox a(i,j) & " " & i & " " & j
NEXT j
NEXT i
max=a(1,1)
x=1
y=1
FOR i=1 TO m 
FOR j=1 TO n
IF a(i,j)>max THEN max=a(i):x=i:y=j
NEXT j
NEXT i
msgbox max
msgbox x
msgbox y

4.

Visual Basic

sum=INPUTbox("summa")
rub=sum\100
kop=sum MOD 100
msgbox  rub & " рублей " & kop & " копеек"

@eXclus · 05.12.2009, 20:38 **[ТС]**

CyberБурундукЪ, а там где имена ячеек (INPUTbox), не должны они называться по разному ?

@БурундукЪ · 05.12.2009, 20:41

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

а там где имена ячеек (INPUTbox), не должны они называться по разному

в смысле?
и INPUTbox эт не ячейка, а диалоговое окно для ввода данных

@eXclus · 05.12.2009, 20:46 **[ТС]**

CyberБурундукЪ, да, я про неё и веду речь. Мне вот эту строчку при проверке подчёркивает жёлтым цветом (debug):

Visual Basic

1	n=INPUTbox("N")

@БурундукЪ · 05.12.2009, 20:49

eXclus, а что пишет? принтскрин сделай и выложи

@eXclus · 05.12.2009, 21:46 **[ТС]**

[IMG]http://i081.***********/0912/25/c581b1eabab4.jpg[/IMG]
верно всё или нет ? )

Добавлено через 13 секунд

Добавлено через 39 минут
CyberБурундукЪ, а во второй задаче что означает вот эта строка, и что в ней n:

Visual Basic

1	n = InputBox("N")

@БурундукЪ · 05.12.2009, 22:05

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

верно всё или нет ? )

нет, не верно
я в понедельник все постараюсь проверить
щас скажу одно: не нужны на форме ячейки с М и Н

@eXclus · 05.12.2009, 22:08 **[ТС]**

CyberБурундукЪ,

Visual Basic

1	n=INPUTbox("N")

что означает во втором примере ?

@БурундукЪ · 05.12.2009, 22:22

Visual Basic

Sub Макрос1()
Dim f() As Integer
n = InputBox("N")
m = InputBox("M")
ReDim f(m + n + 1)
f(1) = 1
f(2) = 1
For i = 3 To l
f(i) = f(i - 1) + f(i - 2)
Next i
If f(n) * f(m) + f(n + 1) * f(m + 1) = f(m + n + 1) Then MsgBox "yes" Else MsgBox "no"
End Sub
 
Sub Макрос2()
Dim a(), b()
n = InputBox("N")
ReDim a(n)
ReDim b(n)
For i = 1 To n
a(i) = InputBox("vvedite 1 vektor " & i)
Next i
For i = 1 To n
b(i) = InputBox("vvedite 2 vektor " & i)
Next i
For i = 1 To n
ab = ab + a(i) * b(i)
Next i
MsgBox ab
End Sub
 
Sub Макрос3()
Dim a()
n = InputBox("N")
m = InputBox("M")
ReDim a(m, n)
For i = 1 To m
For j = 1 To n
a(i, j) = Int(Rnd(100))
Next j
Next i
For i = 1 To m
For j = 1 To n
MsgBox a(i, j) & " " & i & " " & j
Next j
Next i
max = a(1, 1)
x = 1
y = 1
For i = 1 To m
For j = 1 To n
If a(i, j) > max Then max = a(i): x = i: y = j
Next j
Next i
MsgBox max
MsgBox x
MsgBox y
End Sub
 
Sub Макрос4()
sum = InputBox("summa")
rub = sum \ 100
kop = sum Mod 100
MsgBox rub & " рублей " & kop & " копеек"
End Sub

проверил в Ворде. нашел ошибку в задании 3,
для первого задания введи Н=10, М=5, выйдет "уес"

@eXclus · 05.12.2009, 23:28 **[ТС]**

и это ошибочно, что при n=10 и m=5 получается yes ?

@БурундукЪ · 05.12.2009, 23:37

eXclus, я знаю? я перевел ту прогу с кубасика в Визуал

@eXclus · 12.12.2009, 14:32 **[ТС]**

а вот эту задачу легче никак нельзя решить ?

2. Одномерные массивы
Даны два однотипных вектора размерности N. Получить их скалярное произведение.

@Xpoft · 12.12.2009, 22:57

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

а вот эту задачу легче никак нельзя решить ?

2. Одномерные массивы
Даны два однотипных вектора размерности N. Получить их скалярное произведение.

Куда уж легче то?

@eXclus · 13.12.2009, 11:05 **[ТС]**

Xpoft, ок )

тогда, остаётся только 5 задача:

5. Обработка строк
Вывести слово с номером K заданного предложения.

@Toxa33rus · 13.12.2009, 11:51

5.

Visual Basic

stroka = "дайте что ли карты в руки погадать на короля"
arr=split(stroka, " ")
n=3
msgbox arr(n-1)

@eXclus · 13.12.2009, 15:49 **[ТС]**

Toxa33rus, вы проверяли, всё работает ?
Поясните, пожалуйста.

@Xpoft · 13.12.2009, 18:33

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

5.

Visual Basic

stroka = "дайте что ли карты в руки погадать на короля"
arr=split(stroka, " ")
n=3
msgbox arr(n-1)

split - разделяет предложение на массив слов с указанным разделителем, здесь это пробел
массив начинается с нулевого элемента поэтому выводим n-1 й элемент массива
еще вопросы?

@Xpoft Asgard's resident 91 / 88 / 10 Регистрация: 03.12.2009 Сообщений: 175
	12.12.2009, 22:57	16
	Сообщение от eXclus а вот эту задачу легче никак нельзя решить ? 2. Одномерные массивы Даны два однотипных вектора размерности N. Получить их скалярное произведение. Куда уж легче то? 1

@eXclus 0 / 0 / 0 Регистрация: 04.12.2009 Сообщений: 14
	13.12.2009, 15:49 [ТС]	19
	Toxa33rus, вы проверяли, всё работает ? Поясните, пожалуйста. 0

Найти максимальный элемент вещественной матрицы и указать его координаты

Решение

Решение

@БурундукЪ 10029 / 2618 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	04.12.2009, 23:57	2
	https://www.cyberforum.ru/qbas... 68358.html подобное 1

@eXclus 0 / 0 / 0 Регистрация: 04.12.2009 Сообщений: 14
	05.12.2009, 07:56 [ТС]	3
	CyberБурундукЪ, а как это всё в VBA записать, через msgbox'ы и т.д., чтобы считало и работало ? Спасибо. 0

@eXclus 0 / 0 / 0 Регистрация: 04.12.2009 Сообщений: 14
	05.12.2009, 20:38 [ТС]	5
	CyberБурундукЪ, а там где имена ячеек (INPUTbox), не должны они называться по разному ? 0

@БурундукЪ 10029 / 2618 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	05.12.2009, 20:41	6
	Сообщение от eXclus а там где имена ячеек (INPUTbox), не должны они называться по разному в смысле? и INPUTbox эт не ячейка, а диалоговое окно для ввода данных 1

@БурундукЪ 10029 / 2618 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	05.12.2009, 20:49	8
	eXclus, а что пишет? принтскрин сделай и выложи 1

@БурундукЪ 10029 / 2618 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	05.12.2009, 22:05	10
	Сообщение от eXclus верно всё или нет ? ) нет, не верно я в понедельник все постараюсь проверить щас скажу одно: не нужны на форме ячейки с М и Н 1

@eXclus 0 / 0 / 0 Регистрация: 04.12.2009 Сообщений: 14
	05.12.2009, 23:28 [ТС]	13
	и это ошибочно, что при n=10 и m=5 получается yes ? 0

@БурундукЪ 10029 / 2618 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	05.12.2009, 23:37	14
	eXclus, я знаю? я перевел ту прогу с кубасика в Визуал 1

@eXclus 0 / 0 / 0 Регистрация: 04.12.2009 Сообщений: 14
	12.12.2009, 14:32 [ТС]	15
	а вот эту задачу легче никак нельзя решить ? 2. Одномерные массивы Даны два однотипных вектора размерности N. Получить их скалярное произведение. 0

@eXclus 0 / 0 / 0 Регистрация: 04.12.2009 Сообщений: 14
	13.12.2009, 11:05 [ТС]	17
	Xpoft, ок ) тогда, остаётся только 5 задача: 5. Обработка строк Вывести слово с номером K заданного предложения. 0