Разветвляющий процесс

Лабораторная 3. Разветвляющий процесс.

Строчная форма программы:

INPUT "X"; X

IF X<=10 THEN Y=COS(X+4*ATN(1))+1.25*X-.25 ELSE Y=ATN(-(X/(X+1))/(-(X/(X+1))^2+1)^.5)+2*ATN(1)+3.18*X-208

PRINT "Y="; Y

Блочная форма:

INPUT "X"; X

IF X<=10 THEN

Y=COS(X+4*ATN(1))+1.25*X-.25

ELSE

Y=ATN(-(X/(X+1))/(-(X/(X+1))^2+1)^.5)+2*ATN(1)+3.18*X-208

ENDIF

PRINT "Y="; Y

Результат:

X=5, Y=5.716338

X=7, Y=7.746098

X=10, Y=13.08907

X=12, Y=-169.4452

X=15, Y=-159.9446

Лабораторная 4. Циклический процесс.

Оператор условного перехода:

INPUT "A"; A

INPUT "B"; B

H=.1

X=A

10 Y=COS(X+4*ATN(1))+1.25*X-.25

PRINT X, Y

X=X+H

IF X<B THEN GOTO 10

Оператор цикла:

INPUT "A"; A

INPUT "B"; B

H=.1

FOR X=A TO B STEP H

Y=COS(X+4*ATN(1))+1.25*X-.25

PRINT X, Y

NEXT X

Результат:

A=2.5

B=3.5

Лабораторная 5. Массивы.

DIM A(10)

DIM B(5)

DIM C(5)

FOR I=1 TO 10

A(I)=RND*100

PRINT “A(“; I; “)=”; A(I)

NEXT I

FOR J=1 TO 5

B(J)=A(J*2)

C(J)=A((J-1)*2+1)

PRINT “B(“; J; “)=”; B(J)

PRINT “C(“; J; “)=”; C(J)

NEXT J

Результат:

A(1)=70.55475

A(2)=53.3424

A(3)=57.95186

A(4)=28.95625

A(5)=30.1948

A(6)=77.47401

A(7)=1.401764

A(8)=76.07236

A(9)=81.44901

A(10)=70.90379

B(1)=53.3424

C(1)=70.55475

B(2)=28.95625

C(2)=57.95186

B(3)=77.47401

C(3)=30.1948

B(4)=76.07236

C(4)=1.401764

B(5)=70.90379

C(5)=81.44901

Задачи на циклы.

1 задача.

CLS

n=5

k=15

a=SQR(k+5)

otvet=1

FOR i=0 TO n-1

ch=a+i

otvet=otvet*ch

NEXT i

PRINT otvet

Результат:

10026.68

2 задача.

CLS

n=5

k=15

a=SQR(k+5)

otvet=1/a

FOR i=1 TO n

ch=1/a^(2*i)

otvet=otvet+ch

NEXT i

PRINT otvet

Результат:

.2762383

3 задача.

CLS

k=15

x=LOG(k+5)

chisl=1

znam=1

FOR i=1 TO 6

ch1=x-2^i

ch2=x-(2^i-1)

chisl=chisl*ch1

znam=znam*ch2

NEXT i

otvet=chisl/znam

PRINT otvet

Результат:

167.371

4 задача.

CLS

n=5

k=15

x=LOG(k+5)

otvet=0

FOR i=1 TO n

ch=(SIN(x))^n

otvet=otvet+ch

NEXT i

PRINT otvet

Результат:

3.24303E-04

5 задача.

CLS

k=15

a=SQR(k+1)

x=1

i=1

WHILE x<=a

i=i+1

x=x+1/i

WEND

PRINT x

Результат:

4.027246

6 задача.

CLS

FOR i=10 TO 20

PRINT i^2

NEXT i

Результат:

100

121

144

169

196

225

256

289

324

361