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

Точность вычислений

X

real

Аргумент функции

integral1

real

Значение интеграла при n разбиений

integral2

real

Значение интеграла при 2n разбиений

1.5 Схема алгоритма.

1.6 Текст программы.

PROGRAM KKP2_1_DUB3;

USES CRT;

var

A, B, C, E, ABS_Integral:real;

PROCEDURE ENTER_DATA(VAR PR_1, PR_2, P_PAR,POGR_PRO:REAL);

BEGIN

ClrScr;

Writeln ('Программа для нахождения значения интеграла на определенном промежутке');

Writeln;

writeln('Введите границы интервала [A,B],причем (A<B),число C (0<C<1) и точность E (E>0): ');

writeln;

REPEAT

BEGIN

writeln('Число C: '); readln(P_PAR);

if not (P_PAR>0) then

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

ELSE IF NOT (P_PAR<1) THEN

WRITELN('C должно быть меньше 1!. Повторите ввод.');

END;