Транслировать код Turbo Pascal на Visual Basic - VB (171144)

{$N+}
 {$E+}
Uses Graph,crt;
 
function F(x: double): double;
begin
  F := x * x * x * sin(x)
end;
 
function IntegralSimps(const a, b, Epsilon: double): double;
var
  i, n: Integer;
  h, s, s1, s2, s3: Double;
  x: Double;
begin
  s2 := 1;
  h := b - a;
  s := F(a) + F(b);
  repeat
    s3 := s2;
    h := h / 2;
    s1 := 0;
    x := a + h;
    repeat
      s1 := s1 + 2 * F(x);
      x := x + 2 * h;
    until not (x < b);
    s := s + s1;
    s2 := (s + s1) * h / 3;
    x := Abs(s3 - s2) / 15;
  until  not (x > Epsilon);
  IntegralSimps := s2;
end;
 
const
 { настройки графика}
 shag=0.0001;{ <-- Шаг изменения X }
 lgr = 0;{ <-- Начальное значение X}
 pgr = 1.57;{ <-- Конечное значение X }
 zcrtX=320;{ <-- Координата X центра экрана }
 zcrty=240;{ <-- Координата Y центра экрана }
 mtrX=50;{ <-- Коэффициент масштабирования по оси X }
 mtrY=50;{ <-- Коэффициент масштабирования по оси Y }
 
Var grDriver : Integer;
      grMode : Integer;
 
    x,y:Double;
    i:integer;
 
nx,ny:integer;
    mx,my:real;
    s:string;
Begin
{вычисляем интеграл и выводим на экран результат}
writeln('Rezultat rascheta integrala po metodu Simpsona = ', IntegralSimps(0, 3.14 / 2, 0.001):3:4);
 
writeln('Nazhmite ljubuju klavishu dlja vyvoda grafika..');
readkey;
 
{инициализация графики}
 
 grDriver:=0;
 InitGraph(grDriver, grMode, '');
 
setfillstyle(1,15);
bar(0,0,getmaxX,getmaxY);
 
{рисуем оси}
setcolor(0);
setlinestyle(0,0,3);
{ось x}
line(10,242,getmaxX-20,242);
line(610,237,getmaxX-20,242);
line(610,247,getmaxX-20,242);
outtextXY(getmaxX-20,250,'X');
{ось y}
line(320,10,320,getmaxy-10);
line(320,10,315,20);
line(320,10,325,20);
outtextXY(305,10,'Y');
 
{строим график}
 x:=lgr;
 while x<=pgr do
 begin
  y:=F(x);
  putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),0);
  x:=x+shag;
 end;
 
 readkey;
 closegraph;
end.