Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Помогите решить задачу

Автор: jaduk 18.9.2010, 12:45

помогит решить задачку в программе Qbasic
A*x^2 + B*x + C = 0
начало я знаю
Cls
input "введите значение", A
input "введите значение", B
input "введите значение", C

а дальше как?
если можно обьясните
заранее благодарю

Автор: Данкинг 18.9.2010, 17:02

Цитата(jaduk @ 18.9.2010, 13:45

)

а дальше как?

А дальше я бы написал, если бы ты напомнил, как квадратные уравнения решаются.

Автор: jaduk 18.9.2010, 17:09

через дискриминант D=B^2 + 4ac
если больше нуля то 2 корня
-B+корень из D/2A
-B-корень из D/2A
если меньше то нет корней
если равен то 1 корень
-B/2A

Автор: Данкинг 18.9.2010, 17:53

Видимо, как-то так:

Код


cls
k1=0
k2=0
input a
input b
input c
d=b^2+4*a*c

if d>0 then
 k1=(-b)+sqr(d/(2*a))
 k2=(-b)-sqr(d/(2*a))
 ?"Koren1 = ",k1
 ?"Koren2 = ",k2
end if

if d<0 then
 ?"Korney net!"
end if

if d=0 then
 k1=(-b)/(2*a)
 ?"Koren =",k1
end if

Добавлено через 1 минуту
ЗЫ: эх, молодость... smile

Автор: jaduk 18.9.2010, 18:14

спс огромное
а можешь подсказать какую нить литературу которая поможет в освоении basic

Автор: Данкинг 18.9.2010, 19:23

Цитата(jaduk @ 18.9.2010, 19:14

)

а можешь подсказать какую нить литературу которая поможет в освоении basic

У меня в своё время была книжка "Сказки дядюшки компьютера", как раз про бейсик. smile

А так - не знаю, приди в любой книжный магазин да посмотри, что там интересного по теме есть. smile