Страница 3 из 6
Re: !!!!!!!!!!!!!ПОМОГИТЕ С ГРАФИКОЙ В ПАСКАЛЕ!!!!!!!!!!!!
Добавлено: 03 мар 2008, 22:10
Medved
" писал(а):ой я просто перепутал а так я знаю што надо писать uses Graph;
uses Graph,Crt;
А без црт у тебя рэндом не прокатит
Re: !!!!!!!!!!!!!ПОМОГИТЕ С ГРАФИКОЙ В ПАСКАЛЕ!!!!!!!!!!!!
Добавлено: 03 мар 2008, 22:13
Vovchik
та ето я тоже знаю, воопше я тока начелизучять граф и што самое смешное то, что я на уроке на писал программу и она заработала а дома она не запускаеца ((((
поетому я заватра посмотрю в Коледже что там у меня не так, и завтра скожу !!!!!!!!
Re: !!!!!!!!!!!!!ПОМОГИТЕ С ГРАФИКОЙ В ПАСКАЛЕ!!!!!!!!!!!!
Добавлено: 03 мар 2008, 22:14
Medved
Почитай предыдущие сообщения
ПРО
halt(1)
GraphMode;
И призадумайся- а какой, если не чёрный экран должна прога выдавать?
Re: !!!!!!!!!!!!!ПОМОГИТЕ С ГРАФИКОЙ В ПАСКАЛЕ!!!!!!!!!!!!
Добавлено: 04 мар 2008, 09:29
airyashov
Код: Выделить всё
uses Graph;
var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'');
ErrCode := GraphResult;
if ErrCode = grOk then
begin { Do graphics }
Line(0, 0, GetMaxX, GetMaxY);
Readln;
CloseGraph;
end
else
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.
Запустите, результат отпишите
Halt: с параметром и без.
Добавлено: 04 мар 2008, 10:27
BBB
Medved писал(а):И либо я чё-та не допираю (более вероятно) либо у халт нет параметров
У
Halt есть опциональный параметр.
Код: Выделить всё
Declaration:
procedure Halt [ ( Exitcode: Word ) ];
where:
Exitcode is an optional expression that specifies the exit code of your
program.
Remarks:
Initiates execution of any Exit procedures. The exit code can be examined by
a parent process using DosExitCode in the Dos unit, or through an ERRORLEVEL
test in a DOS batch file.
Re: !!!!!!!!!!!!!ПОМОГИТЕ С ГРАФИКОЙ В ПАСКАЛЕ!!!!!!!!!!!!
Добавлено: 04 мар 2008, 12:20
r3almaster
Перед end. напиши readln;
Re: !!!!!!!!!!!!!ПОМОГИТЕ С ГРАФИКОЙ В ПАСКАЛЕ!!!!!!!!!!!!
Добавлено: 04 мар 2008, 20:15
Medved
" писал(а):grDriver := Detect; InitGraph(grDriver, grMode,'');
ХОТЬ КТО НИБУДЬ МЕНЯ СЛЫШАЛ (верней, читал)?
Неужели в граф мод можно не писать?
grDriver := Detect;
grMode := 4;
InitGraph(grDriver, grMode,'');
Re: !!!!!!!!!!!!!ПОМОГИТЕ С ГРАФИКОЙ В ПАСКАЛЕ!!!!!!!!!!!!
Добавлено: 04 мар 2008, 20:36
MOTOCoder
Строго говоря(если не обращать внимания на рекомендацию "инициализировать надо все") то grDriver и grMode можно вообще не инициализировать. Тогда в них будут нули, а это то же самое, что и Detect. В итоге(с драйвером EGAVGA.BGI во всяком случае) получим режим 640x480x16 .
Re: !!!!!!!!!!!!!ПОМОГИТЕ С ГРАФИКОЙ В ПАСКАЛЕ!!!!!!!!!!!!
Добавлено: 04 мар 2008, 20:48
Medved
Но некоторые переменные при запуске могут получить рэндомное значение. Классно выйдет-
InitGraph(234675,762154,'');
:\
Re: !!!!!!!!!!!!!ПОМОГИТЕ С ГРАФИКОЙ В ПАСКАЛЕ!!!!!!!!!!!!
Добавлено: 04 мар 2008, 23:51
Serge_Bliznykov
" писал(а):Но некоторые переменные при запуске могут получить рэндомное значение.
формально Вы правы - могут. Практически - нет. Борланд всегда неофициально заявлял, что иницилизация переменных - недокументированная фича Паскаля (и Дельфи, кстати) и в любой момент может быть отменена. Однако работает ;-))
Более того, вот же пример, который приводит сам Borland Pascal 7.0 (из хелпа)
Код: Выделить всё
uses Graph;
var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'');
ErrCode := GraphResult;