Лабораторная работа №3 Программирование циклических вычислительных структур
Задание
№1. Составить
программу для вычисления значений
функции
на
отрезке
в
точках
,
где
.
Исходные данные
,
,
,
.
Текст программы к заданию №1:
Program m111316;
Uses
Crt;
Const
A=0;
B=1;
M=20;
Var
F,X,H : Real;
I : Integer;
Begin
ClrScr;
H:=(B-A)/M;
For I:=0 TO M DO
Begin
X:=A+I*H;
F:=Arctan(X);
WriteLN ('X=' , X:5:2, ', F(X)=' , F:4:3);
End;
End.
Результаты работы программы к заданию №1:
X= 0.00, F(X)=0.000
X= 0.05, F(X)=0.050
X= 0.10, F(X)=0.100
X= 0.15, F(X)=0.149
X= 0.20, F(X)=0.197
X= 0.25, F(X)=0.245
X= 0.30, F(X)=0.291
X= 0.35, F(X)=0.337
X= 0.40, F(X)=0.381
X= 0.45, F(X)=0.423
X= 0.50, F(X)=0.464
X= 0.55, F(X)=0.503
X= 0.60, F(X)=0.540
X= 0.65, F(X)=0.576
X= 0.70, F(X)=0.611
X= 0.75, F(X)=0.644
X= 0.80, F(X)=0.675
X= 0.85, F(X)=0.704
X= 0.90, F(X)=0.733
X= 0.95, F(X)=0.760
X= 1.00, F(X)=0.785
Задание
№2.
В соответствии с данными, заданными по
варианту, составить программу для
вычисления функции двух аргументов
,
в которой
изменяется от
до
с шагом
Значение
изменяется от
до
с шагом
Используя заданные коэффициенты,
построить двумерную таблицу.
Исходные данные
.
1
аргумент (
)
изменяется в интервале
с шагом 0,5.
2
аргумент (
)
изменяется в интервале
с шагом 0,5.
Коэффициент
.
Текст программы к заданию №2:
Program m111326;
Uses
Crt;
Const
A = 1.9;
X1= 2;
X2= 5;
Y1=-1;
Y2= 1;
Hx= 0.5;
Hy= 0.5;
Var
X, Y, S: Real;
I, J, Imax, Jmax: Integer;
Begin
ClrScr;
Imax:=trunc((X2-X1)/Hx);
Jmax:=trunc((Y2-Y1)/Hy);
X:=X1;
For I:=0 to Imax do
Begin
Y:=Y1;
For J:=0 to Jmax do
Begin
S:=Exp(1/5*Ln(A*X*Sqr(Y)+1.3))*Sin(X-A);
Write (S:5:3,' ');
Y:=Y+Hy;
End;
X:=X+Hx;
WriteLN;
End;
End.
Результаты работы программы к заданию №2:
0.138 0.117 0.105 0.117 0.138
0.809 0.678 0.595 0.678 0.809
1.315 1.089 0.939 1.089 1.315
1.513 1.242 1.053 1.242 1.513
1.337 1.089 0.910 1.089 1.337
0.815 0.660 0.543 0.660 0.815
0.067 0.054 0.044 0.054 0.067
Задание
№3. Составить
программу для вычисления ряда для
каждого значения х с точностью
.
Значение x
изменяется в указанном диапазоне с
шагом h,
который определяется так:
.
Исходные данные
;
.
х
принадлежит интервалу
с
шагом
Текст программы к заданию №3:
Program m111336;
Uses
Crt;
Const
Epsilon=0.000001;
X0=1;
X1=2;
H=(X1-X0)/15;
Var
Summ, X, T: Real;
N, I: Integer;
Begin
ClrScr;
For I:=0 to 15 do
Begin
N:=0;
X:=X0+H*I;
T:=1;
Summ:=0;
Repeat
{WriteLN('итерация:',N,'Член ряда:',T:7:4);}
Summ:=Summ+T;
T:=T*X/(N+1);
N:=N+1;
Until ABS(T)<Epsilon;
WriteLN('X=', X:3:1,' сумма ряда:', Summ:7:5, ', Exp(X)=', Exp(X):7:5);
End;
End.
Результаты работы программы к заданию №3:
X=1.0 сумма ряда:2.71828, Exp(X)=2.71828
X=1.1 сумма ряда:2.90568, Exp(X)=2.90568
X=1.1 сумма ряда:3.10599, Exp(X)=3.10599
X=1.2 сумма ряда:3.32012, Exp(X)=3.32012
X=1.3 сумма ряда:3.54900, Exp(X)=3.54900
X=1.3 сумма ряда:3.79367, Exp(X)=3.79367
X=1.4 сумма ряда:4.05520, Exp(X)=4.05520
X=1.5 сумма ряда:4.33476, Exp(X)=4.33476
X=1.5 сумма ряда:4.63360, Exp(X)=4.63360
X=1.6 сумма ряда:4.95303, Exp(X)=4.95303
X=1.7 сумма ряда:5.29449, Exp(X)=5.29449
X=1.7 сумма ряда:5.65949, Exp(X)=5.65949
X=1.8 сумма ряда:6.04965, Exp(X)=6.04965
X=1.9 сумма ряда:6.46670, Exp(X)=6.46670
X=1.9 сумма ряда:6.91251, Exp(X)=6.91251
X=2.0 сумма ряда:7.38906, Exp(X)=7.38906