qbasic

[FLORA]

помогите плиз нужно написать программу на qbasicе.
Дано натуральное число n, действительное число х. Вычислить
SIN(X)+(SIN(X))^2+(SIN(X))^3+...... +(SIN(X))^n
SIN(X)+SIN(X^2)+SIN(X^3)+.....+SIN( X^n)
SIN(X)+SIN(SIN(X))+SIN(SIN(SIN(X))) ......SINSIN.........SIN(X)

[Sazary]

DIM x AS DOUBLE
DIM n, i AS INTEGER
DIM res, tmp AS DOUBLE
CLS
INPUT "Enter x: "; x#
INPUT "Enter n: "; n%

rez# = 0
tmp# = SIN(x#)
FOR i% = 1 TO n%
 res# = res# + tmp# ^ i%
NEXT i%
 PRINT USING "Result= ##.####"; res#

END

DIM x AS DOUBLE
DIM n, i AS INTEGER
DIM res AS DOUBLE
CLS
INPUT "Enter x: "; x#
INPUT "Enter n: "; n%

rez# = 0
FOR i% = 1 TO n%
 res# = res# + SIN(x# ^ i%)
NEXT i%
 PRINT USING "Result= ##.####"; res#
END

DIM x AS DOUBLE
DIM n, i AS INTEGER
DIM res, tmp AS DOUBLE
CLS
INPUT "Enter x: "; x#
INPUT "Enter n: "; n%

rez# = 0
tmp# = x#
FOR i% = 1 TO n%
 tmp# = SIN(tmp#)
 res# = res# + tmp#

NEXT i%
 PRINT USING "Result= ##.####"; res#
END