Практична робота №5.

ТЕМА: Програмування циклічних алгоритмів.

МЕТА РОБОТИ.

1.Вивчення типів циклів у мові ПАСКАЛЬ.

2.Одержання навиків в записі циклів на мові ПАСКАЛЬ і налагодження програм на ЕОМ.

ПОСТАНОВКА ЗАДАЧІ.

1. Знайти значення функції Y(X) при X на заданому інтервалі значень .

2. Виконати обчислення згідно заданого варіанту. Таблиця 4.

. ЗМІСТ ЗВІТУ.

1. Постановка задачі для конкретного варіанту.

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

3. Результати обчислень.

4. Висновок.

МЕТОДИЧНІ ВКАЗІВКИ.

1. Вивід значень функціі організувати в циклі.

Cкласти програми , використовуючи рiзні оператори циклу мови програмування.

Проаналізувати відмінності при організації циклів опраторами WHILE... та REPEAT... UNTIL .

ПРИКЛАД ПРОГРАМИ.

ЗАВДАННЯ 4. ПРОТАБУЛЮВАТИ ФУНКЦIЮ y=x ²sin3x НА IНТЕРВАЛI

(-1;3,2) З КРОКОМ 0,4. ОБЧИСЛИТИ СЕРЕДНЕ ГЕОМЕТРИЧНЕ 0.1<y<1.5,

I СЕРЕДНЕ АРИФМЕТИЧНЕ у<0 . ДАЛI НАВЕДЕНО ПРИКЛАД ПРОГРАМИ

Program Pr3;{ЦИКЛ Repeat-Until}

Const a=-1; b=3.2; h=0.4;

Var x,y,s,p: real;u,v:real;

m,i:integer;

Begin

x:=a; s:=0; p:=1; m:=0;i :=0;

Repeat

y=x*x*sin(3*x);

Writeln(x:7:1,^{’ ‘},y:7:3);.

If (y>0.1) and (y<1.5) then begin p:=p*y; m:=m+1 end;

If y<0 then begin s:=s+y;i:=i+1; end;

x:=x+h;

Until x>b;

u:=exp(ln(p)/m); v:=s/i;

Writeln(‘Середнє геометричне=’,u:7:3);

Wuiteln(‘Середнє арифметичне= ’,v:7:3);

End.

Program Pr3;{ЦИКЛ While…}

Const a=-1; b=3.2; h=0.4;

Var x,y,s,p: real;u,v:real;

m,i:integer;

Begin

x:=a; s:=0; p:=1; m:=0; i:=0;

While x<=b do begin

Y:=x*x*sin(3*x);

Writeln(x:7:1,^{’ ‘},y:7:3);.

If (y>0.1) and (y<1.5) then begin p:=p*y; m:=m+1 end;

If y<0 then begin s:=s+y;i:=i+1; end;

x:=x+h; end;

u:=exp(ln(p)/m);

v:=s/i;

Writeln(‘Середнє геометричне=’,u:7:3);

Wuiteln(‘Середнє арифметичне= ’,v:7:3);

End.

Варіанти завдань до практичної роботи №5

№	Функція Y(X)	A	B	H	ОБЧИСЛИТИ:
1.	y=x2+16/x-16	1	4	0.5	середнє арифметичне всiх y
2.	y=arctg4x	0	2	0.5	суму i кiлькiсть 0,71<y<2
3.	y=ln(2+sin2x)	0	3	0.6	суму y>1 і кількість y<1
4.	y=x3ln(1+x)	1	6	1.0	кількість і добуток y<100
5.	y=xearctgx	0	6	1.2	середнє арифметичне 1<y<7,9
6.	y=arctgx/(1+x2)	0	1.5	0.8	суму y<0,4 і добуток y>0,4
7.	y=sin2x/(1+x2)	0	6	0.8	суму y<0 ікількість y>0
8.	y=xe-x	-2	3	1.0	суму і добуток y>0
9.	y=lnx+arctgx	0.5	2	0.5	середнє геометричне y>0,3
10.	y=(ex-e-x)/2	0.3	2	0.3	добуток y>1 і суму y<1
11.	y=x 2lnx	1	10	2.0	середнє геометричне y>5
12.	y=lnx+cos2x	1	1.5	0.1	середнє арифметичне y<=0,3
13.	y=(ex+e-x)/2	-1	2	0.4	суму і кількість y>2
14.	y=arccosx	0.1	0.6	0.1	суму і кількість y<=1,3
15.	y=4-x-4/x2	1	4	0.5	кількості y<-0,5 i y>-0,5
16	y=el+x	0	1	0.2	кількість і добуток y>4,12
17	y=ln(2+cos2x)	0	3	0.3	суму і добуток y<=0,95
18	y=3-x-4/(x+2)2	-1	2	0.4	кількості y<0 i y>0
19	y=(lnx)/x 3	1	2	0.2	кількість і суму 0,2<y<0,5
20	y=x/sin 2x	0.5	1	0.1	суму y=>-0 i y<-0,1
21	y=(sinx+x2)/ln	2	4	0.4	кількості y>8,3 i y<8,3
22	y=xexsin2x	0	1	0.2	середнє геометричне 0<y<0,3
23	y=ln3x+arctgx	1	2	0.2	суму і добуток 0,5<y<1,5
24	y=xe-x	1	2	0.2	добуток і кількість 0<y<0,3
25	y=ln(1+x)	1	4	0.5	суму і кількість y>2.5