Помогите сделать эту работу, прошу. Очень срочно надо! На Pascal

Pascal, Delphi, Lazarus
#1

1)Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда, на интервале от Хнач до Хкон с шагом dX и точностью E. Таблицу снабдить заголовком и названием. Строка таблицы должна содержать значение аргумента, значение функции и количество просуммированных членов.

2)Разработать структурную схему алгоритма решения задачи

3)Написать программу и выполнить ее отладку

4)Выполнить вычисления для трех различных значений точности.

Снимок

#2

Так а проблема в чем именно? Что пробовали? Что не получается?

#3

Я в принципи не знаю как это делать, я был бы очень благодарен если бы вы сделали

#4

Ну так пробуйте что-то делать, читать учебник по Паскалю.

Например, можно начать с ввода входных значений (Xнач, Xкон, dX) из консоли, написания цикла с этими значениями, попыток вычислить какую-то часть выражения.

Ну а когда начнете что-то делать, то и конкретные вопросы появятся.
А хороший вопрос — это уже часть ответа :slight_smile:

#5

Мне нужно сдать работу уже в ближайшее время, и у меня попросту нет времени на обучение. Помогите пожалуйста

#6 
uses crt;
const eps = 1e-4;

var x,s,y : real;
    i:integer;
    f:boolean;
function fact(a: real):real;
begin
   if (a<=1) then
      a:=1
   else
       a:=a*fact(a-1);
   fact := a;
end;

begin
     clrscr;
     write('x = ');readln(x);
     i := 2;
     s := 1;
     f := false;
     y := 0;
     while exp(i*ln(x))/fact(i) > eps do
     begin
          y :=  exp(i*ln(x))/fact(i);
          if not f then y:=-y;
          s := s + y;
          f := not(f);
          i := i + 2
     end;
     writeln('X=',x:4:2,' S=',s:4:2,' K=',(i div 2)+1);
     readln;
end.

вроде как-то так должно быть

#7

зачем там логарифм? да и факториал не зачем высчитывать каждый раз. тут рекуррентная зависимость последующего члена ряда от предыдущего:

s(0) = 1
s(n+1) = -s(n)*x*x/(2*n+1)/(2*n+2)

тот s(n+1) и оценивать, по модулю само собой

#8

Ввода интервала нет :thinking:

И вывод таблицы автору придется самому дописать )

можно выкинуть и тогда не нужен crt, который не во всех Паскалях есть.

#9

Ну да, косяк, и шаг не тот. Да лан, не мне сдавать :slight_smile: а crt нужный модуль, очень уважаемый был в мое время-время классического Turbo Pascal, а не современных приблуд.

Как же без логарифма в степень поднимать-то? Помнить n-1?не в учебной задачи которую спрашивают на форумах

#10

Зачем? Просто на каждом шаге домножать числитель на x*x

Кстати, судя по задаче, автор ещё не проходил подпрограммы. Так что, такой под у автора не примут