1 2 3 4 5 6 7 8 9 10 11 12 13 | CLS s = 1 fack = 1 FOR i = 1 TO 10 s = s + ( 0.3 * (LOG(EXP( 5 )))) ^ i / fack NEXT i PRINT s f = s / . 01 l = INT(f) x = l * . 01 PRINT x lp=log(exp(( 1 + 0.5 )/( 1 - 0.5 ))) if lp>x then ? "y>s" else if lp=x then ? "y=s" else ? "y<x" |
Тестирование выполнено в программе QB64 ( Скачать )