Контрольное задание

@Popuriska · Регистрация: 23.11.2009

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

Народ Помогите!!!!!

Составить алгоритм и программу вычисления и вывода на печать элементов матрицы Z ij по формуле:
Zij= Lg |xi-yj|+ a^2 tgxi / xi^2 yj -a(Cosxi^2- Sin^3 yj)

Где i=1,2……7, j=1,2……11, a=2, 15

Определить число строк матрицы, имеющих положительные элементы

@БурундукЪ · 23.11.2009, 16:06

откуда брать xi, yj ?????

@Popuriska · 24.11.2009, 10:37 **[ТС]**

Ну наверное Х, У - неисвестные, а i=1,2……7, j=1,2……11, a=2, 15

@БурундукЪ · 24.11.2009, 11:17

там по идее не 2 неисвестных нуна, а тселый масссив
вернее 2: один по неисвестной Х, а второй по неисвестной У
?????

@Popuriska · 24.11.2009, 13:27 **[ТС]**

ммм да я так то же думаю. Немного непонятное задание. Черт нужно решить и через неделю сдать

@БурундукЪ · 24.11.2009, 13:28

Popuriska, спроси у препода

Сообщение от CyberБурундукЪ

откуда брать xi, yj ?????

@Popuriska · 25.11.2009, 12:07 **[ТС]**

Ну берем произвольные числа типо Хi = 4 а Yj= 6 к примеру. Потому что Хi это какая строка в матрице, а Уj какой столбец =))

Добавлено через 3 минуты
Правильно?

@БурундукЪ · 25.11.2009, 12:41

ага понял - 2 массива =))
щас

Visual Basic

dim x(1 to 7) as Double, y(1 to 12) as Double
dim Z1(1 to 7, 1 to 12) as Double,Z2(1 to 7, 1 to 12) as Double
const a1=2
const a2=15
 
for i = 1 to 7
  x(i) = inputbox("inp x(" & i & ")")
next i
for j = 1 to 12
  y(j) = inputbox("inp y(" & j & ")")
next j
 
for i = 1 to 7
  for j = 1 to 12
    Z1(i,j)= Log(abs(x(i)-y(j)))+ a1^2 * Tan(x(i)) / x(i)^2 * y(j) - a1 * (Cos(x(i)^2) - Sin(y(j))^3)
    Z2(i,j)= Log(abs(x(i)-y(j)))+ a2^2 * Tan(x(i)) / x(i)^2 * y(j) - a2 * (Cos(x(i)^2) - Sin(y(j))^3)
    msgbox "Z1(" & i & "," & j & ")=" & Z1(i,j)
    msgbox "Z2(" & i & "," & j & ")=" & Z2(i,j)
  next j
next i

@Popuriska · 25.11.2009, 13:09 **[ТС]**

Ставим всё это удовольствие на одну кнопочку=)) Доходит до Z1(1,12) и выдает ошибку:
Run-time '5':
Invalid procedure call or argument

@БурундукЪ · 25.11.2009, 13:14

Popuriska, у тя х=0 были?

@Popuriska · 25.11.2009, 13:28 **[ТС]**

На эту строчку ругается ---- Z1(i, j) = Log(Abs(x(i) - y(j))) + a1 ^ 2 * Tan(x(i)) / x(i) ^ 2 * y(j) - a1 * (Cos(x(i) ^ 2) - Sin(y(j)) ^ 3)
Нет небыло 0

Добавлено через 2 минуты
х=0 нет не ставила
ругаеться на строку № 15

@БурундукЪ · 25.11.2009, 13:45

а х = у вводила?
Log(0) жеж - неопределен

@Popuriska · 25.11.2009, 14:06 **[ТС]**

А куда вводить x=y? Я просто копирнула твой кодик, поставила его на кнопочку. Нажимала Пуск_вводила значения числовые и потом ошибка выскакивала

Добавлено через 4 минуты
Если вставляю числа которые больше 50 тогда все работает. Но если типо 2, 6, 1 тогда ошибку выдает =(

@БурундукЪ · 25.11.2009, 14:15

Popuriska, там в логарифме если из Х вычесть У и при этом Х=У, получаем 0
поэтому надо или вводить все данные разными, или хотя бы должны отличаться от у

Добавлено через 2 минуты
попробуй так

Visual Basic

dim x(1 to 7) as Double, y(1 to 12) as Double
dim Z1(1 to 7, 1 to 12) as Double,Z2(1 to 7, 1 to 12) as Double
const a1=2
const a2=15
 
for i = 1 to 7
  x(i) = inputbox("inp x(" & i & ")")
next i
for j = 1 to 12
  y(j) = inputbox("inp y(" & j & ")")
next j
 
for i = 1 to 7
  for j = 1 to 12
    if x(i)<>0 and x(i)<>y(j) then
    Z1(i,j)= Log(abs(x(i)-y(j)))+ a1^2 * Tan(x(i)) / x(i)^2 * y(j) - a1 * (Cos(x(i)^2) - Sin(y(j))^3)
    Z2(i,j)= Log(abs(x(i)-y(j)))+ a2^2 * Tan(x(i)) / x(i)^2 * y(j) - a2 * (Cos(x(i)^2) - Sin(y(j))^3)
    msgbox "Z1(" & i & "," & j & ")=" & Z1(i,j)
    msgbox "Z2(" & i & "," & j & ")=" & Z2(i,j)
    else
      msgbox "фтопку!!!"
    end if
  next j
next i

@Popuriska · 25.11.2009, 14:42 **[ТС]**

Работает! А Определить число строк матрицы, имеющих положительные элементы как сделать?

Добавлено через 21 секунду
Типо второй этап работы =)

