Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

bobalo(1)

.pdf
Скачиваний:
595
Добавлен:
12.02.2016
Размер:
1.24 Mб
Скачать

 

 

a +5

 

 

b

 

)

при

a

2

+b

2

>1

 

 

 

 

lg(

 

 

 

 

 

 

y =

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

b

 

при

a2

+b2

1

 

 

 

 

 

a

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x1 =1,592;

x2 = 0,089;

 

x3 =1,341;

 

 

 

 

 

 

K =3;

L = 2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

15.

a =

 

L x

 

 

;

 

 

 

 

 

b =

ex1sin x +cos x

 

 

 

 

x5 (eK 1)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ln(2a 3bex )

 

при

 

 

a 5b

 

 

 

 

 

 

y = ln(3a

2aex )

 

при

 

 

a <5b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x1 = 0,456;

x2 =1,329;

 

x3 = 2,473;

 

 

 

 

 

 

K = 2;

L = 7,39 103

 

 

 

 

 

 

 

 

 

 

 

 

16.

a = 3 Kx5 10ex

;

 

 

 

 

b = 3 lg L tgx

 

 

 

 

 

arctg(a 5b)

 

при

 

a2 +b2 > 0,1

 

 

 

 

 

 

y =

 

 

 

 

 

 

 

при

 

a2 +b2 0,1

 

 

 

 

 

 

 

arctg(5a +3b)

 

 

 

 

 

 

 

 

x1 = 0,011;

x2 = −0,127;

 

x3 =1,546;

 

 

 

 

 

 

K = 0,800;

L = 7,145

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

π

 

 

 

3π

b = 5 K 3 0,01 +

 

x

 

2

17.

a = lg x cos

 

+cos

 

 

 

;

(1e

 

)

 

5

 

5

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

arctg(5a2 + 7b2 )

 

 

 

при

(a +b)2

> 0,1

 

 

 

 

 

 

 

0

 

 

 

 

 

 

 

 

при

(a +b)

2

= 0,1

 

 

 

 

y =

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

7a

2

)

 

 

 

при

(a +b)

2

< 0,1

 

 

 

 

 

arctg(5b

 

 

 

 

 

 

 

 

 

 

x1 = 0,396;

x2 = −4,12;

 

x3 = −2,345;

 

 

 

 

 

 

K = 7,002

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

18.

a =

 

4 K 2

10

 

tgx ;

 

 

 

b =sin(L +3 lg x )4

 

 

 

 

 

 

0,01 +

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

2

 

a +b

при

a

+b

 

 

y =

a +b

при

a2 +b2

 

 

 

 

 

 

 

 

x1 = 2,007;

x2 =3,001;

x3

K = 0,018;

L =1

 

 

 

 

>2

2

=0,056;

71

19.

a =

K (e2 x

+ex )

;

 

 

 

b = lg x

 

1

arcsin

2

x

 

 

 

3

 

 

 

 

5

 

 

 

 

 

sin

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4 +

 

3

 

 

 

 

 

 

 

 

2

 

 

 

 

3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a 2

 

 

 

при

 

a

1+ 2b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

+b

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y = a

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

при

 

a <1+ 2b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a 2b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x1 =3,78;

 

 

x2 = 2,020;

x3 = −0,194;

 

 

 

 

 

 

 

 

 

 

 

 

K =3,780

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(lg K )

 

 

K

K log3

K

 

 

 

2 x

 

1

 

 

2

 

20.

a =

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

;

b = e

 

 

 

ctg

 

 

arccos

 

 

 

1

L(sin x + 2 cos x)

 

 

 

 

2

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a b

 

 

 

при

a <b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a

 

 

 

 

 

 

 

при

a =b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y =

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a +b

 

 

 

при

a >b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x1 = −0,924;

x2 =1,329;

x3 = 7,314;

 

 

 

 

 

 

 

 

 

 

 

K =5;

 

L = 0,184

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

21.

a = arcsin

1

 

+arccos ex ;

 

 

b = lg K x ex

 

 

 

 

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

sin x

 

 

 

при

a

b

>

π

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

π

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1

 

 

 

 

 

 

 

при

a

b

=

 

 

 

 

 

 

 

 

 

 

 

 

y =

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

cos(a b)

 

 

при

a b < π

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x1 = 2,345;

 

 

 

x2 = −4,914;

x3 = 0,219;

 

 

 

 

 

 

 

 

 

 

 

K =1,601

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

22.

a =

 

cos x

 

 

+

 

sin x

;

 

 

b = arcsin

 

 

x

lg L

 

 

 

 

 

K 11

L +

 

 

 

13

 

 

 

 

 

 

 

 

 

 

 

7

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3a2 +4b2

при

 

a < 2 b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a +b

 

 

 

при

 

a = 2 b

 

 

 

 

 

 

 

 

 

 

 

 

y =

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3a

2

+4b

2

 

при

 

a > 2 b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

72

 

 

 

 

 

 

 

 

 

 

 

 

x1 =5,005;

x2 = 4,008;

 

 

 

x3 = −5,005;

 

 

 

 

 

 

 

K = 4;

 

 

L =3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3

K

1

 

 

 

 

 

b =

sin 2x L 3

5,75

23.

a = tg

 

K

 

 

;

 

 

 

 

 

 

8K

cos 4x

 

2x

(0,842)

4

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a 2b

 

 

при

ab

< 0

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2a +5b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y =

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ab

 

 

при

ab

 

 

0

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x1 = 2,005;

x2 = −0,437;

x3 = −2,47;

 

 

 

 

 

 

 

K =3;

 

 

L =12,48

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

K + 7

L

 

 

 

 

 

 

 

 

 

π

 

 

 

2π

24.

a =

0,034

;

 

 

 

b = arctg cos

5

+cos

 

 

ln x

 

3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

sh

a

 

 

 

при

2a >b

 

 

 

 

 

 

 

 

 

 

a b

 

 

 

при

2a =b

 

 

 

 

 

 

 

 

y =

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

b)

