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

uses crt;
var
c,d,h : real;
a,b,x : real;
i,j : integer;
r,r1,r2 : real;
n : word;
e,iz : real;
{*********}
function f(x:real):real;
begin
f:=cos(3*x)*sin(5*x);
end;
{*********}
function t1(n:integer):real;
var q : real;
begin
q:=0;
for j:=1 to n do begin
h:=(d-c)/(2*n);
a:=c+(j-1)*h*2;
b:=c+(j)*h*2;
x:=(a+b)/2;
q:=q+2*h*f(x);
end;
t1:=q;
end;
{*********}
function t2(n:integer):real;
var q : real;
begin
q:=0;
for j:=1 to n do begin
h:=(d-c)/(2*n);
a:=c+(j-1)*h*2;
b:=c+j*h*2;
x:=(a+b)/2;
{q:=q+h*(f(x-h/sqrt(3))+f(x+h/sqrt(3)));}
q:=q+h/3*(f(a)+4*f(x)+f(b));
end;
t2:=q;
end;
{*********}
{for i:=1 to n do q:=q+h/9*(5*f(x[i]-h*sqrt(3/5))+8*f(x[i])+5*f(x[i]+h*sqrt(3/5)));
for i:=1 to n do q:=q+2*h*f(a[i]);
for i:=1 to n do q:=q+2*h*f(b[i]);
for i:=1 to n do q:=q+h*f(a[i]+b[i]);
for i:=1 to n do q:=q+h/3*(f(a[i])+4*f(x[i])+f(b[i]));}
{********}
begin
clrscr;
Writeln('True F(b)-F(a)=0.4');
c:=1;
d:=4;
n:=0;
e:=0.000001;
repeat
inc(n);
r1:=(t1(2*n)-t1(n))/(3); {s=0 4,5 s=1 1,6 s=3 2,7 s=5 3}
until abs(r1)<=e;
writeln('N ==> ',n);
writeln('I1 ==> ',t1(n));
writeln('r ==> ',r1);
writeln('I1* ==> ',t1(2*n)+r1);
writeln('I1-I1* ==> ',t1(n)-t1(2*n)+r1);
writeln;
n:=0;
repeat
inc(n);
r2:=(t2(2*n)-t2(n))/(15);
until abs(r2)<=e;
writeln('N ==> ',n);
writeln('I1 ==> ',t2(2*n));
writeln('r ==> ',r2);
writeln('I1* ==> ',t2(2*n)+r2);
writeln('I1-I1* ==> ',t2(n)-t2(2*n)+r2);
readln;
end.