@БурундукЪ · 25.11.2009, 14:59

Popuriska, а фтопку пишет?

щас второй этап решу

@Popuriska · 25.11.2009, 15:00 **[ТС]**

ага пашет прикольненько.... мб оставить для препода

@БурундукЪ · 25.11.2009, 15:01

и еще чо мы за строки примем, 1й индекс или второй?

@Popuriska · 25.11.2009, 15:02 **[ТС]**

первый =))

@БурундукЪ · 25.11.2009, 15:09

я для Z1 сделаю. для Z2 аналогично

Visual Basic

1 2	dim n as integer dim f as Boolean

это в начало проги

Visual Basic

n=0
for i = 1 to 7
  f=false
  for j = 1 to 12
    if Z1(i,j)<0 then f=true: exit for
  next j
  if not f then n=n+1
next i
msgbox n

это в конец проги

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	25.11.2009, 15:01	18
	и еще чо мы за строки примем, 1й индекс или второй? 0

@Popuriska 1 / 1 / 0 Регистрация: 23.11.2009 Сообщений: 48
	25.11.2009, 15:02 [ТС]	19
	первый =)) 0

@Popuriska 1 / 1 / 0 Регистрация: 23.11.2009 Сообщений: 48
		1
	Контрольное задание 23.11.2009, 14:57. Показов 2464. Ответов 20 Метки нет (Все метки) Народ Помогите!!!!! Составить алгоритм и программу вычисления и вывода на печать элементов матрицы Z ij по формуле: Zij= Lg \|xi-yj\|+ a^2 tgxi / xi^2 yj -a(Cosxi^2- Sin^3 yj) Где i=1,2……7, j=1,2……11, a=2, 15 Определить число строк матрицы, имеющих положительные элементы 0

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	23.11.2009, 16:06	2
	откуда брать xi, yj ????? 1

@Popuriska 1 / 1 / 0 Регистрация: 23.11.2009 Сообщений: 48
	24.11.2009, 10:37 [ТС]	3
	Ну наверное Х, У - неисвестные, а i=1,2……7, j=1,2……11, a=2, 15 0

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	24.11.2009, 11:17	4
	там по идее не 2 неисвестных нуна, а тселый масссив вернее 2: один по неисвестной Х, а второй по неисвестной У ????? 1

@Popuriska 1 / 1 / 0 Регистрация: 23.11.2009 Сообщений: 48
	24.11.2009, 13:27 [ТС]	5
	ммм да я так то же думаю. Немного непонятное задание. Черт нужно решить и через неделю сдать 0

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	24.11.2009, 13:28	6
	Popuriska, спроси у препода Сообщение от CyberБурундукЪ откуда брать xi, yj ????? 1

@Popuriska 1 / 1 / 0 Регистрация: 23.11.2009 Сообщений: 48
	25.11.2009, 12:07 [ТС]	7
	Ну берем произвольные числа типо Хi = 4 а Yj= 6 к примеру. Потому что Хi это какая строка в матрице, а Уj какой столбец =)) Добавлено через 3 минуты Правильно? 0

@Popuriska 1 / 1 / 0 Регистрация: 23.11.2009 Сообщений: 48
	25.11.2009, 13:09 [ТС]	9
	Ставим всё это удовольствие на одну кнопочку=)) Доходит до Z1(1,12) и выдает ошибку: Run-time '5': Invalid procedure call or argument 0

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	25.11.2009, 13:14	10
	Popuriska, у тя х=0 были? 0

@Popuriska 1 / 1 / 0 Регистрация: 23.11.2009 Сообщений: 48
	25.11.2009, 13:28 [ТС]	11
	На эту строчку ругается ---- Z1(i, j) = Log(Abs(x(i) - y(j))) + a1 ^ 2 * Tan(x(i)) / x(i) ^ 2 * y(j) - a1 * (Cos(x(i) ^ 2) - Sin(y(j)) ^ 3) Нет небыло 0 Добавлено через 2 минуты х=0 нет не ставила ругаеться на строку № 15 0

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	25.11.2009, 13:45	12
	а х = у вводила? Log(0) жеж - неопределен 0

@Popuriska 1 / 1 / 0 Регистрация: 23.11.2009 Сообщений: 48
	25.11.2009, 14:06 [ТС]	13
	А куда вводить x=y? Я просто копирнула твой кодик, поставила его на кнопочку. Нажимала Пуск_вводила значения числовые и потом ошибка выскакивала Добавлено через 4 минуты Если вставляю числа которые больше 50 тогда все работает. Но если типо 2, 6, 1 тогда ошибку выдает =( 0

@Popuriska 1 / 1 / 0 Регистрация: 23.11.2009 Сообщений: 48
	25.11.2009, 14:42 [ТС]	15
	Работает! А Определить число строк матрицы, имеющих положительные элементы как сделать? Добавлено через 21 секунду Типо второй этап работы =) 0

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	25.11.2009, 14:59	16
	Popuriska, а фтопку пишет? щас второй этап решу 0

@Popuriska 1 / 1 / 0 Регистрация: 23.11.2009 Сообщений: 48
	25.11.2009, 15:00 [ТС]	17
	ага пашет прикольненько.... мб оставить для препода 0