Вычислить: sinx+sin2x+…+sinnx, где n- натуральное, х — действительное — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
CLS
DIM n AS INTEGER, x, sum
INPUT "Vvedite n:", n
INPUT "Vvedite x:", x
FOR i = 1 TO n
    sum = sum + SIN(x * i)
NEXT
PRINT "Rezultat:"; sum

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment