Найти количество положительных чисел среди элементов, лежащих ниже побочной диагонали - VB
Формулировка задачи:
Листинг программы
- Private Sub Command1_Click()
- Dim A() As Single, N As Integer
- Dim I%, J%, K%, As Single
- Dim T As Integer
- N = InputBox("введите число строк")
- ReDim A(1 To N, 1 To N)
- K = 0: Randomize
- Fl1.Rows = N + 1: Fl1.Cols = N + 1
- For I = 1 To N
- For J = 1 To N
- A(I, J) = Round(Rnd * 100 - 50)
- If A(I, J) > 0 And I + J > N + 1 Then K = A(I, J)
- Fl1.TextMatrix(I, J) = A(I, J)
- Next J, I
- Picture1.Cls
- Picture1.Print " матрица"
- For I = 1 To N
- For J = 1 To N
- List1(J - 1).List(I - 1) = A(I, J)
- Form1.Picture1.Print " "; Format(A(I, J), "###0");
- Next J
- Picture1.Print
- Next I
- MsgBox "Кол-во полож. чисел" & N, vbMsgBoxRtlReading + VbInmormation, "прочти"
- Text1.Text = ""
- For I = 1 To N
- T = ""
- For J = 1 To N
- T = T + Str(A(I, J)) & " "
- Next J
- Text1.Text = Text1.Text & T & vbCrLf
- Next I
- Label3.Visible = True
- Label3.Caption = "кол-во полож. чисел" & N
- End Sub
Решение задачи: «Найти количество положительных чисел среди элементов, лежащих ниже побочной диагонали»
textual
Листинг программы
- Fl1.Rows = N + 1: Fl1.Cols = N + 1
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д