В числовую переменную последовательно вводится N произвольных чисел - VB
Формулировка задачи:
2. В числовую переменную последовательно вводится N произвольных чисел.Найти среди них последнюю непрерывную цепочку чисел одного знака.определить знак этой последовательности и число её членов
3. Ввести и напечатать матрицу размером (nxm).Найти элементы матрицы,превосходящие сумму других элементов в своём столбце и меньше суммы других элементов в своей строке
4. Ввести квадратную матрицу вещественных чисел.Исходную матрицу напечатать.Найти максимальный элемент и его координаты среди элементов матрицы,находящихся ниже главной диагонали
Напишите пожалуйста код для этих задач, но если возможно, то прошу, скиньте сами работы в Visual Basik на мою почту removed@mail.ru …буду очень благодарна
Решение задачи: «В числовую переменную последовательно вводится N произвольных чисел»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д