Построить график функции - VB (169984)
Формулировка задачи:
Помогите построить график функции у = 2x^3 + 2x^2 + x на отрезке, координаты концов которого вводятся с клавиатуры. Построить оси координат и разместить на них деления, рядом с которыми расположить числа в соответствии с заданным масштабом.
Решение задачи: «Построить график функции»
textual
Листинг программы
Option Explicit Dim A!, B!, C!, D! Dim x!, y!, sh!, max!, min! Private Sub cmd1_Click() pic.Cls A = Val(txtA.Text) B = Val(txtB.Text) sh = (B - A) / 500 max = f(A) min = max For x = A To B Step sh If max < f(x + sh) Then max = f(x + sh) If min > f(x + sh) Then min = f(x + sh) Next C = max D = min pic.Scale (A, C)-(B, D) pic.DrawWidth = 2 pic.Line (0, C)-(0, D) pic.Line (A, 0)-(B, 0) pic.DrawWidth = 4 For x = A To B Step (B - A) / 10 pic.PSet (x, 0), vbGreen pic.Print Format(x, "0.0") Next For y = C To D Step (D - C) / 10 pic.PSet (0, y), vbGreen pic.Print Format(y, "0.0") Next For x = A To B Step sh / 2 y = f(x) pic.PSet (x, y), vbRed Next End Sub Private Function f(x!) As Single f = 2 * x ^ 3 + 2 * x ^ 2 + x End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д