Задания к лабораторной работе № 6

Тема: Подпрограммы.

Задание. Составить программу на языке Паскаль для вычисления значения функции y = f (x) в точках x при заданных значениях a. Нахождение значения функции f(x) при заданных значениях а оформить в виде подпрограммы. Результат вывести в виде двумерной таблицы.

Варианты заданий

Таблица 6.1

Номер вар.	Y=f(x)	Исходные данные

Пример решения задачи

Задание. Вычислить значения функции в точках при заданных значениях . Результаты представить в виде двумерной таблицы.

Таблица 6.2

x a	2.0	2.5	3.7	4.1	4.9
0.2 0.7 1.0 1.2 1.8 2.0 2.2	0.096 0.219 0.182 0.124 -0.061 -0.095 -0.108	0.076 0.146 0.083 0.018 -0.103 -0.094 -0.064	0.049 0.037 -0.036 -0.064 0.022 0.051 0.052	0.043 0.016 -0.046 -0.054 0.044 0.045 0.018	0.035 -0.012 -0.039 -0.015 0.021 -0.013 -0.034

 

Решение. 1. Блок-схема решения представлена на рисунке.

a) Блок-схема алгоритма основной программы PR5

Рисунок 6.1

 

 

 

 

б) Блок-схема алгоритма подпрограммы P

 

Рисунок 6.2

 

 

 

 

 

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

 

type vector= array [1..20] of real;

massiv= array [1..20,1..20] of real;

var x,a:vector;

i,j,n,m:integer;

y:massiv;

 

procedure p(n,m:integer;x,a:vector;var y:massiv);

begin

for i:=1 to n do

for j:= 1 to m do

y[i,j]:=sin(a[j]*x[i])/(sqr(x[i])+sqr(a[j]));

end;

 

BEGIN

Write ('Введите количество значений x и a= ');

Readln(n,m);

for i:=1 to n do

begin

Write ('Введите x[',i,']=');

Readln(x[i]);

end;

for j:= 1 to m do

begin

Write ('Введите a[',j,']=');

Readln(a[j]);

end;

p(n,m,x,a,y);

Writeln (' Таблица');

Writeln('┌───────┬───────┬───────┬───────┬───────┬───────┐');

Write('│X \ a│');

for i:=1 to m do

Write(a[i]:3:1,' ','│');

Writeln;

Writeln('├───────┼───────┼───────┼───────┼───────┼───────┤');

for i:=1 to n do begin

Write('│',x[i]:3:1,' │');

for j:=1 to m do

Write(y[i,j]:7:3,'│');

Writeln;

end;

Writeln('└───────┴───────┴───────┴───────┴───────┴───────┘');

readln;

END.

 

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

 

Таблица

┌──────┬──────┬──────┬──────┬──────┬──────┐

│x \ a │2.0 │2.5 │3.7 │4.1 │4.9 │

├──────┼──────┼──────┼──────┼──────┼──────┤

│0.2 │ 0.096│ 0.076│ 0.049│ 0.043│ 0.035│

│0.7 │ 0.219│ 0.146│ 0.037│ 0.016│ -0.012│

│1.0 │ 0.182│ 0.083│ -0.036│ -0.046│ -0.039│

│1.2 │ 0.124│ 0.018│ -0.064│ -0.054│ -0.015│

│1.8 │ -0.061│ -0.103│ 0.022│ 0.044│ 0.021│

│2.0 │ -0.095│ -0.094│ 0.051│ 0.045│ -0.013│

│2.2 │ -0.108│ -0.064│ 0.052│ 0.018│ -0.034│

└──────┴──────┴──────┴──────┴──────┴──────┘

 

 

Задания к лабораторной работе № 7

Тема: Циклы итерационного типа

Задание. Составить программу вычисления значения функции, разложенной в ряд (сумму ряда). В формулах – заданная степень точности; n – порядковый номер очередного члена ряда.

 

Варианты заданий к лабораторной работе №7

Таблица 7.1

№ вар.	Задание	Исходные данные
	Составить программу вычисления значения функции Y:	До выполнения условия , где     e = 0,05; 0,001; 0,0001
	Составить программу вычисления значения функции F(x):	Для a = 0,13; 0,1; 0,78; до выполнения условия где e = 0,007; 0,005; 0,001
	Составить программу вычисления значения функции Y:	До выполнения условия , при решении принять e = 0,005; 0,001; 0,0001
	Составить программу вычисления значения функции F(x):	До выполнения условия , где     e = 0,002; 0,0005; 0,001 x = 1,046; 1,024; 1,342
	Составить программу вычисления значения функции F(x):	До выполнения условия где e = 0,01; 0,001; 0,005 x = 0,52; 0,73; 0,36 a=12,17,19
	Составить программу вычисления значения функции F(x):	До выполнения условия где
