Графическое решение квадратных уравнений

@tanya peshkina · Регистрация: 06.02.2011

Студворк — интернет-сервис помощи студентам

Помогите пожайлуста решить графически квадратное уравнение в visual basic!!!!

@Alex77755 · 06.02.2011, 09:52

начинай решать - что не будет получаться - спросишь

@tanya peshkina · 06.02.2011, 18:22 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command1_Click()
a=inputbox ("введите переменную")
b=inputbox ("введите переменную")
c=inputbox ("введите переменную")
d=b^2-4*a*c
if d>=0 then
x1=-b+sqrd/2*a
x2=-b-sqrd/2*a
else 
x1="нет корней"
x2="нет корней"
end if
print x1,x2
 scale (-5,0)-(5,0)
line (0,-5)-(0,5)
for x=-5 to x=5
y=x^2
pset (x,y)
next 
print 
End Sub

скажите пожайлуста, что в решении неверно??

@gaw · 06.02.2011, 19:02

x1=-b+sqr(d)/2*a
scale (-5,0)-(5,0) почему 5
y=x^2 ?

@tanya peshkina · 06.02.2011, 19:24 **[ТС]**

Scale (0, 0)-(10, 10)
Line (5, 5)-(10, 10)
For x = 5 To 10 Step 1
y = a * x ^ 2 + b * x + c
скажите пожайлуста какие лучше взять координаты для scale и line

@Alex77755 · 06.02.2011, 21:11

Коэффициенты надо рассчитывать, что бы график вписался
Линии положено проводить по осям. Т.е. или X = 0 или y = 0
Что бы был симметричен график относительно оси Y масштаб хорошо выбирать 1.2*ABS(максимальный корень). Масштаб по Y расчитывается по масштабу X
Можно примерно так:

Private Sub Комманда1_Click()
Dim a, b, c, d
Dim Y1, Y2
Dim XX

Cls
Randomize
a = Val(InputBox("введите коэффицент a", "Ввводд данных", 2))
b = Val(InputBox("введите коэффицент b", "Ввводд данных", 8))
c = Val(InputBox("введите коэффицент c", "Ввводд данных", -25))

d = b ^ 2 - 4 * a * c
If d >= 0 Then
X1 = -b + Sqr(d) / 2 * a
X2 = -b - Sqr(d) / 2 * a
Else
X1 = "нет корней"
X2 = "нет корней"
Print X1, X2
Exit Sub
End If

Print X1, X2
XX = IIf(Abs(X1) > Abs(X2), X1, X2)

Y1 = 1.2 * a * X1 ^ 2 + b * X1 + c
Y2 = 1.2 * a * X2 ^ 2 + b * X2 + c

Scale (-1.2 * XX, Y2)-(1.2 * XX, -Y1)
Line (-1.2 * XX, 0)-(1.2 * XX, 0), RGB(255, 0, 255)
Line (0, YY)-(0, -YY), RGB(255, 0, 255)
For x = -Abs(XX) To Abs(XX) Step 0.01
y = a * x ^ 2 + b * x + c
PSet (x, y), RGB(255, 0, 255)
Next
Print
End Sub

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@tanya peshkina 0 / 0 / 0 Регистрация: 06.02.2011 Сообщений: 6

	Графическое решение квадратных уравнений 06.02.2011, 08:36. Показов 3701. Ответов 5 Метки нет (Все метки) Помогите пожайлуста решить графически квадратное уравнение в visual basic!!!! 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	06.02.2011, 09:52
	начинай решать - что не будет получаться - спросишь 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	06.02.2011, 19:02
	x1=-b+sqr(d)/2*a scale (-5,0)-(5,0) почему 5 y=x^2 ? 0

@tanya peshkina 0 / 0 / 0 Регистрация: 06.02.2011 Сообщений: 6
	06.02.2011, 19:24 [ТС]
	Scale (0, 0)-(10, 10) Line (5, 5)-(10, 10) For x = 5 To 10 Step 1 y = a * x ^ 2 + b * x + c скажите пожайлуста какие лучше взять координаты для scale и line 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	06.02.2011, 21:11
	Коэффициенты надо рассчитывать, что бы график вписался Линии положено проводить по осям. Т.е. или X = 0 или y = 0 Что бы был симметричен график относительно оси Y масштаб хорошо выбирать 1.2ABS(максимальный корень). Масштаб по Y расчитывается по масштабу X Можно примерно так: Private Sub Комманда1_Click() Dim a, b, c, d Dim Y1, Y2 Dim XX Cls Randomize a = Val(InputBox("введите коэффицент a", "Ввводд данных", 2)) b = Val(InputBox("введите коэффицент b", "Ввводд данных", 8)) c = Val(InputBox("введите коэффицент c", "Ввводд данных", -25)) d = b ^ 2 - 4 a * c If d >= 0 Then X1 = -b + Sqr(d) / 2 * a X2 = -b - Sqr(d) / 2 * a Else X1 = "нет корней" X2 = "нет корней" Print X1, X2 Exit Sub End If Print X1, X2 XX = IIf(Abs(X1) > Abs(X2), X1, X2) Y1 = 1.2 * a * X1 ^ 2 + b * X1 + c Y2 = 1.2 * a * X2 ^ 2 + b * X2 + c Scale (-1.2 * XX, Y2)-(1.2 * XX, -Y1) Line (-1.2 * XX, 0)-(1.2 * XX, 0), RGB(255, 0, 255) Line (0, YY)-(0, -YY), RGB(255, 0, 255) For x = -Abs(XX) To Abs(XX) Step 0.01 y = a * x ^ 2 + b * x + c PSet (x, y), RGB(255, 0, 255) Next Print End Sub 0