1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | DO CLS INPUT "ishem znachenie y=cos(x). vvedite x="; x INPUT "vvedite stepen', do kotoroi schitaetsya ryad, n="; n sum = 0 FOR i = 0 TO n f= 1 FOR j = 1 TO i * 2 + 1 f = f/ j NEXT sum = sum + (- 1 ) ^ i *f * x ^ ( 2 * i + 1 ) NEXT PRINT "result="; sum PRINT "calculate machine ="; cos(x) INPUT "povtorim? da- 1 , net- 2 ", ask LOOP UNTIL ask = 2 PRINT "Thank you for use the program " |
Тестирование выполнено в программе QB64 ( Скачать )