Постройте таблицу и вычислите сумму значений функции y=f(x)

@Farty4k · Регистрация: 24.04.2017

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

Постройте таблицу и вычислите сумму значений функции y=f(x) при y>0 при изменении x на отрезке [a,b] с шагом h.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?y=cos8x/\sqrt{1+10x}$
Отрезок: $https://www.cyberforum.ru/cgi-bin/latex.cgi?[0;\pi ]$ ,шаг: $https://www.cyberforum.ru/cgi-bin/latex.cgi?h=\pi /8$
Помогите с кодом.
Не понимаю просто.

@Puporev · 25.04.2017, 10:31

Pascal

procedure TForm1.FormCreate(Sender: TObject);
begin
  with StringGrid1 do
   begin
     fixedrows:=1;
     fixedcols:=0;
     rowcount:=2;
     colcount:=2;
     cells[0,0]:='X';
     cells[1,0]:='Y';
   end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var xn,xk,h,x,y,s:real;
    k:byte;
begin
xn:=0;
xk:=pi;
h:=pi/8;
x:=xn;
k:=0;
s:=0;
while x<=xk do
 begin
   y:=cos(8*x)/sqrt(1+10*x);
   if y>0 then s:=s+y;
   inc(k);
   StringGrid1.cells[0,k]:=formatfloat('0.00',x);
   StringGrid1.cells[1,k]:=formatfloat('0.000',y);
   if x<xk then StringGrid1.rowcount:=StringGrid1.rowcount+1;
   x:=x+h;
 end;
Label1.Caption:='Сумма положительных значений='+formatfloat('0.000',s);  ;
end;

@Farty4k 0 / 0 / 0 Регистрация: 24.04.2017 Сообщений: 3
		1
	Постройте таблицу и вычислите сумму значений функции y=f(x) 25.04.2017, 09:26. Показов 1090. Ответов 1 Метки нет (Все метки) Постройте таблицу и вычислите сумму значений функции y=f(x) при y>0 при изменении x на отрезке [a,b] с шагом h. $https://www.cyberforum.ru/cgi-bin/latex.cgi?y=cos8x/\sqrt{1+10x}$ Отрезок: $https://www.cyberforum.ru/cgi-bin/latex.cgi?[0;\pi ]$ ,шаг: $https://www.cyberforum.ru/cgi-bin/latex.cgi?h=\pi /8$ Помогите с кодом. Не понимаю просто. 0

	25.04.2017, 10:31