Разработать программу табулирования функции

[Olejas]

Программирование циклических процедур. Табулирования функции на заданном интервале.
Разработать программу табулирования функции, вывести ее значение в компоненту Memo. Разработать три варианта вычисления с использованием трех видов циклов, для контроля подсчитать сумму значений функций. Значение интервала и шага табуляции ввести в компоненту StringGrid. Знак '^' означает 'в степени'.
Вывод в компоненту Memo должен быть в виде опрятной таблицы (как в консольном режиме). Пример программы для y = x ^ 2 прилагается (только исполняемый файл).
3. y = (Sin ^ 2x + 0.5) ^ 0.5; интервал: отрезок [0,0.2], шаг 0.025.
нужно срочно)

[puporev]

Как в консоли...

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}
function F(x:real):real;
begin
result:=sqrt(sqr(sin(x)+0.5));
end;
const xn=0;
      xk=0.2;
      h=0.025;

procedure TForm1.Button1Click(Sender: TObject);
var x,y,s:real;
    n,i:integer;
begin
Memo1.Lines.Add('----------------------');
Memo1.Lines.Add('| N |    X    |   F(x)  |');
Memo1.Lines.Add('----------------------');
n:=round((xk-xn)/h)+1;
s:=0;
for i:=1 to n do
 begin
  x:=xn+h*(i-1);
  y:=f(x);
  s:=s+y;
  Memo1.Lines.Add('| '+IntToStr(i)+' | '+FloatToStrF(x,fffixed,5,3)+
                   ' | '+FloatToStrF(y,fffixed,5,3)+' | ');
 end;
Memo1.Lines.Add('----------------------');
Memo1.Lines.Add('Сумма:     '+FloatToStrF(s,fffixed,5,3));
//цикл while
Memo2.Lines.Add('----------------------');
Memo2.Lines.Add('| N |    X    |   F(x)  |');
Memo2.Lines.Add('----------------------');
s:=0;
x:=xn;
n:=0;
while x<xk+h/2 do
 begin
  n:=n+1;
  y:=f(x);
  s:=s+y;
  Memo2.Lines.Add('| '+IntToStr(n)+' | '+FloatToStrF(x,fffixed,5,3)+
                   ' | '+FloatToStrF(y,fffixed,5,3)+' | ');
  x:=x+h;
 end;
Memo2.Lines.Add('----------------------');
Memo2.Lines.Add('Сумма:     '+FloatToStrF(s,fffixed,5,3));
//цикл repeat
Memo3.Lines.Add('----------------------');
Memo3.Lines.Add('| N |    X    |   F(x)  |');
Memo3.Lines.Add('----------------------');
s:=0;
x:=xn;
n:=0;
repeat
  n:=n+1;
  y:=f(x);
  s:=s+y;
  Memo3.Lines.Add('| '+IntToStr(n)+' | '+FloatToStrF(x,fffixed,5,3)+
                   ' | '+FloatToStrF(y,fffixed,5,3)+' | ');
  x:=x+h;
until x>xk+h/2;
Memo3.Lines.Add('----------------------');
Memo3.Lines.Add('Сумма:     '+FloatToStrF(s,fffixed,5,3));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Font.Name:='Courir New';
Memo2.Font.Name:='Courir New';
Memo3.Font.Name:='Courir New';
end;

end.