при

2a <b

 

 

 

 

 

 

 

 

 

ch(a

 

 

 

 

 

 

 

 

x1 =5,005;

x2 = 0,474;

 

 

 

x3 = −2,329;

 

 

 

 

 

 

 

K = 25,005;

L =136,002

 

 

 

 

 

 

 

 

25.

a = 3sin x 5cos x ;

 

 

 

 

 

b = K lg x

 

 

 

 

 

 

 

th(a 2b)

 

при

 

 

a +b

 

> 2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y =

 

 

a

2b

 

)

 

при

 

 

a +b

 

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

lg(

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x1 =1,005;

x2 = 0,247;

 

 

 

x3 = −0,424;

 

 

 

 

 

 

 

K =3,001

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

26. a = K tgx ;

cos a

при

 

 

 

a +b

 

y =

1

при

sin a

при

 

 

 

a b

 

b = lg(2 x + L) ex

a <b a =b a >b

x = 0,247;

x =π;

x =π

2

;

1

2

3

 

 

 

K =3,005;

L = 4,002

 

 

73

 

 

 

1

 

 

1

1

3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1lg 2

 

lg 4

27.

a = K

 

 

4

+

 

 

 

 

 

 

 

;

 

 

 

 

 

 

 

 

 

 

b = L

 

+ x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

sin(5a +3b)

при

 

 

a

 

>

 

 

 

b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y =

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

при

 

 

a

 

 

 

 

 

 

b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

cos(5a +3b)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x1 = 0,324;

 

 

x2 =1,246;

x3 = −3,273;

 

 

K =86,90;

 

 

L = 49,27

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1

 

 

 

 

 

 

 

28.

a = cos 2arctg

 

 

 

 

 

+ arctg

 

 

 

 

 

 

 

 

 

 

 

 

 

 

;

 

 

 

K

 

K

 

 

 

 

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

b = (K 1)14 2 x tg(K 1)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

lg(2a

3e2b)

 

 

при

 

 

 

a

 

 

<5

 

b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y =

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

при

 

 

 

a

 

 

2

 

 

b

 

 

 

 

 

 

 

lg(2a 3b)

 

 

 

 

 

 

 

 

 

 

 

 

 

x1 = 2,002;

 

 

x2 = 4,346;

 

 

x3 = −0,748;

 

 

K =5

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

29.

a = L(tgx +thx) ;

 

 

 

 

 

 

b = sh(x + K ) cos(x K )

 

th(a +b)

при

 

 

 

a >b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y =

 

 

 

 

 

при

 

 

 

a b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

sh(a +b)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x1 = 0,275;

 

 

x2 =π;

 

 

 

 

x3 =π 2;

 

 

 

 

 

 

 

 

 

 

 

 

K =1,24;

 

L = 2,37

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

30.

a =

tgx 2sin x ;

 

 

 

 

 

 

 

 

 

 

b = L2 x + K lg x

 

3a +ex

при

 

 

 

a >b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y =

+ex

при

 

 

 

a b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x1 = −0,346;

 

x2 =5,249;

 

 

 

x3 = 0,219;

 

 

K = 2

L =3 .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

74

Лабораторна робота № 4 ПРОГРАМУВАННЯ ЦИКЛІЧНИХ ПРОЦЕСІВ

75

1. МЕТА РОБОТИ

Мета роботи – навчитися організовувати програми циклічної структури, які дають змогу повторювати певну групу операторів задану кількість разів.

2. ТЕОРЕТИЧНІ ВІДОМОСТІ

Алгоритм називається циклічним, якщо певна послідовність кроків виконується кілька разів. Залежно від постановки задачі розрізняють цикли з

відомою і невідомою кількістю повторень.

Цикли з відомою кількістю повторень називаються арифметичними. Кількість повторень такого циклу відома до його початку і задається у лічильнику повторень.

Цикли з невідомою кількістю повторень називають ітераційними. Кількість повторень такого циклу наперед не відома. Вона задається неявно, наприклад, досягненням якоїсь змінної заданої точності або заданого значення.

Програми циклічної структури можна організувати за допомогою операторів IF і GOTO. Але такий варіант практично не використовується, оскільки в мові Паскаль існують спеціальні конструкції, які дають змогу виконувати циклічні алгоритми. Їх називають операторами циклу. Існує три типи операторів циклу:

1)оператор циклу з передумовою;

