3.2. Цикл з післяумовою (repeat – until)

Приклад.

Обчислити та вивести на екран таблицю значень функції . Аргумент x змінюється від –1,5 (Х_поч) до 3,3 (Х_кінц) з кроком 0,4 ( ).

Текст програми

Program Cikl_PUm;

uses crt;

var i, n : integer;

x, y : real;

Begin

clrscr;

i:=0;

n:=trunc((3.3+1.5)/0.4)+1;

writeln(' X | Y ');

repeat

i:=i+1;

x:=-1.9+0.4*i;

y:=((1-x*x)/(1+x*x))*arctan(sqrt(abs(x)));

writeln( ' ',x:4:1,' | ',y:4:1);

until i>=n;

readln

end.

Результат виконання програми

X | Y

-1.5 | -0.3

-1.1 | -0.1

-0.7 | 0.2

-0.3 | 0.4

0.1 | 0.3

0.5 | 0.4

0.9 | 0.1

1.3 | -0.2

1.7 | -0.4

2.1 | -0.6

2.5 | -0.7

2.9 | -0.8

3.3 | -0.9

Індивідуальні завдання

N п/п	Функція	Xпоч	Xкін	X
1	y=	-2.3	4.3	0.5
2	y=	-1.6	3.5	0.35
3	y=	-1.8	3.3	0.45
4	y=	-2.7	4.0	0.5
5	y=	-3.1	2.9	0.4
6	y=	-4.0	2.0	0.3
7	y=	-1.9	3.9	0.5
8	y=	-2.8	4.6	0.3
9	y=	-1.6	1.8	0.2
10	y=	-3.0	3.1	0.55
11	y=	-2.6	2.6	0.4
12	y=	-1.5	2.1	0.35
13	y=	-3.0	1.3	0.45
14	y=	-2.3	2.5	0.5
15	y=	-2.2	5.2	0.6
16	y=	-1.7	3.1	0.4
17	y=	-0.4	2.0	0.2
18	y=	-2.1	4.4	0.6
19	y=	-1.2	4.3	0.5
20	y=	-1.9	3.7	0.3
21	y=	-1.6	3.9	0.45
22	y=	-1.4	4.1	0.25
23	y=	-1.3	4.2	0.4
24	y=	-1.0	4.7	0.3
25	y=	-1.1	4.5	0.4
26	y=	-1.8	4.0	0.5
27	y=	-2.4	3.6	0.2
28	y=	-2.0	4.2	0.3
29	y=	-1.7	3.8	0.4
30	y=	-1.3	12	0.4

3.3. Цикл з передумовою (while)

Приклад.

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

Текст програми

program Pr_While;

uses crt;

const e=0.001;

var s, si : real;

k : integer;

begin

clrscr;

s:=0; k:=1; si:=1;

While si>e do

begin

s:=s+si;

k:=k+1;

si:=1/k;

end;

Writeln('Сума =', S:2:3);

Writeln('Кількість доданків =', k-1);

end.

Результат виконання програми:

Сума = 7.484

Кількість доданків = 1000

Індивідуальні завдання

N п/п	Функція		N п/п	Функція	
1		0.0001	16		0.001
2		0.0001	17		0.0001
3		0.001	18		0.001
4		0.01	19		0.001
5		0.001	20		0.0001
6		0.0001	21		0.001
7		0.001	22		0.001
8		0.0001	23		0.0001
9		0.0001	24		0.001
10		0.001	25		0.0001
11		0.001	26		0.001
12		0.0001	27		0.0001
13		0.001	28		0.01
14		0.0001	29		0.0001
15		0.001	30		0.001