Page 46 - 33
P. 46

Щодо  порівняльного  блоку  тут  слід  відмітити  такі  риси.  По-перше,

               наявність  знака  рівності  у  виразах  V         V         і    V  V    .  Це  забезпечує
                                                              i      max         i      min
               присвоювання  максимуму  і  мінімуму  поточного  значення  швидкості,  навіть

               коли вони рівні, що має певне значення. По-друге, наявність виразів  Z                    i та
                                                                                                      1

                Z     i  . Введення додаткових змінних  Z  i  Z  дозволяє поряд із максимумом і
                  2                                             1      2
               мінімумом зафіксувати порядкові номери рейсів, в яких це було досягнуто.


                      Вивід  результатів  обмежується  виводом  на  екран,  оскільки  вивід  на
               принтер було розглянуто в попередніх задачах.




                                                       Список ідентифікаторів

                  N   -  кількість рейсів, що підлягає аналізу                  -  N

                  h i   -  проходка за  рейс                                                  -  H

                  t i    -  час буріння                                                            -  T

                  V i  -  середня за рейс механічна швидкість буріння   -  V

               V max -  максимальна мех. швидкість буріння                 -  VMAX

                V min -  мінімальна мех. швидкість буріння                   -  VMIN

                Z 1    - номер pейсу, де була досягнута максимальна швидкість буріння - Z1

                Z 2    - номер рейсу, де була досягнута мінімальна швидкість буріння     - Z2



                       Переходимо до складання програми.



                 5 CSL

               10 PRINT “ Визначення MAX i MIN швидкості буріння ”

               15 PRINT “ ================================= “

               20 PRINT “              Склав ст. Марчук Р.С.                         “

               25 DIM H(20), T(20), V(20)

               30 INPUT “ Кількість рейсів “, N

               35 FOR I=1 TO N

               40 INPUT “ Проходка за рейс, м “, H(I)



                                                              46
   41   42   43   44   45   46   47   48   49   50   51