паскаль abc

[кириллюк]

помогите,пожалуйста переделать программу,которая идет в турбо паскале так,что она шла в abc:

uses graph;
var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
  X,Y1,Y2,Y3,h:real;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'');
ErrCode :=GraphResult;
ifErrCode = grOk then
begin
h := 0.002;
X := -Pi;
while X<=4*Pi do begin
Y1 :=2-cos(X);
PutPixel(trunc(round(X*50)), trunc(round(Y1*50+50)), 5 );
Y2 := x*x*x*exp(-abs(x));
PutPixel(trunc(round(50*X)), trunc(round(50*Y2+50)), 4 );
Y3 := Y2/Y1;
PutPixel(trunc(round(50*X)), trunc(round(50*Y3+50)), 3 );
X := X + h;
end;
Readln;
CloseGraph;
end else Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.

[Serge_Bliznykov]

тоже мне, "бином Ньютона"...
в данном случае исправить Graph на GraphABC и выкинуть всё, что связано с иницилизацией графики (и обработкой ошибок этой иницилизации).
и всё.

uses graphABC;
var
  X, Y1, Y2, Y3, h: real;
begin
  h := 0.002;
  X := -Pi;
  while X <= 4 * Pi do begin
    Y1 := 2 - cos(X);
    PutPixel(trunc(round(X * 50)), trunc(round(Y1 * 50 + 50)), 5);
    Y2 := x * x * x * exp(-abs(x));
    PutPixel(trunc(round(50 * X)), trunc(round(50 * Y2 + 50)), 4);
    Y3 := Y2 / Y1;
    PutPixel(trunc(round(50 * X)), trunc(round(50 * Y3 + 50)), 3);
    X := X + h;
  end;
  Readln;
end.

[кириллюк]

Сообщение от Serge_Bliznykov

тоже мне, "бином Ньютона"...
в данном случае исправить Graph на GraphABC и выкинуть всё, что связано с иницилизацией графики (и обработкой ошибок этой иницилизации).
и всё.

uses graphABC;
var
  X, Y1, Y2, Y3, h: real;
begin
  h := 0.002;
  X := -Pi;
  while X <= 4 * Pi do begin
    Y1 := 2 - cos(X);
    PutPixel(trunc(round(X * 50)), trunc(round(Y1 * 50 + 50)), 5);
    Y2 := x * x * x * exp(-abs(x));
    PutPixel(trunc(round(50 * X)), trunc(round(50 * Y2 + 50)), 4);
    Y3 := Y2 / Y1;
    PutPixel(trunc(round(50 * X)), trunc(round(50 * Y3 + 50)), 3);
    X := X + h;
  end;
  Readln;
end.

спасибо большое,я пытался сам разобраться,но я так не могу,мне нужно,чтобы кто-нибудь объяснил

[puporev]

Еще нужно заменить численные константы цветов заменить и убрать readln.

 while X <= 4 * Pi do begin
    Y1 := 2 - cos(X);
    PutPixel(trunc(round(X * 50)), trunc(round(Y1 * 50 + 50)), clPurple);
    Y2 := x * x * x * exp(-abs(x));
    PutPixel(trunc(round(50 * X)), trunc(round(50 * Y2 + 50)), clRed);
    Y3 := Y2 / Y1;
    PutPixel(trunc(round(50 * X)), trunc(round(50 * Y3 + 50)), clSkyBlue);
    X := X + h;
  end;

[puporev]

По хорошему еще заменить PutPixel на SetPixel