В числовую переменную последовательно вводится N произвольных чисел - VB

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

2. В числовую переменную последовательно вводится N произвольных чисел.Найти среди них последнюю непрерывную цепочку чисел одного знака.определить знак этой последовательности и число её членов 3. Ввести и напечатать матрицу размером (nxm).Найти элементы матрицы,превосходящие сумму других элементов в своём столбце и меньше суммы других элементов в своей строке 4. Ввести квадратную матрицу вещественных чисел.Исходную матрицу напечатать.Найти максимальный элемент и его координаты среди элементов матрицы,находящихся ниже главной диагонали Напишите пожалуйста код для этих задач, но если возможно, то прошу, скиньте сами работы в Visual Basik на мою почту www.sestrynovooo@rambler.ru …буду очень благодарна

Код к задаче: «В числовую переменную последовательно вводится N произвольных чисел - VB»

textual
Private Sub Запуск_Click()
Dim x As Single, y As Single 'объявление переменных
x = Val(Text1.Text)     'присваиваем переменной Х значение текстового поля
Label2.Visible = False
Label2.Caption = ""
Label3.Visible = False
Label3.Caption = ""
Label4.Visible = False
Label4.Caption = ""
Label5.Visible = False
Label5.Caption = ""
If x > 0 And x <= 5 Then
y = x * Exp(-x)     ' вычисляем значение ф-ии..
Label2.Visible = True
Label2.Caption = "функция вычисляется по формуле"
Label3.Visible = True
Label3.Caption = "получен результат Y="
Label4.Visible = True
Label4.Caption = Format(y, "###.0000")
Label5.Visible = True
Label5.Caption = "y = x * Exp(-x)"
ElseIf x <= -3 And x > 8 Then
y = Sin(x) - Exp(x) + 5   ' вычисляем значение ф-ии..
Else
Label2.Visible = True
Label2.Caption = "функция вычисляется по формуле"
Label3.Visible = True
Label3.Caption = "получен результат Y="
Label4.Visible = True
Label4.Caption = Format(y, "###.0000")
Label5.Visible = True
Label5.Caption = "y = Sin(x) - Exp(x) + 5"
End If
End Sub

7   голосов, оценка 4.286 из 5


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