Вычислить и вывести на экран в виде таблицы значения функции - Pascal ABC (12855)
Формулировка задачи:
Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда, на интервале от ХНАЧ до ХКОН с шагом dХ и точностью. Таблицу снабдить заголовком и шапкой. Строка таблицы должна содержать значение аргумента, значение функции и количество просуммированных членов ряда.
Решение задачи: «Вычислить и вывести на экран в виде таблицы значения функции»
textual
Листинг программы
const eps=0.0001; var x_nach,x_kon,x,s,delta_x,t:real; n:integer; begin write('Введите начало интервала x_nach<-1 x_nach='); readln(x_nach); repeat write('Введите конец интервала, больше ',x_nach:0:1,' x_kon='); readln(x_kon); until x_kon>x_nach; repeat write('Введите шаг табуляции, меньше ',x_kon-x_nach:0:1,' delta_x='); readln(delta_x); until delta_x<x_kon-x_nach; clrscr; x:=x_nach; writeln(' Табулирование функции F(x)=e^x,'); writeln(' представленной разложением в степенной ряд'); writeln(' на интервале ',x_nach:0:1,'..',x_kon:0:1,' с шагом ',delta_x:0:1); writeln; writeln(' -----------------------------------'); writeln(' | X | S | e^x | n | '); writeln(' -----------------------------------'); while x<=x_kon+delta_x/2 do begin n:=0; t:=1;{текущий член ряда x^n/n!} s:=t;{сумма} while abs(t)>=eps do begin n:=n+1; t:=t*x/n; s:=s+t; end; writeln(' |',x:6:1,' |',s:8:4,' |',exp(x):8:4,' | ',n:4,'|'); x:=x+delta_x; end; writeln(' -----------------------------------'); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д