Составьте программу вычисления значений функции на заданном интервале [x0,x1] с шагом dx

@Malodushniy · Регистрация: 14.06.2018

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

Составьте программу вычисления значений функции на заданном интервале [x0,x1] с шагом dx. Значения x0,x1, и dx задать с клавиатуры. Построить график функции x^2+4sinx

@Puporev · 22.12.2018, 18:58

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var x1,x2,x,dx,f:double;
    k:integer;
begin
x1:=strtofloat(Edit1.Text);
x2:=strtofloat(Edit2.Text);
dx:=strtofloat(Edit3.Text);
k:=0;
with StringGrid1 do
 begin
  cells[0,0]:='X';
  cells[1,0]:='F(x)';
  x:=x1;
  while x<=x2 do
   begin
    f:=x*x+4*sin(x);
    inc(k);
    RowCount:=k;
    cells[0,k]:=formatfloat('0.00',x);
    cells[1,k]:=formatfloat('0.00',f);
    x:=x+dx;
   end;
  end;
x:=x1;
while x<=x2 do
 begin
  series1.AddXY(x,x*x+4*sin(x),'',clRed);
  x:=x+0.001;
 end;
end;

@Malodushniy 0 / 0 / 0 Регистрация: 14.06.2018 Сообщений: 8
		1
	Delphi 6-7 Составьте программу вычисления значений функции на заданном интервале [x0,x1] с шагом dx 22.12.2018, 17:08. Показов 955. Ответов 1 Метки нет (Все метки) Составьте программу вычисления значений функции на заданном интервале [x0,x1] с шагом dx. Значения x0,x1, и dx задать с клавиатуры. Построить график функции x^2+4sinx 0

Опции темы