LET B(p) = B + T2: LET B(q) = B - T2
IF r <> 2(i - 1) THEN LET r = r +1: GOTO 115
IF l <> 2(m - 1) THEN LET l = l +1: GOTO 112
IF i <> m THEN LET i = i +1: GOTO 111
IF n <> - 1 THEN GOTO 146
FOR k = 1 TO n
LET A(k) = A(k)/n: LET B(k) = B(k)/n: NEXT k
FOR k = 1 TO n
LET A1 = A(k): LET B1 = B(k)
PRINT ²k =²; k - 1: PRINT ²A(k) = ² A1
PRINT ²B(k) = ²; B1: NEXT l: STOP Перейти на страницу: 1 2
Другое по теме:
Параметры устройства, измеряющего толщину покрытия объекта и его метрологические характеристики Целью курсового проекта является изучение параметров устройства измеряющего толщину покрытия объекта и его метрологические характеристики. В результате намеченной работы мы должны из существующих методов по измерению толщины покрытия, выбрать на ...