Определить корни уравнения: x ^ 3-6x + 1 на отрезке [0..8]. графическим методом,аналитическим методом и создайте программу . программа turbo pascal.

121

349

Посмотреть ответы 1

Ответы на вопрос:

pe4enel

Информатика

4,8(95 оценок)

Вvisual basic на форме нужно создать текстовое поле label1 со свойством wordwrap = true, то есть многострочное поле, размер нужно задать, чтобы поместилась вся матрица. sub matrix dim f() as integer ' объявляем динамический массив dim m as integer, i as integer, k as integer, t as string ' и переменные m = inputbox ("vvedite razmer matrix") ' задаем размер массива redim f(m, m) ' определяем размер массива for i = 1 to m ' ввод данных for k = 1 to m t = "vvedite element matrix" & str(i) & "," & str(k) f(i, k) = inputbox (t) next k next i for i = 1 to m f(i, i) = 0 ' обнуляем элементы главной диагонали. next i for i = 1 to m for k = 1 to m ' вывод строки данных через табуляцию label1.caption = label1.caption & f(i, k) & chr(9) next k label1.caption = label1.caption & vbcrlf ' переход на следующую строку next i end sub