VPF::Помогите решить задачу - Форум программистов

jaduk

Дата 18.9.2010, 12:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 18.9.2010

Репутация: нет
Всего: нет

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

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

Данкинг

Дата 18.9.2010, 17:02 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

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

)

а дальше как?

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

--------------------

There's nothing left but silent epitaphs.

jaduk

Дата 18.9.2010, 17:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 18.9.2010

Репутация: нет
Всего: нет

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

Данкинг

Дата 18.9.2010, 17:53 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

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

Код


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

--------------------

There's nothing left but silent epitaphs.

jaduk

Дата 18.9.2010, 18:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 18.9.2010

Репутация: нет
Всего: нет

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

Данкинг

Дата 18.9.2010, 19:23 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

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

)

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

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

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

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »