Перевод с Бейсика на Pascal

Кто может помочь,оч нужно

Code:

REM ГРАФИК ФУНКЦИИ
CLS
SCREEN 9
COLOR 2
h = .1
xnach = -5: xkon = 5
n = INT( (xkon – xnach) / h)
ymin = SIN(xnach) * xnach: xmin = xnach
ymax = SIN(xnach) * xnach: xmax = xnach
FOR x = xnach TO xkon STEP h
y = SIN(x) * x
IF y < ymin THEN ymin = y: xmin = x
IF y > ymax THEN ymax = y: xmax=x
NEXT x
PRINT “ymax=”; ymax
PRINT “ymin=”; ymin
mx = 600 / (xmax – ymin)
PRINT “mx=”; mx
PRINT “my=”; my
INPUT s
CLS
REM Рисование осей координат
LINE (10, 301)-(630, 301), 2
LINE (320, 10)-(320, 301), 2
LOCATE 22, 78: PRINT “>x”
LOCATE 1, 41: PRINT “^y”
COLOR 14: LOCATE 2, 10: PRINT “График функций”
REM Нанесение точек графика на координатную плоскость
FOR x = -5 TO 5 STEP /1
Y = SIN(x) * x
PSET (320 + (x * mx) /10, 300 – y*my), 4
NEXT x
END

 

А какую именно строчку у вас состовляет труда переписать?

 

Я в бэйсике 0 полный , не могу никакую кроме первых 3-4 )

 

я в qb тоже не смыслю сильно,ну получилось такое у меня,тут конечно подправлять надо много чего,ну может вечерком доделаю наверняка.

Code:

 uses Graph,crt;

var
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;
 ymin,ymax,xmin,xmax,mx,my,h,y,x,n:real;
  i ,xnach,xkon:integer;

  begin
  clrscr;
  textcolor(2);
  h:=0.1;
  xnach:=-5;
  xkon:=5;
  n:=int((xkon-xnach)/h);
  ymin:=sin(xnach)*xnach;
  xmin:=xnach;
  ymax:=sin(xnach)*xnach;
  xmax:=xnach;
  for i:= xnach to xkon do;
  y:=sin(x)*x;
  if y< ymin then ymin:=y;
  xmin:=x;
  if y>ymax then ymax:=y;
  xmax:=x;
  writeln('ymax=',ymax);
  writeln('ymin=',ymin);
  mx:=600 / (xmax-ymin);
  writeln('mx=',mx);
  writeln('my=',my);

  readln;
  end;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;
  if ErrCode = grOk then


   clrscr;


    Line(10, 301,630,301);
    line(320,10,320,301);
    OutTextXY(630,305,'x');
    OutTextXY(320,1,'y');

    for i:=-5 to 5 do
    y:=sin(x)*x;

    Readln;
    CloseGraph;
  end;

end.

с pset что то не очень понял,аналог походу putpixel, но может быть и нет,т.к. там параметров меньше.