"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 "І" 2, 6: PRINT " tнач. ": LOCATE 2, 16: PRINT TBeg4, 6: PRINT" tкон. ": LOCATE 4, 16: PRINT TEnd6, 6: PRINT" Tквант. ": LOCATE 6, 16: PRINT Tkv8, 6 : PRINT "Xнач.": LOCATE 8, 16: PRINT XBeg10, 6: PRINT "Xкон.": LOCATE 10, 16: PRINT XEnd12, 6: PRINT "Точність": LOCATE 12, 16: PRINT Eps14 , 6: PRINT "A": LOCATE 14, 16: PRINT A16, 6: PRINT "B": LOCATE 16, 16: PRINT B18, 6: PRINT "C": LOCATE 18, 16: PRINT C20, 6 : PRINT "A1": LOCATE 20, 16: PRINT A122, 6: PRINT "B1": LOCATE 22, 16: PRINT B124, 6: PRINT "C1": LOCATE 24, 16: PRINT C126, 6: PRINT "d": LOCATE 26, 16: PRINT d28, 6: PRINT "g": LOCATE 28, 16: PRINT gSUBDelay (Time)
'Timer BlockI = 1 TO TConst * Time = A + EXP (1) SUBGridScX, ScY
'Draws scaled coordinate gridI = 0 TO 640 STEP 10 (I, 0) - (I, 480), 8I = 0 TO 480 STEP 10 (0, I) - (640, I), 8 (100, 0 ) - (100, 480), 9 (0, 400) - (640, 400), 9 (100, 0) - (103, 3), 9 (100, 0) - (97, 3), 9 (640 , 400) - (637, 403), 9 (640, 400) - (637, 397), 91, 11: PRINT "Y" 27, 80: PRINT "t" 27, 11: PRINT "0" (97, 300) - (106, 300), 919, 3: PRINT Range (100 * ScY, 2) (97, 200) - (106, 200), 913, 3: PRINT Range (200 * ScY, 2) (97, 100) - (106, 100), 97, 3: PRINT Range (300 * ScY, 2) (200, 397) - (200, 403), 927, 25: PRINT Range (100 * ScX, 2) (300, 397) - (300, 403), 927, 37: PRINT Range (200 * ScX, 2) (400, 397) - (400, 403), 927, 50: PRINT Range (300 * ScX, 2) (500, 397) - (500, 403), 927, 62: PRINT Range (400 * ScX, 2) SUBiNTRO
'Intro screen12 (0, 0) - (639, 479), 7, B (3, 3) - (636, 476), 7, B (80, 128) - (566, 206), 7, B (84, 132) - (562, 202), 7, B (84, 132) - (80, 128) (566, 206) - (562, 202) (566, 128) - (562, 132) ( 84, 202) - (80, 206) 2, 38 "БГПА" 4, 38 "Фітр" 10, 32 "Курсовий проект."
LOCATE 12, 13 "Програмування обчислювальних процесів на мові BASIC." 18, 40 "Виконав студент гр.107110 Орел О.О." 20, 40 "Перевірив Москаленко А.А."
LOCATE 22, 40 "Дата 21.12.2001 р." 28, 30 "Натисніть будь-яку клавішу." INKEY $ = "" SUBIteration (XBeg, XEnd, Eps)
'Simple iteration method = (XBeg + XEnd)/2 = X0 =-COS (EXP (.52 * LOG (X1)) + 2) ABS (X2 - X1)> Eps = X2 =-COS (EXP (.52 * LOG (X1)) + 2) = X2FUNCTIONMain
'Main MenuTkvDataOut (248, 0) - (630, 464), 7, B2, 37: PRINT "------------ ОСНОВНИЙ МЕНЮ --------- --- "6, 52: PRINT" УМОВА "10, 48: PRINT" ПОСТАВИТИ ПАРАМЕТРИ "
LOCATE 14, 46: PRINT "ПАРАМЕТРИ за умовами" 18, 44: PRINT "ГРАФІК У РЕАЛЬНОМУ ЧАСІ" 22, 44: PRINT "ГРАФІК У машині часу"
LOCATE 26, 53: PRINT "ВИХІД" (304, 72) - (576, 104), 3, BMI: MI = 1: 'First menu item1 $ = INKEY $ (Key $ = CHR $ (0) + "P") AND (MI <6) THEN (304, 72 + (MI - 1) * 64) - (576, 104 + (MI - 1) * 64), 0, B = MI + 12000, 2 (304, 72 + (MI - 1) * 64) - (576, 104 + (MI - 1) * 64), 3, BIF (Key $ = CHR $ (0) + "H") AND (MI >...
