Практикум по решению задач на ЭВМ. Тарова И.Н - 81 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

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

Рубрика: 

Практикум по решению задач на ЭВМ
{проверка близости соседних приближений}
max_dx:=abs(x1[1]-x[1]);
for i:=2 to m do
begin
Z:=abs(x1[i]-x[i]);
if Z>max_dx then
max_dx:=Z;
end;
{передача значений}
for i:=1 to m do
x[i]:=x1[i];
UNTIL (max_dx<E) or (N>Nmax);
if max_dx<E then
begin
writeln('РЕШЕНИЕ');
for i:=1 to m do
writeln('x(',i,')=',x[i]);
writeln('Получено на ',N,'-ом шаге');
end
else
writeln('Сходимость медленная');
repeat until keypressed;
readln;
end.
10) Вычислить интеграл:
по формуле прямоугольников, разделив
отрезок
на 10 равных частей и оценить погрешность вычислений.
∫
=Ι
1
0
2
sin xdxx
]1,0[
program integral;
uses crt;
var a,b,h,psi,M2,s,x:real; n,i:integer;
function f(x:real):real;
begin
81
                   Практикум по решению задач на ЭВМ


    {проверка близости соседних приближений}
    max_dx:=abs(x1[1]-x[1]);
    for i:=2 to m do
     begin
      Z:=abs(x1[i]-x[i]);
      if Z>max_dx then
       max_dx:=Z;
     end;
    {передача значений}
    for i:=1 to m do
     x[i]:=x1[i];
    UNTIL (max_dxNmax);
    if max_dx

Страницы