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.