Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Теоретические вопросы _ Не получается вывести графику на паскале
Автор: Verof 1.07.2010 15:25
Написал простую программу для вывода графики, запускаю , компиллятор переходит в полноэкранный режим с отображением кода, а вывода графики нету , сообщений об ошибках тоже, Что делать , помогите , плиз
Код
program first;
uses Graph;
var
grDriver, grMode, ErrCode, res:Integer;
begin
grDriver :=detect;
Initgraph(grDriver, grMode, ' c:\tp7\bgi' );
ErrCode:=graphResult;
if ErrCode= grOk then
begin
line(20,20,80,80);
end;
CloseGraph;
end.
uses Graph;
var
grDriver, grMode, ErrCode, res:Integer;
begin
grDriver :=detect;
Initgraph(grDriver, grMode, ' c:\tp7\bgi' );
ErrCode:=graphResult;
if ErrCode= grOk then
begin
line(20,20,80,80);
end;
CloseGraph;
end.
Автор: Lapp 1.07.2010 15:51
вставь задержку перед CloseGraph. Например, ReadLn.
И скажи - какая у тебя система?
Автор: Verof 1.07.2010 18:46
Цитата(Lapp @ 1.07.2010 11:51) 
вставь задержку перед CloseGraph. Например, ReadLn.
И скажи - какая у тебя система?
Я сделал readln и все получилось Спасибо !
Система xp sp3