Задана некоторая функция и некоторый ряд. Требуется получить таблицу значений данной функции y и суммы - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Задана некоторая функция и некоторый ряд. Требуется получить таблицу значений данной функции y и суммы (S) на заданном отрезке [a, b] Функция: Ряд: Интервал: [
π
/10;
π
/2] Шаг: h =
π
/20 Количество членов ряда, входящих в сумму: n = 55

Решение задачи: «Задана некоторая функция и некоторый ряд. Требуется получить таблицу значений данной функции y и суммы»

textual
Листинг программы
uses crt;
const a=pi/10;
      b=pi/2;
      h=pi/20;
      n=55;
var x,s,t,f:real;
    i:integer;
begin
clrscr;
writeln('-----------------------------');
writeln('|   X   |    S    |    F    |');
writeln('-----------------------------');
x:=a;
while x<=b+h/2 do
 begin
  s:=0;
  t:=1;
  for i:=1 to n do
   begin
    t:=-t;
    s:=s+t*cos(i*x)/(i*i);
   end;
  f:=(x*x-pi*pi/3)/4;
  writeln('|',x:6:1,' |',s:8:4,' |',f:8:4,' |');
  x:=x+h;
 end;
writeln('------------------------------');
readln
end.

Объяснение кода листинга программы

  1. Объявлены константы a, b, h, n, а также переменные x, s, t, f типа real и переменная i типа integer.
  2. Задана постановка задачи: требуется получить таблицу значений функции y и суммы.
  3. Запуск программы начинается с вызова функции clrscr, которая очищает экран.
  4. С помощью функции writeln выводится заголовок таблицы значений функции y и суммы.
  5. Инициализируется переменная x значением a.
  6. Запускается цикл while, который выполняется до тех пор, пока значение x не станет больше b+h/2.
  7. Внутри цикла инициализируются переменные s и t значением 0 и 1 соответственно.
  8. Запускается вложенный цикл for, который выполняется от 1 до n.
  9. Внутри вложенного цикла значение t инвертируется.
  10. К значению s прибавляется значение tcos(ix)/(i*i).
  11. Вычисляется значение f по формуле (xx-pipi/3)/4.
  12. С помощью функции writeln выводится строка с значениями x, s и f.
  13. Значение x увеличивается на h.
  14. После завершения цикла while выводится горизонтальная линия с помощью функции writeln.
  15. Запускается функция readln для ожидания нажатия клавиши.
  16. Программа завершается.

Оцени полезность:

15   голосов , оценка 4 из 5
Похожие ответы