івняння x ^ 3 + 2 * x * x - 11=0 на інтервалі [1; 2] з точністю 0.0001 );:=1; :=2;:=0.0001;
c:=(a + b)/2; F (a) * F (c) lt;=0 then
b:=c
a:=c; b-a lt; e;:=(a + b)/2; ( x=, x) ;;;.
modmettrap; {модуль формула трапеції}
uses crt;
Type
Tmettrap=class
a, b, k, s, e: real;
function F (x: real): real;
procedure mettrap;
end;
Tmettrap.F (x: real): real;:=x * x ;;
Tmettrap.mettrap ;;:=- 3;:=8;:=0.0001;:=(F (a) + F (b))/2;:=ae; k lt;=b + e do
begin
k:=k + e;
s:=s + F (k);
end;:=s * e; ( S=, s: 0: 9) ;;.
modeyler; {модуль Ейлер}
uses crt;
Type
TEyler=class {в іншому паскале пишемо object}
h, x, y, a, b, k, s, e: real;
function F (x, y: real): real;
procedure eyler;
end;
TEyler.F (x, y: real): real;
F:=1/(x * x + y * y) ;;
TEyler.eyler ;;:=0.3;:=3.5;:=0.5;:=0.5;
x lt;=b do
begin
writeln ( x=, x: 0: 9, y=, y: 0: 9);
y:=y + F (x, y) * h;
x:=x + h;
end ;;.
