Курс лекций по основам алгоритмизации и программирования задач машиностроения. Кравченко Д.В. - 96 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

94
Var x, y, y1, y2, y3, h, k: real;
Begin
Clrscr;
Write (‘Введите значение x:’);
Readln(x);
Write (‘Введите значение шага h:’);
Readln(h);
Write (‘Введите значение коэффициента k:’);
Readln(k);
y:=3*sqr(x);
y1:=(x*x*x – exp(3*ln(x – h)))/h;
y2:=(x*x*x – exp(3*ln(x –k*h)))/(k*h);
y3:=y1+(y1 – y2)/(k – 1);
Writeln(‘Значение первой производной, вычисленное:’);
Writeln(‘Аналитически – ‘, y:4:2);
Writeln(‘С помощью конечных разностей (h=’, h:4:1, ‘ ) – ‘ , y1:4:2);
Writeln(‘С помощью конечных разностей (h=’,k* h:4:1, ‘ ) – ‘ , y2:4:2);
Writeln(‘С помощью формулы Рунге - ’, y3:4:2);
Readkey;
End.
Начало
Ввод
x, h , k
2
3xy =
h
hxx
y
33
1
)( −−
=
kh
khxx
y
33
2
)( −−
=
1
21
13
−
−
+=
k
yy
yy
В
ывод
1
y
,
2
y
,
3
y
К
онец
Рис. 6.3. Алгоритм программы для вычисления 1-ой производной функции аналитическим
методом, с помощью конечных разностей и формулы Рунге

Страницы