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

writeln(' ¦Номер¦ X ¦ f(x) ¦ Номер члена ряда ¦');

writeln(' ----------------------------------------------------------------------------------');

end;

procedure Table_end;

begin

writeln(' ----------------------------------------------------------------------------------');

end;

var

K,number:integer;

A,B,H,E,X,y,f:real;

begin

Writeln ('Программа предназначена для вычисления таблицы значений функции, ');

writeln ('заданной в виде разложения в ряд.');

Writeln;

{------------------------------------------------------------------------}

{Ввод данных}

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

writeln('и шаг изменения аргумента H (H>0)');

writeln;

repeat

begin

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

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

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

end;

until (A<B);

repeat

begin

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