!!!!!!!!!!!!!ПОМОГИТЕ С ГРАФИКОЙ В ПАСКАЛЕ!!!!!!!!!!!!

[Medved]

ой я просто перепутал а так я знаю што надо писать uses Graph;

uses Graph,Crt;
А без црт у тебя рэндом не прокатит

[Vovchik]

та ето я тоже знаю, воопше я тока начелизучять граф и што самое смешное то, что я на уроке на писал программу и она заработала а дома она не запускаеца ((((
поетому я заватра посмотрю в Коледже что там у меня не так, и завтра скожу !!!!!!!!

[Medved]

Почитай предыдущие сообщения
ПРО
halt(1)
GraphMode;
И призадумайся- а какой, если не чёрный экран должна прога выдавать?

[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.

Запустите, результат отпишите

[BBB]

И либо я чё-та не допираю (более вероятно) либо у халт нет параметров

У 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.

[r3almaster]

Перед end. напиши readln;

[Medved]

grDriver := Detect; InitGraph(grDriver, grMode,'');

ХОТЬ КТО НИБУДЬ МЕНЯ СЛЫШАЛ (верней, читал)?
Неужели в граф мод можно не писать?
grDriver := Detect;
grMode := 4;
InitGraph(grDriver, grMode,'');

[MOTOCoder]

Строго говоря(если не обращать внимания на рекомендацию "инициализировать надо все") то grDriver и grMode можно вообще не инициализировать. Тогда в них будут нули, а это то же самое, что и Detect. В итоге(с драйвером EGAVGA.BGI во всяком случае) получим режим 640x480x16 .

[Medved]

Но некоторые переменные при запуске могут получить рэндомное значение. Классно выйдет-
InitGraph(234675,762154,'');
:\

[Serge_Bliznykov]

Но некоторые переменные при запуске могут получить рэндомное значение.

формально Вы правы - могут. Практически - нет. Борланд всегда неофициально заявлял, что иницилизация переменных - недокументированная фича Паскаля (и Дельфи, кстати) и в любой момент может быть отменена. Однако работает ;-))
Более того, вот же пример, который приводит сам Borland Pascal 7.0 (из хелпа)

Код: Выделить всё

 uses Graph;

var
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;