не работает!

[RECREATOR]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var:
x,y,i: real;
begin
y_min := 0; //sin(0)/(0+1)
for i := 0 to 100 do
begin
x := i / 10;
y := sin(x) / (x + 1);
if y < y_min then
begin
y_min := y;
x_min := x;
end;
end;

end.

Может кто знает в чем дело?

[Sibedir]

1. Зачем var:? Ведь надо просто var
2. Что за y_min и x_min? Откуда взялись?
3. Почему i: real;? Надо i: integer
4. Не хватает end;
5. Может так:

  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  y_min, x_min: Real;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  x,y: Real;
  i: Integer;
begin
  y_min := 0; //sin(0)/(0+1)
  for i := 0 to 100 do begin
    x := i / 10;
    y := sin(x) / (x + 1);
    if y < y_min then begin
      y_min := y;
      x_min := x;
    end;
  end;
end;

Я тоже чайник. Но за это 1-

[RECREATOR]

не компилится

[Sibedir]

Не может быть. Я это прям из редактора в Delphi скопировал.
Добавь к

var
Form1: TForm1;

строку

y_min, x_min: Real;

А

procedure TForm1.Button1Click(Sender: TObject);
var:
x,y,i: real;
begin
y_min := 0; //sin(0)/(0+1)
for i := 0 to 100 do
begin
x := i / 10;
y := sin(x) / (x + 1);
if y < y_min then
begin
y_min := y; 
x_min := x; 
end;
end;

замени на

procedure TForm1.Button1Click(Sender: TObject);   
var   
  x,y: Real;   
  i: Integer;   
begin   
  y_min := 0; //sin(0)/(0+1)   
  for i := 0 to 100 do begin   
    x := i / 10;   
    y := sin(x) / (x + 1);   
    if y < y_min then begin   
      y_min := y;   
      x_min := x;   
    end;   
  end;   
end;

[RECREATOR]

получилось))) Спасибо

Вообще задача такая: Найти наименьшее значение функции: y=sin(x)/(1+x)
и значение аргумента, при котором оно получено, если X изменяется от 0 до 10 с шагом 0,1. Для найденного x подсчитать сумму членов ряда: Z=1+x+x(в квадрате)/2!+...+x(в десятой степени)/10!+... Построить график y(x)


Вторую часть мне вот так объяснили : Ряд Z в общем виде записывается как сумма Ai, i от 0 до бесконечности, где Ai = (x^i)/(i!). Учитывая, что 0! = 1.
Первое, что надо сделать, это разделить Ai+1 на Ai, аналитически. То есть, разделить следующий член ряда на предыдущий. Получится разница. И далее просто взять начальное значение и в цикле умножить на эту разницу и сложть... Пока разница между суммой на предыдущем шаге и суммой на данном шаге не будет меньше половины e, где e - погрешность, маленькое положительное число (меньше 1).

[Sibedir]

Все так. По сути e - это необходимая точность расчета.

[Квэнди]

Закрыто
название темы
содержание вопроса, точне полное отсутсвие вопроса.