[rustorkan]

Табулирование функции.

[rustorkan]

Как-то так.

Код:

procedure TForm1.N2Click(Sender: TObject);
var
x,y,h,a,b: real;
cod,kolichestvo: integer;
begin
Memo1.Lines. Add('X F(X)');
Val(Edit1.Text, a, cod);
Val(Edit2.Text, b, cod);
Val(Edit3.Text, h, cod);
kolichestvo:=0;
x:=a;
  while x<=b+h/2 do
  begin   
      y:=sin(x)+1;
      if (y > 0.5) AND (y < 1) then
           inc(kolichestvo);
      if CheckBox1.Checked then begin
           Memo1.Lines.Append(Format('%8.2f %8.3f',[x,y]));
      end;
      x:=x+h;
  end;
  Memo1.Lines.Append('Количество элементов от 0.5 до 1 =
'+IntToStr(kolichestvo));
end;
end.

[lmikle]

А чего спросить-то хотел?

[crazyman]

Сообщение от lmikle

А чего спросить-то хотел?

)))))))))))))))))))))))))))))))))))))

[rustorkan]

Уже нашел решение.
Долго здесь отвечают.