Построение графика - VB (63103)
Формулировка задачи:
Уважаемы, помогите пожалуйста с программой. Бысик мне даться с трудом и быть может я бы и сам сделал, но время поджимает, боюсь, не успею.
Знающий с эти задание справиться во много раз быстрее, чем я.
Прикрепляю пример выполнения и надеюсь на ваше великодушие..
Заранее благодарен
Написать программу для построения графика функции -x2 + - 2x + 4y + 30 = 0 для любых начального, предельного значений и шага табуляции, заданных пользователем.
Решение задачи: «Построение графика»
textual
Листинг программы
Private Sub Command1_Click() 'Масштаб Picture1.Scale (-10, 100)-(10, -100) 'Ось ОХ Picture1.Line (-10, 0)-(10, 0) For i = -10 To 10 Picture1.PSet (i, 0) Picture1.Print i Next i 'Ось ОY Picture1.Line (0, 100)-(0, -100) For i = -100 To 100 Step 5 Picture1.PSet (0, i) Picture1.Print i Next i 'Picture1.Cls 'Построение графика d = Val(InputBox("Мин:")) f = Val (InputBox("Макс:")) n = Val(InputBox("шаг:")) For x = d To f Step n Picture1.PSet (x, -1 * x ^ 2 + -2 * x + 4 * y + 30), QBColor(4) Next x End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д