Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Свободное общение _ Обсуждение Проблемм При Работе В Turbo Pascal

Автор: Г.Левон.А. 20.07.2007 20:51

Прветствую вас в этой теме. Сам я новичок, поэтому у меня появилось достаточно много вопросов в написании
программ.Буду рад предоставить себе и другим людям возможность ответить и получить ответы через этот форум . С уважением к каждому.
Левон Григорян.

Автор: Г.Левон.А. 20.07.2007 21:00

В данный момент у меня есть один вопрос:почему нормально не работает эта прога:

uses Crt, Graph ;
var
grdr, grmd :integer;
begin
grdr:=Detect;
InitGraph(grdr,grmd,'тут адрес нужного графичесого файла');
OutText('This is graph mode');
Delay(9999);
end.




Автор: мисс_граффити 20.07.2007 21:22

смотря что ты понимаешь под "нормально не работает" smile.gif

Автор: compiler 20.07.2007 22:03

попробуй так

uses Crt, Graph ;
function init:integer;
var
grDriver, grMode: integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode, '');
init := GraphResult;
end;
begin
if init = 0 then begin
OutText('This is graph mode');
Delay(1000);
CloseGraph;
end
else
writeln('Ups!..');
readln;
read;
end.