Контрольное задание - 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
Определить число строк матрицы, имеющих положительные элементы
Решение задачи: «Контрольное задание»
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