Page 81 - 33
P. 81

3.8.2  Зупинка виводу інформації на екран


                     У деяких програмах результатом розрахунків є таблиця, яка не вміщується

              в  поле  екрану,  і  користувач  може  бачити  лише  її  кінцеву  частину.  Це  робить

              неможливим  аналіз  вищерозташованої  інформації  і  оцінку  правильності

              розрахунків.  Але  є  спосіб  організувати  почастковий  вивід  інформації  через

              задану кількість рядків.

                     Припустимо, що в результаті розрахунків створився масив, який налічує

              50 рядків. Математична модель  не  має  значення. Треба організувати   вивід

              таблиці  із  зупинкою  через   20  рядків ( кількість  рядків  можна  задавати

              будь-яку ).

                     Блок-схема показана на рисунку 3.12.

                     Верхня  частина  блок-схеми  (  вище  пунктирної  лінії  )  забезпечує  лише

              формування  масиву  і  може  працювати  за  будь-якою  математичною  моделлю.

              Нижня – “ відповідає “ за зупинку виводу таблиці. Виділено саме ті елементи,

              що стосуються даного питання. Складемо програму.

                        5 CLS

                      10 PRINT “       Зупинка виводу інформації ”

                      15 DIM        X ( 60 ),   Y ( 60 )

                      20 INPUT “        Кількість рядків у таблиці ”,  N

                      25 FOR         I = 1   TO   N

                      30 X ( I ) = I*3

                      35 Y ( I ) = X ( I ) ^2  -  X ( I ) ,

                      40 NEXT  I

                         --------------------------------------------------------------------------

                      50 J = 0

                      55 FOR     I = 1   TO   N

                      60 J = J+ 1

                      65 IF  J = 20    THEN   J = 1 : PRINT “ Натисніть клавішу ”:

                              A$ = INPUT$ (1):  CLS



                                                              81
   76   77   78   79   80   81   82   83   84   85   86