delphi из консоли в форму

[Pinguin007]

как вот этот код переписать в форму:
program Project18;

{$APPTYPE CONSOLE}

uses
SysUtils,math;
var

a,b:real; { Границы отрезка }
r,r2:real; { Предыдущее и текущее приближенные значения интеграла}
n:integer; { Счетчик }
{ Интегрируемая функция }
function f(x:real):real;
begin
f:=3 * ln(x + 1) + sqrt(power(x+2, 3));
end;
{ Метод Симпсона }

function simpson(a,b:real;n:integer):real;
var
s:real; { Сумма }
h:real; { Шаг }
m:integer; { Счетчик }
mn:integer; { Очередной множитель }
begin
h:=(b-a)/(n-1); { Рассчитывается шаг }
s:=f(a)+f(b); { Начальное значение шага }
mn:=4; { Первый мнодитель - 4 }
{ Суммирование остальных элементов }
for m:=1 to n-2 do begin
s:=s+mn*f(a+h*m);
if (mn=4) then mn:=2 else mn:=4;{ Именение мноителя 2<>4 }
end;
simpson:=s*h/3; { Возвращается вычисленное значение }
end;

begin
{ TODO -oUser -cConsole Main : Insert code here }
write(' Введите A,B: ');
readln(a,b);
n:=3;
r:=simpson(a,b,n); { Начальное значение }
repeat
r2:=r; { Запоминается предыдущее значение }
n:=n+2; { Увеличивается количество шагов }
r:=simpson(a,b,n); { Рассчитывается новое значение }
until (abs(r-r2)<0.001);{ Повторяется до достижения необходимой
точности }
{ Вывод результатов }
writeln;
writeln(' Резльтат по методу Симпсона равен: ',r:6:3);
writeln(' для получения необходимой точности интервалбыл разбит на ');
writeln(n,' отрезков');
readln;
end.

[min@y™]

Книжку по delphi читал?
Конечно нет, я, что, идиот?
Есть же форум с программёрами!

[vlad1389]

Pinguin007 тут халявщиков не жалуют. Тебе зачёт надо сдать а нам какой интерес до твоего зачёта? Никакого. Можешь остальным так и передать.

[newerow1989]

uses Math;

var
 a,b:real;
 r,r2:real;
 n:integer;

function f(x:real):real;
begin
  f:=3 * ln(x + 1) + sqrt(power(x+2, 3));
end;

function simpson(a,b:real;n:integer):real;
var
 s:real;
 h:real;
 m:integer;
 mn:integer;
begin
 h:=(b-a)/(n-1);
 s:=f(a)+f(b);
 mn:=4;
 for m:=1 to n-2 do begin
 s:=s+mn*f(a+h*m);
 if (mn=4) then mn:=2 else mn:=4;
 end;
 simpson:=s*h/3;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 a:=StrToFloat(Edit1.Text);
 b:=StrToFloat(Edit2.Text);
 n:=3;
 r:=simpson(a,b,n);
 repeat
 r2:=r;
 n:=n+2;
 r:=simpson(a,b,n);
 until (abs(r-r2)<0.001);
 Label1.Caption:=' Резльтат по методу Симпсона равен: '+FloatToStr(r);
 Label2.Caption:=' для получения необходимой точности интервалбыл разбит на '+
    IntToStr(n)+' отрезков';
end;