[cyber922]

Код:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x1,x2,N,i : integer;
m , a, h, y, x : real;
result : array [1.. 10] of real;
begin
a:=StrToFloat(Edit4.Text);
x:=x1;
// Вычисление шага функции
h:=(x2-x1)/N;

begin
Memo1.Lines.Add(FloatToStr(y));
x:=x+h;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var y,i,a,x,h:real;begin
begin
y:= sqrt(3*x+4*a*x)/10/a;
Memo1.Lines.Add(FloatToStr(y));
x:=x+h;
end;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Edit1Change(Sender: TObject);
Var x1:real;begin
x1:=StrToInt(Edit1.Text);
end;

procedure TForm1.Edit2Change(Sender: TObject); Var x2:real;begin
x2:=StrToInt(Edit2.Text);
end;

procedure TForm1.Edit3Change(Sender: TObject);
var h,N, x2,x1 :real;begin
N:=StrToInt(Edit3.Text);
h:=(x2-x1)/N;

end;
procedure TForm1.Edit4Change(Sender: TObject);
var a:real;begin
a:=StrToFloat(Edit4.Text);
end;



end.

Админ: Учимся пользоваться тегами правильно!

Посмотрите пожалуйста код по заданию, и исправьте если что не так, он вроде бы считает все но как мне кажется не правильно как то ..
вот задание....

Выполнить табулирование функции на отрезке от хнач до хкон с шагом
h=Хнач-Хкон/N. Величины хнач , хкон , число точек N и параметр a вводить из однострочных полей редактирования. При нажатии на кнопку «Вычислить» произвести вычисления в точках отрезка, отстоящих друг от друга на шаг h. Результаты вычислений занести в одномерный массив результатов. При нажатии на кнопку «Вывод f(x)» вывести значения массива результатов в многострочное редактируемое поле Memo. При нажатии на кнопку «Выход» завершить работу приложения. Произвести табулирование для фукции:Корень квадратный,в нем дробь(3x+4ax)\10a