0 дауыс
1.1k көрілді
Тік бұрыштар әдісі, Трапеция әдісі және Симпсон әдістерінің формулаларына Турбо Паскальда программа құра аласыздарма??? Алла разы болсын жамағат..!!
Сұрақтың жабылу себебі: Ал-Астер рахмет бауырым Алла разы болсын..

4 жауап

+1 дауыс
 
Жақсы жауап
program trap_adisi;
    uses crt;
    var a,b,S,h,integ: real;
        i,n: integer;
    function f(x: real): real;
    begin
     f:=sqr(x)-x-1;
    end;
    begin
     clrscr;
     write('a/b/n: ');
     readln(a,b,n);
     h:=(b-a)/n;
     for i:=1 to n-1 do
      S:=s+f(a + h*i);
     integ:=h*((f(a)+f(b))/2+S);
     writeln('S=',integ);
     readln;
    end.
+1 дауыс
program tiktortburiw_adis;
    uses crt;
    var y, a, b, dx, xi:double;
    n, i:integer;
    y:double;
    begin
    clrscr;
    writeln('Interval basyn, sonyn jane nomirin engiziniz:');
    readln(a,b,n);
    dx:=(b-a)/n;
    for i:=1 to n do begin
    xi = a + (i-0.5d0)*dx;
          y = y + f(xi)*dx; end;
          writeln('f(x) kvadrat = ',y:2:2);
          readln;
          end.
+1 дауыс
Шығарып көрейін әрі қарай келесі әдістермен. Тек есептің берілгені мен қолдануы тиіс нақты формулалар керек.
+1 дауыс
program Simpson;
    
    {интегрируемая функция}
    function F(x:Real):Real;
    begin
    F:=2*x;
    end;
    
    var a,b,h,x :real;
    n,i :integer;
    integ :real;
    
    begin
    write('Введите начало интегрирования a='); readln(a);
    write('Введите конец интегрирования b='); readln(b);
    write('Введите количество разбиений интервала (четное число) n='); readln(n);
    if (n mod 2)>0 then
    begin
    n:=n+1;
    writeln('Число n было введено нечетное, оно было заменено на n=',n);
    end;
    
    h:=(b-a)/n;
    integ:=F(a)+F(b)+4*F(a+h);
    for i:=1 to (n div 2)-1 do
    begin
    x:=a+2*h*i;
    integ:=integ+2*F(x)+4*F(x+h);
    end;
    integ:=h*integ/3;
    writeln('integral = ',integ);
    end.

Derek kozi: http://tpxexe.narod.ru/integral.html

Osi jerden osi takiripka esepter bar eken
Рахмет бауырым..!! Алла разы болсын саған..!!!
...