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

Формулировка задачи:

Народ Помогите!!!!! Составить алгоритм и программу вычисления и вывода на печать элементов матрицы 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 Определить число строк матрицы, имеющих положительные элементы

Код к задаче: «Контрольное задание - VB»

textual
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

15   голосов, оценка 4.067 из 5


СОХРАНИТЬ ССЫЛКУ