"яке треба вирішити методом простих ітерацій."
LOCATE 24, 36: PRINT "Точність-0.001; Xнач. = 0.5; Xкон. = 1." 26, 34: PRINT "d-сума коренів квадр-го ур-я: A1z ^ 2 + B1z + C1 = 0 "27, 45: PRINT" При A1 = 2; B1 = 5; C1 = -2. "28, 40: PRINT" Коефіцієнти: A = 2.7; B = 1.5; C = A + B . "15INKEY $ <> CHR $ (13) MainRef (0) SUBWork (Time)
'Working moduleTBeg, TEnd, Tkv, XBeg, XEnd, Eps, A, B, C, A1, B1, C1, d, g, ScX, ScYMI
'Data checkingDataFlag = 0 THEN
CALL MessageBox ("Не задані параметри завдання!")
MainRef (MI - 1) SUBIF (TBeg> = TEnd) OR (TBeg <0) OR (Tkv <= 0) THEN
CALL MessageBox ("Тимчасові коефіцієнти задані невірно.")
MainRef (MI - 1) SUBIF (A> 5) OR (B> 10) OR (C> 10) THEN
CALL MessageBox ("Один з коефіцієнтів A, B, C занадто великий.")
MainRef (MI - 1) SUBIFd> 50 THENMessageBox ("Коефіцієнти A1, B1, C1 перевищують допустимі значення.") (MI - 1) SUBIF = (TEnd - TBeg)/Tkv (Points> 30) THEN
CALL MessageBox ("Занадто багато точек.Уменьшіте час квантування.")
MainRef (MI - 1) SUBIF
IF g> 20 THENMessageBox ("g перевищує допустиме значення.")
MainRef (MI - 1) SUBIF
'Draw scaled gridScale (A, B, C, TEnd, Tkv) Grid
'Gorner schemeArray (3) YBlock (Points + 1) (3) = A (2) = B (1) = C (0) = d + gX = 0 TO Points = Array (3) I = 3 TO 1 STEP -1 (X) = Array (I - 1) + P * (X + TBeg/Tkv) * Tkv = YBlock (X) (X) = ABS (YBlock (X))
'Points contro (Points + 1) = 0Points <> CINT (Points) THEN YBlock (Points + 1) =-BaseF (TEnd)
'GraphicsK = TBeg/ScX TO TEnd/ScX - 2 (100 + K, 400 - BaseF (K * ScX)/ScY), 1, 14 (100 + K, 400 - BaseF (K * ScX)/ScY ), 14K = TBeg/Tkv TO TEnd/Tkv (100 + K * Tkv/ScX, 400 - YBlock (K - TBeg/Tkv)/ScY), 2, 4 (100 + K * Tkv/ScX, 400 - YBlock ( K - TBeg/Tkv)/ScY), 4Time <> 0 THEN CALL Delay (Time * 100) YBlock (Points + 1) <0 THEN (100 + TEnd/ScX, 400 + YBlock (Points + 1)/ ScY), 2, 3 (100 + TEnd/ScX, 400 + YBlock (Points + 1)/ScY), 3IFINKEY $ <> CHR $ (13)
'TableI = 0 TO 13 (32, I * 32 + 8) - (232, (I + 1) * 32 + 8), 7, B (0, 0) - (240, 464), 7, B7, 2: PRINT "Р" 8, 2: PRINT "А" 9, 2: PRINT "С" 10, 2: PRINT "Ч" 11, 2: PRINT "Е" 12, 2: PRINT "Т" 13, 2: PRINT "Н" 14, 2: PRINT "А" 15, 2: PRINT "Я" 16, 2: PRINT "" 17, 2: PRINT "Т" 18 , 2: PRINT "А" 19, 2: PRINT "Б" 20, 2: PRINT "Л" 21, 2: PRINT "І" 22, 2: PRINT "Ц" 23, 2: PRINT " ; А "(248, 0) - (630, 464), 7, B2, 38: PRINT" ----- ДОДАТКОВА ІНФОРМАЦІЯ ----- "7, 50: PRINT" Коефіцієнти: "910 , 53: PRINT "A ="; A12, 53: PRINT "B ="; B14, 53: PRINT "C ="; C15 (112, 8) - (112, 14 * 32 + 8 ), 72, 9: PRINT "t" 2, 20: PRINT "Y (t)" = 4 = 0K <= PointsI> 28 THENINKEY $ <> CHR $ (13) I = 0 TO 13 (32, I * 32 + 8) - (232, (I + 1) * 32 + 8), 7, B (112, 8) - (112, 14 * 32 + 8), 7 (0, 0) - (240, 464), 7, B7, 2: PRINT "Р" 8, 2: PRINT "А" 9, 2: PRINT "С" 10, 2: PRINT "Ч" 11, 2: PRINT "Е" 12, 2: PRINT "Т" 13, 2:...
