Прветствую вас в этой теме. Сам я новичок, поэтому у меня появилось достаточно много вопросов в написании
программ.Буду рад предоставить себе и другим людям возможность ответить и получить ответы через этот форум . С уважением к каждому.
Левон Григорян.
В данный момент у меня есть один вопрос:почему нормально не работает эта прога:
uses Crt, Graph ;
var
grdr, grmd :integer;
begin
grdr:=Detect;
InitGraph(grdr,grmd,'тут адрес нужного графичесого файла');
OutText('This is graph mode');
Delay(9999);
end.
смотря что ты понимаешь под "нормально не работает"
попробуй так
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.