graph

[aleks15]

пожалуйста если у кого есть по этой теме какие ни то материалы выложите и если не трудно пару примеров написания прог на эту тему

[Arigato]

В хэлпе Turbo Pascal есть куча примеров.

[aleks15]

скажите что не так сделано плиз

uses graph;
var
gd,gm:integer;
begin
gd:=vga;
gm:=vgahi;
initgraph(gd,gm,'');
if graphresult=grok then
begin
line(0,0,639,479);
readln;
closegraph;
end;
end.

у меня вылетает и все ни какой я линии не вижу что делать

[_-Re@l-_]

Ну вот...

Uses Graph;
Var
     gd,gm:Integer;
Begin
        gd:=Detect; //автоопределение
        InitGraph(gd,gm,'путь к папке BGI'); //например, 'C:\BP\BGI\'
        If graphResult = grOk Then
        Begin
                Line(0,0,640,480);
                Readln;
                CloseGraph;
        End;
End.

[aleks15]

спасибо блин а в учебнике не написано что надо путь указыватьa detect лучше значит подходит да

_-Re@l-_все равно вылетает мож с паскалем че у тебя есть нормальный рабочий проверенный

[aleks15]

блин люди помогите говорите что знаете почему у меня вылетает вообще не пойму вроде все сделал как тут говорилось

[Niro]

Вариант от _-Re@l-_ рабочий, я проверил, только вместо

путь к папке BGI

вставьте свой путь к bgi, например у меня он такой 'c:\tp\bgi'

[aleks15]

да я так и сделал ни какого толку

[aleks15]

Niro может кинете свой паскаль

[Niro]

держите, просто распакуйте архив в корень диска