Page 47 - 33

45 INPUT “ Час буріння, год. “, T(I)

50 V(I)=H(I)/T(I)

55 NEXT I
60 VMAX=-1E10 : VMIN=1E10

65 FOR I=1 TO N
70 IF V(I)>=VMAX THEN VMAX=V(I) : Z1=I

75 IF V(I)<=VMIN THEN VMIN=V(I) : Z2=I

80 NEXT I

100 PRINT “ РЕЗУЛЬТАТИ РОЗРАХУНКУ”

105 PRINT “ ===================================== ”

110 PRINT “ N рейса H i , м T i , год V i , м/год “

115 PRINT “ ===================================== ”

120 FOR I=1 TO N

125 PRINT USING “ ## ### ###.# ##.## “; I, H(I), T(I), V(I)

130 NEXT I

135 PRINT “ =====================================”

140 PRINT “ Максимальна швидкість “; VMAX; “м/год.у”; Z1; “ – му рейсі”

145 PRINT “ Мінімальна швидкість “; VMIN; “м/год.у”; Z2; “ – му рейсі”

150 END

Декілька коментарів щодо програми. Презентативний блок реалізовано

рядками 5-20. Блок формування масиву охоплює рядки 25-55. В ньому є

оголошення масиву (25), ввід кількості рейсів (30), ввід поточних значень

проходки і часу (40,45), визначення швидкості буріння (50). Ввід даних і

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

блоку розташовано початкові умови (60) – обидві в одному рядку, але розділені

двома крапками як окремі команди.

Порівняльний блок (65-80) об’єднує пошук максимуму і мінімуму в

одному циклі. Крім переприсвоювання максимуму і мінімуму нових значень,

передбачено фіксування того, що є супутним, а саме – порядкового номера

47