Программа 7.1. Программа вычисления первой разности

100 'Вычисление первой разности

110 Y[0] = 0

120 FOR I% = 1 TO N%-1

130 Y[I%] = X[I%] - X[I%-1]

140 NEXT I%