2)оператор циклу з постумовою;

3)оператор циклу з параметром, або з відомою кількістю повторень.

2.1. ОПЕРАТОР ЦИКЛУ З ПЕРЕДУМОВОЮ WHILE

Цей оператор дає змогу організувати цикл, в якому наперед не відома кількість повторень. Закінчення циклу визначається досягненням певної умови. Структура оператора WHILE :

WHILE <умова виконання> DO <оператор>;

Синтаксична діаграма наведена на рис. 1.

WHILE

Умова

DO

Оператор

виконання

 

 

 

Рис. 1. Синтаксична діаграма оператора циклу WHILE

Якщо “умова виконання” (логічний вираз) має значення TRUE, то виконується оператор (простий або складений) тіла циклу. Як тільки логічний

76

вираз “умова виконання” набуває значення FALSE, виконання оператора тіла циклу припиняється, і управління передається на оператор, який стоїть після оператора циклу.

Якщо “умова виконання” з самого початку має значення FALSE, то оператор циклу не виконується жодного разу. Тому такий оператор циклу називається з передумовою, тобто умова перевіряєтьсядо виконанняоператоратіла циклу.

При використанні оператора циклу WHILE треба дотримуватись таких правил:

1.Перед циклом задати початкове значення незалежної змінної, що змінюється у циклі (так званого параметра циклу).

2.Вказати у циклі порядок зміни цієї змінної перед кожним новим повторенням циклу.

3.В “умові виконання” циклу чітко відобразити значення параметра циклу, які він має набувати для повторення циклу.

Якщо хоча б одне з цих правил порушується, то цикл може ніколи не закінчитись; відбудеться так зване зациклювання програми, або цикл може завершитися раніше, ніж потрібно.

Приклад використання оператора циклу WHILE.

Обчислити суму N елементів гармонічного ряду:

S = 1+ 12 + 13 + 14 + ... + N1

Блок-схема алгоритму для виконання цієї задачі наведена на рис. 2.

1

 

Початок

2ввід N

3 S= 0

I=1

4

ні

I N

5

так

S=S+1/I

6

 

I = I+1

7

 

Вивід S

8кінець

Блок 2 – введення значення N.

Блок 3 – підготовка до виконання циклу.

Блок 4 – перевірка умови виконання циклу.

Блок 5 і 6 – тіло циклу. Тут сума S збільшується на поточне значення елемента гармонічного ряду, а параметр циклу I збільшується на 1.

Рис. 2. Блок-схема програми обчислення суми елементів гармонічного ряду з використанням оператора циклу WHILE

77

Програма матиме такий вигляд:

PROGRAM SUM1(INPUT, OUTPUT); VAR I, N:INTEGER;

