Решение квадратного уравнения на V.Basic (исходник) Отчёт о практике по информатике и вычислительной технике | Диплом Шоп | diplomshop.ru
ДИПЛОМ ШОП
Готовые дипломы и дипломы на заказ

Библиотека

Как купитьЗаказатьСкидкиПродатьВакансииКонтактыНаши партнёрыВойти

Отчёт о практике / Информатика и вычислительная техника / Решение квадратного уравнения на V.Basic (исходник)

Готовые ?????? ? ????????

Отчёт о практике  Решение квадратного уравнения на V.Basic (исходник)

Предмет:Информатика и вычислительная техника.
Кол-во страниц:12.
Цена:500 руб. Купить отчёт о практике »

Содержание:

Аналитический способ

Приближенный способ

Графический способ

Option Explicit
Private Const PointsCount As Long = 40
Private Const frame As Single = 300
Private x_min As Double, x_max As Double
Private y_min As Double, y_max As Double
Private kx As Double, ky As Double
Private Sub Form_Load()
fraControl.Left = Me.ScaleWidth - fraControl.Width
picPlot.Move 0, 0, fraControl.Left, Me.ScaleHeight
End Sub
Private Sub cmdGo_Click()
Dim i As Long, x As Double, y As Double
Dim x0 As Single, y0 As Single

x_min = -5: x_max = 10
y_min = -20: y_max = 30
kx = (picPlot.ScaleWidth - 2 * frame) / (x_max - x_min)
ky = (picPlot.ScaleHeight - 2 * frame) / (y_max - y_min)

x0 = -x_min * kx
y0 = -y_min * ky

picPlot.Cls
picPlot.Line (frame + x0, frame)-(frame + x0, picPlot.ScaleHeight - frame), &HA0A0A0
picPlot.Line (frame, picPlot.ScaleHeight - frame - y0)-(picPlot.ScaleWidth - frame, picPlot.ScaleHeight - frame - y0), &HA0A0A0

If chkPoints.Value = vbChecked Then
DrawPoint frame + x_min * kx + x0, picPlot.ScaleHeight - frame - math_func(x_min) * ky - y0
End If

picPlot.CurrentX = frame + x_min * kx + x0
picPlot.CurrentY = picPlot.ScaleHeight - frame - math_func(x_min) * ky - y0

For i = 1 To PointsCount

x = x_min + i * (x_max - x_min) / PointsCount
y = math_func(x)

picPlot.Line -(frame + x * kx + x0, picPlot.ScaleHeight - frame - y * ky - y0)
If chkPoints.Value = vbChecked Then
DrawPoint frame + x * kx + x0, picPlot.ScaleHeight - frame - y * ky - y0
End If

Next i

picPlot.Line (frame, frame)-(picPlot.ScaleWidth - frame, picPlot.ScaleHeight - frame), &H808080, B
End Sub
Private Function math_func(ByVal x As Double) As Double
Dim k As Double, b As Double
If optFunc(0).Value Then
k = 2
b = 3
math_func = k * x + b

End If
End Function
Private Sub DrawPoint(ByVal x As Single, ByVal y As Single)
picPlot.DrawWidth = 3
picPlot.PSet (x, y)
picPlot.DrawWidth = 1
End Sub

К работе прилагается программа с исходным кодом.
К работе прилагается все исходники.
К работе прилагается рабочая программа на языке программирования

 

Если вы хотите купить отчёт о практике Решение квадратного уравнения на V.Basic (исходник)
или задать вопрос по работе, пишите через форму обратной связи.

Хотите предложить свою цену ? Торг уместен.



Обратная связь

Купить отчёт о практике »
Ваши координаты:
Имя: *
Телефон: *
Введите ваш телефон, чтобы мы смогли связаться с вами.
Эл. почта: *
Этот адрес используется только для контактов с вами.
Сообщение:
* — поля обязательные для заполнения.

 


Поиск работ


нам 10 лет

Услуги

Информация