Page 78 - 33
P. 78

екран, подібний оператору 115, але теж без індексів. Доречі, оператор 20 теж
               можна викинути, бо нема чим пишатись.Тож програма виглядатиме так.


                    5  CLS
                   10 PRINT “     Дослідження залежності  V = f ( P )


                   15 PRINT “    ===========================
                   30 INPUT “     Нижня границя навантаження  ”,     PMIN


                   35 INPUT “     Верхня границя навантаження  ”,      PMAX

                   40 INPUT “      Крок прирощення навантаження ”,   DP

                   45 INPUT “                      a =   ”,  A

                   50 INPUT “                      x =  ”,  X

                   55 PRINT “      Результати розрахунку

                   56 PRINT “      =========================

                   57 PRINT “                    P,  кН           V, м/год

                   58 PRINT “       =========================

                   60 FOR              P = P MIN  to  P MAX    STEP   DP

                  65           V = A* P  X

                  70 PRINT    USING “                  .    “;    P,  V

                  80   NEXT   P

                  125 PRINT “    ===========================

                  200 END

                     Як  бачимо,  програма  значно  коротша,  але  не  зручна,  бо  не  утворені

               масиви і для виводу на друк треба в програмі усі команди PRINT змінити  на

               LPRINT  і  знову  вводити  усі  вхідні  дані.  При  цьому  результати  розрахунку

               відразу виводяться на принтер, обминаючи екран.

                      Для одноразового користування програма може бути ще простішою, якщо

               знехтувати презентативним блоком, а тексти замінити символами.


                        30 INPUT “ Pmin =  ”,   PMIN
                      35 INPUT “ Pmax = ”,   PMAX

                      40 INPUT “ dP = ”,    DP

                      45 INPUT “ a = ”,    A


                                                              78
   73   74   75   76   77   78   79   80   81   82   83