Советы, трюки и секреты для Blogger.com блоггеров. Все для Blogspot. Советы, трюки и секреты для Blogger.com блоггеров. Все для Blogspot.

Программирование алгоритмов циклической структуры Basic

14 мая 2008, 01:04

Пример № 1: Для заданных значений n и x вычислите: S=sin x+ sin x sin x+…+ sin x sin x… sin x.

Решение:
10 CLS
20 INPUT N
30 INPUT x
40 S = 0
50 FOR i = 1 TO N
60 x = SIN(x)
70 S = S + x
80 NEXT i
90 PRINT S
100 END

Пример № 2: На промежутке [1;1,9] с шагом 0,1 вычислите значения функции и количество отрицательных значений функции.

Решение:
10 CLS
20 COUNT = 0
30 FOR i = 1 TO 19 STEP .1
40 PRINT "x="; i; " y= "; LOG(2 * i)
50 IF LOG(2 * i) < 0 THEN COUNT = COUNT + 1
60 NEXT i
70 PRINT "Количество отрицательных значений"; COUNT
80 END

Пример № 3: Вычислить значение суммы S, с точность ε = 0,001

10 CLS
20 S=0
30 E=0.001
40 n=1
50 L=n
60 While L>E
70 n=n+1
80 L=1/n^2
90 S=S+L
100 WEND
110 Print “S=”; S

Пример № 4: Вычислить сумму положительных и сумму отрицательных значений функцииz=cos(kx+a)*sin(kx-a), где k=1,2,3,…m; x и a – заданные числа.

Решение:
10 CLS
20 INPUT "m="; m
30 INPUT "x"; x
40 INPUT "a="; a
50 k = 1: S = 0: Sot = 0
60 FOR i = 1 TO m
70 k = k + i
80 z = COS(k * x + a) * SIN(k * x - a)
90 IF z > 0 THEN S = S + z ELSE Sot = Sot + z
100 NEXT i
110 PRINT "S="; S; "Sot="; Sot
120 END

Пример № 5: Дано натуральное число n, действительное число х. Вычислить:

10 CLS
20 INPUT "n="; n
30 INPUT "x="; x
40 z = 1: P = 1
50 FOR k = 1 TO n
60 z = z * k
70 P = P * (1 + ((SIN(k * x)) / z))
80 NEXT k
90 PRINT "Произведение ="; P;
100 END

Программирование алгоритмов циклической структуры Basic