Курсовая работа: Средства языка программирования Паскаль для решения математических задач

REPEAT

BEGIN

writeln('Начало интервала A: '); readln(PR_1);

writeln('Конец интервала B: '); readln(PR_2);

if not (PR_1<PR_2) then

writeln ('A должно быть меньше B !. Повторите ввод.');

END;

UNTIL (PR_1<PR_2);

REPEAT

BEGIN

writeln('Точность E: '); readln(POGR_PRO);

if not (POGR_PRO>0) then

writeln ('E должно быть больше 0 !. Повторите ввод.');

END;

UNTIL (POGR_PRO>0);

END;

FUNCTION integration(VAR GR_1,GR_2,F_PAR,POGR_FUNC:REAL):real;

VAR

INTEGRAL1, INTEGRAL2, X, H:REAL;

N:INTEGER;

READY:BOOLEAN;

begin

integral1:=0;

integral2:=0;

n:=1;

REPEAT

N:=N*2;

H:=(GR_2-GR_1)/N;

X:=GR_1;