7	Составить программу вычисления значения функции Y(x):	До выполнения условия где e = 0,001; 0,005; 0,0001 x = 1,91; 1,81; 1,71
	Составить программу вычисления значения функции Y:	До выполнения условия где e = 0,001; 0,01; 0,0001 x = 2,3; 3,01; 4,56
	Составить программу вычисления значения функции F(x):	До выполнения условия где e = 0,0001; 0,01; 0,001 x = 0,9; 1,2; 1,7
	Составить программу вычисления значения функции F(x):	До выполнения условия где
	Составить программу вычисления значения функции S(x):	До выполнения условия где
	Составить программу вычисления значения функции F(x):	До выполнения условия где
	Составить программу вычисления значения функции F(x):	До выполнения условия где
	Составить программу вычисления значения функции Y:	До выполнения условия где
	Составить программу вычисления значения функции F(x):	До выполнения условия где
	Составить программу вычисления значения функции F(x):	До выполнения условия где
	Составить программу вычисления функции F(x)	До выполнения условия где
	Составить программу вычисления значения функции Y:	До выполнения условия где
	Составить программу вычисления значения функции F(x):	До выполнения условия где   e = 0,0005; 0,0001; 0,001 x = 15; 16; 19
	Составить программу вычисления значения функции F(x):	До выполнения условия где e = 0,005; 0,001; 0,01 x = 2,73; 1,7; 3,4
	Составить программу вычисления значения функции F(x):	До выполнения условия     , где     e = 0,005; 0,01; 0,001 x = 0,2; 0,7; 0,9
	Составить программу вычисления значения функции F(x):	До выполнения условия ,где e = 0,001; 0,005; 0,01 x = 1,3505; 1,37; 1,38
	Составить программу вычисления значения функции F(x):	До выполнения условия   ,где   e = 0,001; 0,005; 0,01 x = 0,205; 0,204; 0,200
	Составить программу вычисления значения функции S(x):	До выполнения условия   ,где   e = 0,005; 0,0001; 0,001 x = 1,41; 2,4; 3,7
	Составить программу вычисления значения функции F(x):	До выполнения условия ,где   e = 0,001; 0,0005; 0,001 x = 0,51; 0,708; 0,9
	Составить программу вычисления значения функции F(x):	До выполнения условия     ,где     e = 0,0005; 0,0001; 0,01 x = 0,71; 0,848; 0,9
	Составить программу вычисления значения функции F(x):	До выполнения условия   ,где   e =0,001; 0,005; 0,0001 x=0,4; 0,6; 0,8
	Составить программу вычисления значения функции F(x):	До выполнения условия где e = 0,001; 0,005; 0,0001 x =1,0472; 0,9471; 0,7831
	Составить программу вычисления значения функции F(x):	До выполнения услови e = 0,0001; 0,0005; 0,001 x =4,36; 4,37; 5,01
	Составить программу вычисления значения функции F(x):	До выполнения условия ,где     e = 0,001; 0,0001; 0,005 x = 1,5; 1,7; 2,4; a = 2,3

Пример решения задачи

Задание: Вычислить сумму элементов ряда

При x=0,24; e=0,001

 

до выполнения условия

Решение. 1.Блок-схема алгоритма решения приведена на рисунке.

Рисунок 7.1

 

 

 

Нет

 

 

Да

 

 

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

 

var F,x,S,eps,Fact:real;

n:integer;

begin

write('vvedite x=');readln(x);

write('vvedite eps=');readln(eps);

F:=0; n:=1; Fact:=1; S:=cos(n*x)/Fact;

while abs(S)>eps do

begin

F:=F+S;

n:=n+1;

Fact:=Fact*n;

S:=cos(n*x)/Fact;

end;

write('pri x=',x:5:2,' eps=',eps:5:3,' summa F=',F:7:3);

readln;

end.

 

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

pri x=0.24 eps=0.001 summa F= 1.567

Порядок выполнения работ

1. Запустить инструментальную программную оболочку Турбо Паскаля (ТР):

Открыть ярлык TurboPascal на рабочем столе.

2. Записать файл на диск с новым именем (в папку User_date на рабочем столе):

FileÞSave as…Þ выбрать путь C:\User_d~1Þ вписать имя файла вместо * ÞOK