11 "Розрахунок квадратного рівняння:"
PRINT "a1 * z ^ 2 + b1 * z + c1 = 0" "??????????????????????? ?????? "" Для знаходження суми коренів d квадратного рівняння "
10 COLOR 11 "введіть значення коефіцієнтів a1, b1, c1:"
INPUT; "a1 =", a1; "b1 =", b1; "c1 =", c1 = b1 ^ 2 - 4 * a1 * c1disrk <0 GOTO 15diskr = 0 GOTO 25diskr> 0 GOTO 35
d =-d =-b1/(2 * a1) = SQR (disrk)/(2 * a1) = z1 + z2
z1 =-b1/(2 * a1) = z1 = z1 + z1
z1 = (-b1 + SQR (diskr))/(2 * a1) = (-b1 - SQR (diskr))/(2 * a1)
d = z1 + z2 "Сума коренів квадратного рівняння d ="; d
WHILE INKEY $ = "" SUB
'----------------------------- Таймер ---------------- --------------------- TimA AS SINGLE = 0l = 1 TO 3500 * tkon = A + EXP (1) lSUB
'----------------------- Титульний аркуш програми -------------------- ------ Titul92, 18 "Міністерство освіти Республіки Білорусь" 4, 16 "Білоруський Національний Технічний Університет"
LOCATE 5, 34 "Фітр" 6, 31 "кафедра РТС"
LOCATE 9, 25 "Курсовий проект з інформатики" 10, 9 "На тему: Побудова графіка тимчасової функції на мові BASIC."
LOCATE 15, 45 "Виконав: Миткевич Д.А. "16, 55" студент групи 107412 "
LOCATE 17, 45
PRINT "Перевірив: Москаленко А.А."
LOCATE 23, 35 "Мінськ 2003" 1125
PRINT "Натисніть клавішу для продовження"
WHILE INKEY $ = ""
WEND
END SUB
'--------- Підпрограма рішення нелінійного рівняння методом простої ітерації ---------- Uravnenie "Знаходження кореня g нелінійного рівняння" "методом простої ітерації:" "x + cos (x ^ 0.52 + 2) = 0 ""???????????????????????????????????? " ; "Для знаходження кореня g нелінійного рівняння"; "введіть діапазон [Xbeg; Xend] початкового значення кореня: [", Xbeg
INPUT; ";", Xend "]" "введіть точність eps =", eps = (Xbeg + Xend)/2 = x0 =-COS (EXP (.52 * LOG (X1)) + 2) ABS (X2 - X1)> eps = X2 =-COS (EXP (.52 * LOG (X1)) + 2)
WEND = X2 "Знайдене значення кореня рівняння:"
PRINT "G ="; gINKEY $ = "" SUB
