Вычислить интеграл с использованием метода прямоугольника.

[caen21rus]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure N2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var a,b,h,c,s,f:integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
begin
Form1.Close
end;

procedure TForm1.Button1Click(Sender: TObject);
var s,x,y:real;
begin

a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
h:=StrToInt(Edit3.Text);
x:=a;
repeat
y:=x*sin(x);
S:=S+y-h;
x:=x+h;
until x>b;
Edit4.Text:=IntToStr(c)


end;

end.

Ответ всегда выдает 0

[Вавел из ГМТУ]

repeat
y:=x*sin(x);
S:=S+y-h;
x:=x+h;
until x>b;
Edit4.Text:=IntToStr(c) //??

Переменая "с" всегда будет равна нулю.....
Вы указали выводить не ту переменую.

Надо наверное: Edit4.Text:=IntToStr(S);

[caen21rus]

неидет вобще ошибку выдает

[quit]

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

неидет вобще ошибку выдает

Может быть не IntToStr, а FloatToStr!

Edit4.Text:=FloatToStr(s)