1) THEN (304, 424 - (6 - MI) * 64) - (576, 392 - (6 - MI) * 64), 0, B = MI - 12000, 2 (304, 424 - (6 - MI) * 64) - (576, 392 - (6 - MI) * 64), 3, BIFKey $ = CHR $ (13) THEN1000, 2CASE MI1Text2DataIn3StData4Work (Tkv) 5Work (0) 6OutroSELECTIFSUBMainRef (MenuItem)
'Refreshing of Main MenuDataOut (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 + (MenuItem - 1) * 64) - (576, 104 + (MenuItem - 1) * 64), 0, B = MenuItem + 12000, 2 (304, 72 + (MenuItem - 1) * 64) - (576, 104 + (MenuItem - 1) * 64), 3, BSUBMessageBox (Message $)
'Drops message box = LEN (Message $) (300 - Length * 8, 190) - (340 + Length * 8, 290), 0, BF (300 - Length * 8, 190) - (340 + Length * 8, 290), 7, B15, 41 - Length/2: PRINT Message $ INKEY $ <> CHR $ (13) SUBOutro
'Outro Message12 (0, 0) - (639, 479), 7, B (3, 3) - (636, 476), 7, B
CALL MessageBox ("Програма завершила свою роботу.")
STOPSUBRange (N, Range)
'Value Precision = INT (N) = INT ((N - IntN) * 10 ^ Range) = IntN + RealN/10 ^ RangeFUNCTIONRootSum (A, B, C)
'Equation Roots SumRootsFlag (B * B - 4 * A * C)> = 0 THEN = ((SQR (B * B - 4 * A * C) - B)/2 * A) + ((- SQR (B * B - 4 * A * C) - B)/2 * A): RootsFlag = 1CALL MessageBox ("Помилка в обчисленні коренів."): CLS: RootsFlag = 0IFFUNCTIONScale (A, B, C, MaxT , Tkv)
'Axes Scalingd, g, ScX, ScY = INT (A * MaxT ^ 3 + B * MaxT ^ 2 + C * MaxT + d + g) = MaxT = MaxX/530:' X-Resolution = MaxY/390 : 'Y-ResolutionSUBStData
'Standart task conditionsTBeg, TEnd, Tkv, XBeg, XEnd, Eps, A, B, C, A1, B1, C1, d, g, DataFlag = 0 = 7 = .25 = .5 = 1 = .001 = 2.7 = 1.5 = 4.2 = 2 = 5 = -2 = 1 = RootSum (A1, B1, C1) = Iteration (XBeg, XEnd, Eps) MainRef (2) SUBText
'Task conditions12DataOut (248, 0) - (630, 464), 7, B2, 38: PRINT "-------------- УМОВА -------- ------ "
LOCATE 4, 51: PRINT "ВАРІАНТ 23." 6, 34: PRINT "Скласти схему алгоритму і програму для" 7, 35: PRINT "побудови графіка тимчасової функції, ра-" 8, 35 : PRINT "Бота як в машинному, так і в реальному" 9, 35: PRINT "Бота як в машинному, так і в реальному" 10, 35: PRINT "часу. Реальний час в діапазоні "11, 35: PRINT" (t0-tкон.) формується таймером у вигляді про-"12, 35: PRINT" граммного модуля з мітками Тквант., Називаючи-"13, 35: PRINT "новлюються часом квантування. При обчисленні "14, 35: PRINT" функції використовувати алгоритм Горнера. "p> LOCATE 16, 38: PRINT "------------- ПАРАМЕТРИ -------------" 418, 38: PRINT "F (t ) = | At ^ 3 + Bt ^ 2 + Ct + d + g | "219, 35: PRINT" tквант. = 0.25 с; t0 = 0 с; tкон. = 7 с. "
LOCATE 21, 34: PRINT "g-корінь нелінійного ур-я: x + cos (x ^ 0.52 +2) = 0," 22, 34: PRINT...
