Методом НЬЮТОНА

INPUT “ хо ” хо

IF ABS(xi -xi-1) < E THEN x*= xi

ELSE GOTO 80

ENDIF

END

Цикл «ДО»

10 INPUT "a=",a

20 INPUT "b=",b

Цикл «ДО»

30 i=0

40 REPEAT

50 i=i+1

60 z=(a+b)/i

70 UNTIL ABS(z)<0.1

80 PRINT "z=",z

90 PRINT "i=",i

100 END

Операции цикла «ДО» с комментариями

10 INPUT "a=",a	Ввод числового значения «а»
20 INPUT "b=",b	Ввод числового значения «b»
30 i=0	Обнуление переменной «i»
40 REPEAT	Вход в цикл «ДО»
50 i=i+1	Тело цикла «ДО»
60 z=(a+b)/i
70 UNTIL ABS(z)<0.1	Выход и условие выхода из цикла «ДО»
80 PRINT "z=",z	Печать значения "z"
90 PRINT "i=",i	Печать значения "i"
100 END	Конец программы

Цикл «ПОКА»

10 INPUT "a=",a

20 INPUT "b=",b

30 i=0

Цикл «ПОКА»

40 z=a+b

50 WHILE ABS(z)>0.1

60 i=i+1

70 z=(a+b)/i

80 ENDWHILE

90 PRINT "z=",z

100 PRINT "i=",i

110 END

Операции цикла «ПОКА» с комментариями

10 INPUT "a=",a	Ввод числового значения «а»
20 INPUT "b=",b	Ввод числового значения «b»
30 i=0	Обнуление переменной «i»
40 z=a+b	Вычисление начального значения функции «z»
50 WHILE ABS(z)>0.1	Вход в цикл «ПОКА»
60 i=i+1	Тело цикла«ПОКА»
70 z=(a+b)/i
80 ENDWHILE	Выход и условие выхода из цикла «ПОКА»
90 PRINT "z=",z	Печать значения "z"
100 PRINT "i=",i	Печать значения "i"
110 END	Конец программы