bogdan-g, вот

Вот нашел исходник проги Pascal ABC постоянно выбивает ошибки. Не скажете в чеем дело, как по мне исходник рабочий:незнаю:

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. program NLO;
2.    uses crt, graph;
3.    const k=20;
4.    Pause=50;
5.    var gd, gm, xmin, xm, ymin, ym, x, y, tx, ty, rx, ry, size, i, dx, dy, width, height: integer;
6.          sauser:Pointer;
7. begin
8.    Randomize;
9.    gd:= detect;
10.    initgraph (gd, gm, 'путь к драйверу');
11.    SetTextStyle (0, 0, 2);
12.    OutTextXY (50, 10, 'Демонстрация движения НЛО'); {Рисуем НЛО}
13.    x:=R*5;
14.    y:=R*2;
15.    xm:=GetmaxX-5;
16.    ym:=GetmaxY-25;
17.    Ellipse(x, y, 0, 360, R, R div 3+2);
18.    Ellipse(x, y-4, 190, 357, R, R div 3);
19.    Line(x + 7, y - 6, x + 10, y - 12);
20.    Line(x - 7, y - 6, x + 10, y - 12);
21.    Circle(x + 10, y - 10, 2);
22.    Circle(x - 10, y - 10, 2);
23.    FloodFill(x+1, y+4, White); {определяем габариты НЛО и помещаем в специальную динамическую переменную}
24.    Tx:= x-R;
25.    Ty:=y-14;
26.    Rx:=x+R;
27.    Ry:=y+Rdiv3+3;
28.    Width:=Rx-Tx+1;
29.    Size:=ImageSize(Tx, Ty, Rx, Ry);
30.    GetMem(sauser, Size);
31.    GetImage(Tx, Ty, Rx, Ry, sauser^); {стираем построенное изображение}
32.    PutImage(Tx, Ty, sauser^, XorPut); {рисуем звездное небо}
33.    SetStyle (1, blue); {установить стиль и цвет закраски голубое небо}
34.    SetColor (White); {начертить прямоугольник и открыть окно}
35.    Rectangle (xmin, ymin, GetmaxX, GetmaxY);
36.    SetViewPort (xmin, ymin, GetmaxX, GetmaxY, ClipOn);
37.    FloodFill (xmin+1, ymin+1, White);
38.    For i:=1 to 500 do {нарисовать 500 звезд белого цвета}
39.       PutPixel(Random(GetmaxX),
40.       Random(GetmaxY- ymin), 15); {задаем начальное положение НЛО}
41.       x:=xm div 3-xmin;
42.       y:=ym div 3-ymin;
43.       dx:=6;
44.       dy:=6;
45.    Repeat {цикл: повторять, пока не нажата любая клавиша}
46.       PutImage (x, y, sauser^, XorPut); {изображаем объект}
47.       Delay (Pause);{задержка}
48.       PutImage(x, y, sauser^, XorPut); {после паузы стираем объект} {перемещаем объект}
49.       If (x<xmin) Or (y<ymin) Or (x+Width +1> xm) Or (y+Height +1> ym) Then
50.          begin {если объект смещается влево-вверх за границы окна, изменить координаты так, чтобы он оставался в окне}
51.             If (x- Dx< xmin) then x:= xmin else x := x- Dx;
52.             If (y- Dy< ymin) then y:= ymin else y := y- Dy;
53.             Dx:= GetmaxX div 10 - Random(GetmaxX div 4);
54.             Dy:= GetmaxY div 10 - Random(GetmaxY div 4);
55.          end
56.       else
57.          begin {если объект смещается вправо-вниз за границы окна, изменить координаты так, чтобы он оставался в окне}
58.             If (x + Dx< xm) then x:= x + Dx else x:= Random(GetmaxX) - Random(GetmaxX div 4);
59.             If (y + Dy< ym) then y:= y + Dy else y:= Random(GetmaxY) - Random(GetmaxY div 3);
60.          end;
61.    until KeyPressed; {завершить, как только будет нажата клавиша}
62.    FreeMem (sauser, Size);
63.    Closegraph;
64.    end;
65.    end.

Az@, Это ж исходники для турбо паскаля.

А разница?

Вроде язык один и тот же ведь

Тогда следует логичный вопрос: как реализовать графику в PascalABC.NET?

Az@, Весь исходник не смотрел, он попробуй для начала переименовать graph на graphABC и убрать initgraph, gd:=detect

Не прет. Пишет неизвестное имя 'detect'

Ща неизвестное имя 'SetTextStyle' тут походу затачивать всё конкрето нада

Az@, Вообще советую посмотреть, там наверху где-то на панельке есть раздел "примеры" и там достаточно много этих самых примеров, связанных с графиной,