S: REAL; BEGIN

WRITE(’Введи N’); READLN(N);

S:=0; I:=1;

WHILE I<=N DO BEGIN

S:=S+1/I; {тіло}

I:=I+1 {циклу} END;

WRITELN(’Сума S=’, S:7:3) END.

2.2. ОПЕРАТОР ЦИКЛУ З ПОСТУМОВОЮ REPEAT

Цей оператор дає змогу організувати цикл з невідомою кількістю повторень. На відміну від оператора WHILE умови виходу з циклу перевіряються після виконання операторів тіла циклу. Структура оператора REPEAT має такий вигляд:

REPEAT

<оператор 1>; <оператор 2>;

………………

<оператор n>

UNTIL <умова виходу>; Синтаксична діаграма наведена на рис. 3.

REPEAT

Оператор

UNTIL

Умова

виходу

 

 

;

Рис. 3. Синтаксична діаграма оператора циклу REPEAT

Виконання оператора циклу REPEAT починається з операторів тіла циклу. Після того обчислюється вираз, що стоїть після слова UNTIL. Якщо значення виразу TRUE, то здійснюється вихід з циклу, якщо FALSE, то виконання операторів циклу продовжується.

78

Отже, на відміну від оператора WHILE:

1.В операторі циклу REPEAT перевіряється умова виходу з циклу.

2.Оскільки умови виходу перевіряються після виконання операторів тіла

циклу, то при значенні умови виходу TRUE оператори тіла циклу все-таки

виконаються один раз.

3. Тіло циклу може містити не один, а кілька операторів. Це пояснюється тим, що записи: REPEAT означає REPEAT BEGIN, а UNTIL означає END

UNTIL.

Так само як і в операторі циклу WHILE, повинні виконуватись такі пра-

вила:

1.Перед циклом необхідно задати початкове значення параметра циклу.

2.Змінювати значення параметра циклу при кожному його виконанні.

3.Чітко вказати умову виходу з циклу.

Блок-схема програми з використанням оператора REPEAT показана на рис. 4.

Блок 3 – обнулення суми S і задання початкового значення параметра цикла.

Блоки 4 і 5 – оператори тіла циклу, в якому

1

сума збільшується на I ,

а параметр циклу збільшується на 1.

Блок 6 – перевірка умови виходу з циклу.

 

1

Початок

 

2ввід N

3 S= 0

 

I=1

 

4

S=S+1/I

 

5

 

I5= I+1

ні

6

 

I N

 

>

 

так

 

7

 

Вивід S

8кінець

Рис. 4. Блок-схема програми

з використанням оператора REPEAT

79

Програма для обчислення суми гармонійного ряду, використовуючи оператор циклу з постумовою:

PROGRAM SUM2(INPUT, OUTPUT); VAR N, I:INTEGER;

S:REAL;

BEGIN WRITE(’Введи N’); READ(N);

S:=0; I:=1; REPEAT S:=S+1/I; I:=I+1 UNTIL I>N;

WRITELN(’S=’, S:7:3) END.

2.3. ОПЕРАТОР ЦИКЛУ З ПАРАМЕТРОМ FOR

Оператор циклу з параметром дає змогу організувати цикл з наперед відомою кількістю повторень. Він передбачає повторне виконання оператора тіла циклу з одночасною зміною параметра циклу.

Структура оператора циклу FOR:

FOR

<параметр

циклу>

:= <початкове значення> TO

<кінцеве значення> DO <оператор>;

або

<параметр

циклу> :=

<початкове значення> DOWNTO

FOR

<кінцеве значення> DO <оператор>;

1)тип параметра циклу обов’язково має збігатися з типом його початкового і кінцевого значення;

2)параметр циклу не може бути змінною дійсного типу;

3)початкове і кінцеве значення параметра циклу можуть бути константами або виразами;

4)крок зміни параметра циклу: 1 для службового слова TO, -1 для слова

DOWNTO;

5)крок відмінний від 1 або -1 використовуватись не може.

Синтаксична діаграма оператора циклу FOR наведена на рис. 5. Робота оператора циклу з параметром полягає в наступному:

1.Обчислюється значення виразів початкового і кінцевого значення параметра циклу;

2.Змінній – параметру циклу присвоюється початкове значення;

3.Значення параметра циклу порівнюється з кінцевим значенням.

80

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]