Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- uses math;
- const
- a = 2;
- b = 3;
- n = 1000;
- step = 0.001;
- function f(x : real) : real;
- begin
- f := ln(x + 2) / x;
- end;
- var
- s, fA, fMid, fB : real;
- i : integer;
- begin
- { Левые прямоугольники }
- s := 0;
- for i := 0 to n - 1 do
- s += f(a + i * step) * step;
- writeln('А(левая)>> ', s:0:6);
- { Правые прямоугольники }
- s := 0;
- for i := 1 to n do
- s += f(a + i * step) * step;
- writeln('А(правая)>> ', s:0:6);
- writeln;
- { Трапеции }
- s := 0;
- fA := f(a);
- for i := 1 to n do begin
- fB := f(a + step*i);
- s += (fA + fB) / 2 * step;
- fA := fB;
- end;
- writeln('Б>> ', s:0:6);
- writeln;
- { Симпсон }
- s := 0;
- fA := f(a);
- for i := 1 to n do begin
- fMid := f(a + step*(i - 0.5));
- fB := f(a + step*i);
- s += (step/6)*(fA + fMid*4 + fB);
- fA := fB;
- end;
- writeln('В>> ', s:0:6);
- writeln;
- { Средние прямоугольники }
- s := 0;
- for i := 0 to n - 1 do
- s += f(a + (i + 0.5) * step) * step;
- writeln('Г>> ', s:0:6);
- writeln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement