Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Прогаааа
Language: BASIC
Code:
Sub SAMPLE()
Dim X(6) as integer, Y(6)as integer, Z(6, 6)as integer
Dim I As Integer, J As Integer, S As Integer, N As Integer
Rem ввод X(I)
For I = 1 To 6
Input X(I)
Next I
Rem ввод Y(J)
For J = 1 To 6
Input Y(J)
Next J
Rem Вычисление элементов матрицы
For I = 1 To 6
For J = 1 To 6
Z(I, J) = (X(I) * (Sin(Y(J)) ^ 3) - LoG(X(I) * (Y(J) ^ (2 / 3)))) / (1 + LoG(Abs(X(I) - Y(J))))
Next J
Next I
Rem Подсчет числа строк с отрицательной суммой элементов
S = 0
N = 0
For I = 1 To 6
For J = 1 To 6
S = S + Z(I, J)
Next J
If S < 0 Then N = N + 1
S = 0
Next I
Print "число строк с отрицательной суммой элементов"; N
End Sub
          
          
          
          
          
          
          
          
          
Comments: