n = 5
h = 10
PRINT "nomer", "shagov", "summa"
FOR i = 1 TO n
s# = 0
FOR j = 0 TO 1 STEP 1 / h
s# = s# + 2 / h * j
NEXT
PRINT i, h, s#
h = h * 10
NEXT
Тестирование выполнено в программе QB64 ( Скачать )
n = 5
h = 10
PRINT "nomer", "shagov", "summa"
FOR i = 1 TO n
s# = 0
FOR j = 0 TO 1 STEP 1 / h
s# = s# + 2 / h * j
NEXT
PRINT i, h, s#
h = h * 10
NEXT
Тестирование выполнено в программе QB64 ( Скачать )