01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / integral1

 program metod_Trapecii;
  uses crt;
   const eps=0.0001;
    function f(x:real):real;
      begin  f:=x*cos(x)*cos(x); end;
  VAR
     p,i,n:integer;
     I1,I2,s,h,Itoch,a,b,p1,p2:real;
  BEGIN
       clrscr;
       textcolor(green);
       a:=0;
       b:=3.14;
       n:=10;
             Itoch:=b*b/2-b*b/4-1/8+1/8;writeln;writeln;
   writeln('                    Ћ„Ќ“ Њ€Ќ“’Ћ—Љ“,‘—€’Ђћ        ');
 repeat
  begin
       h:=(b-a)/(2*n);
       s:=f(a);
        for i:=1 to 2*n-1  do
         begin
           s:=s+f(a+i*h);
         end;
       I1:=h*(s+f(b));
       s:=f(a);
        h:=h/2;
         n:=n*2;
        for i:=1 to 2*n-1 do
         begin
           s:=s+f(a+i*h);
         end;
       I2:=h*(s+f(b));
  end;
   until abs(I2-I1)/3<eps; clrscr;
    writeln;
     writeln(' ‚лзЁб«Ґ­ЁҐ Ё­вҐЈа «  x*cos(x)*cos(x) ЇаЁ x=[0..3.14]');
      writeln('                                                     ');
       writeln( '  €­вҐЈа « ЇаЁ h             ',I1:9:7);
        writeln('  €­вҐЈа « ЇаЁ h/2           ',I2:9:7);
         writeln('  ’®з­®Ґ §­ зҐ­ЁҐ            ',Itoch:9:7);
          writeln('  “в®з­Ґ­ЁҐ Ї® ђЁз а¤б®­г    ',(I2+(I2-I1)/3):9:7);
       readln;
end.