Протабулировать функцию и вычислить сумму определённых значений функции по условию

@Gybert · Регистрация: 13.05.2016

Author24 — интернет-сервис помощи студентам

Методические требования к выполнению контрольного задания:
- При выполнении заданий решить задачу одного из следующих типов:
табуляция (получить таблицу значений функции y=f(x) при изменении х на
отрезке [a;b] с шагом h)или сумма или произведение (вычислить сумму или
произведение значений функции y=f(x), удовлетворяющих заданным
ограничениям, при изменении х на отрезке [a;b] с шагом h );
- Объявить в программе тип используемых переменных (целый или
вещественный) в соответствии с содержанием задачи. Использовать
вещественные переменные с одинарной точностью;
- Использовать в качестве параметра цикла переменную целого типа (счётчик
числа повторений цикла);
- Во всех вариантах заданий вывести значения аргумента и функции в виде
таблицы с заголовком столбцов.
Сделать в консольном режиме.

Тип задачи и ограничения	Функция	Отрезок	Шаг
Сумма y>0	$https://www.cyberforum.ru/cgi-bin/latex.cgi?y=\frac{1}{x+2\pi}-\sin x$	[-π, π]	π/8

@Puporev · 15.05.2016, 10:04

Delphi

const xn=-pi;//данные по условию задачи
      xk=pi;
      dx=pi/8;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function f(x:real):real; //функция по условию задачи
begin
f:=1/(x+2*pi)-sin(x)
 
end;
//кладем на форму компоненты StringGrid с вкладки Additional
// и Button с вкладки Standart
//кликакем 2 раза по кнопке, получаем заготоыку этого кода
//вставляем в нее то что здесь написано
procedure TForm1.Button1Click(Sender: TObject);
var x:real;
    k,n:integer;
begin
n:=round((xk-xn)/dx)+1;//количество итераций
with StringGrid1 do //установим основные свойства таблицы
 begin
  colcount:=2;//количество столбцов
  rowcount:=1+n;//количество строк
  cells[0,0]:='x';//заголовок
  cells[1,0]:='y';
 end;
for k:=1 to n do//собственно табулирование
 begin
  x:=xn+(k-1)*dx;//наращиваем х, кроме первого
  with StringGrid1 do//пишем в таблицу
   begin
    cells[0,k]:=FloatToStrF(x,ffFixed,5,2);//значение аргумента
    cells[1,k]:=FloatToStrF(f(x),ffFixed,8,4);//значение функции
    end;
 end;
end;

	15.05.2016, 10:04

Протабулировать функцию и вычислить сумму определённых значений функции по условию

Решение