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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.
L:=0; {вычисление полинома L(x)}
for k:=0 to n do
L:=L+c[k]*f[k];
writeln('L(',x1:4:2,')=',L);
readln;
end.
Решение нелинейных уравнений
с одной переменной
7) (Отделение корней). Пусть задано уравнение
0)(
=
x
f
. Выполнить от-
деление корней на отрезке [A,B].
А=-1.2
В=1.2
)5sin()(
2
xxxf +=
program root1;
uses CRT;
var A,B:real;
x,H,A1,B1:real;
k:integer;
function F(x:real):real;
begin
F:=sqr(x)+sin(5*x);
end;
begin
clrscr;
writeln('введите границы A,B и шаг H');
readln(A,B,H);
k:=0;
x:=A;
while x<=B do
begin
if F(x)*F(x+H)<=0 then
begin
k:=k+1; A1:=x; B1:=x+H;
writeln(k,'-ый корень на отрезке ',A1,'-',B1);
end;
x:=x+H;{переход к следующей точке x}
end;
if k=0 then writeln('корней на отрезке ',A,'-',B,' не существует');
readln;
78
                                 Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


      L:=0; {вычисление полинома L(x)}
      for k:=0 to n do
        L:=L+c[k]*f[k];
     writeln('L(',x1:4:2,')=',L);
     readln;
   end.




                     Решение нелинейных уравнений
                           с одной переменной
7) (Отделение корней). Пусть задано уравнение f ( x) = 0 . Выполнить от-
деление корней на отрезке [A,B]. f ( x) = x2 + sin(5x)            А=-1.2
В=1.2

  program root1;
  uses CRT;
  var A,B:real;
  x,H,A1,B1:real;
  k:integer;
  function F(x:real):real;
   begin
    F:=sqr(x)+sin(5*x);
    end;
   begin
   clrscr;
   writeln('введите границы A,B и шаг H');
   readln(A,B,H);
   k:=0;
   x:=A;
   while x<=B do
    begin
     if F(x)*F(x+H)<=0 then
       begin
        k:=k+1; A1:=x; B1:=x+H;
        writeln(k,'-ый корень на отрезке ',A1,'-',B1);
       end;
      x:=x+H;{переход к следующей точке x}
     end;
   if k=0 then writeln('корней на отрезке ',A,'-',B,' не существует');
   readln;

                                       78

Страницы