Основное меню
Главная
Написать мне
Гостевая
Новости сайта

Статьи
О Языках программирования
Delphi
Visual Basic
JavaScript
VBScript

Мои программы
CLOCK
CD-organaizer
VBS. Решение квадратных уравнений

VBS. Решение квадратных уравнений


 Давай разберём пример решения квадратных уравнений типа: ax^2+bx+c. Пример не сложный, алгоритму решения тебя в школе обучали, ну а если ты ещё учишся, то тебе это пригодится (может быть :-))
 Ну как обычно давай разберём сначала форму, ну а потом скрипт решения:

<form name="our_form">
a: <input type="text" name="a_" size="10"><br>
b: <input type="text" name="b_" size="10"><br>
c: <input type="text" name="c_" size="10"><br>
<input type="button" name="cal" value="Посчитать"> <input type="reset"><br>
дескрименант:<br> <input type="text" name="des_" size="20"><br>
x1:<input type="text" name="x1_" size="5"> x2:<input type="text" name="x2_" size="5"><br>
</form>

 Сдесь опять нет ни чего сложного, в первые 3 поля(a_, b_, c_,) мы вводим значения, в следующем отображается дескрименант(des_), и следующих двух х1(x1_) и х2(x2_); и 2 пимпы посчитать и сброс. Ну а теперь настала пора нашего скрипта, который и будет считать:

<script language="VBS">
Sub cal_OnClick
a=Document.our_form.a_.value
b=Document.our_form.b_.value
c=Document.our_form.c_.value
a=CDbl(a)
b=CDbl(b)
c=CDbl(c)
des=b*b-4*a*c
IF (des<0) THEN
Document.our_form.des_.value="Дескрименант < 0"
ELSE
Document.our_form.des_.value=sqr(des)
Document.our_form.x1_.value=((-b-sqr(des))/(2*a))
Document.our_form.x2_.value=((-b+sqr(des))/(2*a))
END IF
End Sub
</script>

В первых трёх строках мы заносим значения из текстовых полей, далее в следующих трёх конвертируем в тип Double. Потом мы считаем дескрименант(переменная des). Затем проверяем - меньше-ли дескрименант нуля, если меньше, то пишем в поле des_ "Дескрименант < 0", ну а если иначе то выводим дескрименант, и считаем х1 и х2.

Как видишь всё лягко, были бы руки прямые, да голова светлая :-)...

Пример решения квадратного уравнения

a:
b:
c:

дескрименант:

x1: x2: