Написал так:

Код

program Tiny; uses   Crt, Graph; var   x,y,c:  Integer;   ig : Integer;   igMode : Integer;   ErrCode : Integer; begin   ig := Detect;   InitGraph(ig, igMode, '');   ErrCode := GraphResult;   if ErrCode = grOk then begin     x:=random(640); y:=Random(480); c:=Random(15);     PutPixel(x, y, c);     CloseGraph;   end; else   Writeln('Ошибка инициализации графики'); end.

А программа пишет, что произошла Ошибка инициализации графики. Короче точки не видно.

COOLJohn, твоя программа ничего подобного написать не может, ибо вообще не откомпилируется. Точка с запятой перед Else недопустима... А для того, чтобы знать, какая ошибка произошла при инициализации графики, тебе нужно

Код

Writeln('Ошибка инициализации графики: ', GraphErrorMsg(ErrCode));

, хотя скорее всего ошибка в том, что у тебя в текущей директории просто нет BGI-файла (например, EGAVGA.BGI)... Скопируй его туда из TP\BGI...
Добавлено @ 13:08
Кстати, даже если точка и будет нарисована, ты ее не увидишь - просто не успеешь, графика сразу закроется... Хотя бы ReadLn; перед CloseGraph поставь, чтобы программа ждала твоего нажатия на Enter...

Это сообщение отредактировал(а) volvo877 - 30.12.2005, 13:08

Цитата(volvo877 @ 30.12.2005, 13:06)

ошибка в том, что у тебя в текущей директории просто нет BGI-файла (например, EGAVGA.BGI)...

А он вообще не указывает какой bgi будет грузить.
Отсюда и ошибка.

Да не... Все нормально работает у меня... Если, конечно, у end убрать ";"
И после...
Вот, в общем, полностью рабочий код:

Код

program Tiny;     uses       Crt, Graph;     var       x,y,c:  Integer;       ig : Integer;       igMode : Integer;       ErrCode : Integer;     begin       ig := Detect;       InitGraph(ig, igMode, '');       ErrCode := GraphResult;       if ErrCode = grOk then begin    // если хочешь много точек, то вгони в цикл     x:=random(640); y:=Random(480); c:=Random(15);         PutPixel(x, y, c);     Readln;         CloseGraph;       end else       Writeln('Ошибка инициализации графики');     end.

У меня замечательно все работает.

Цитата(Snowy @ 30.12.2005, 13:10)

Цитата (volvo877 @ 30.12.2005, 13:06) А он вообще не указывает какой bgi будет грузить. Отсюда и ошибка.

Ты не прав. Он указывает на все *.bgi, находящиеся в той папке, в которой и находится прога.

a readln разве не после закрытия граф. режима надо писать?

Цитата(armageddon @ 9.1.2006, 10:56 )

readln разве не после закрытия граф. режима надо писать?

А смысл?

До закрытия - понятно, показали что-то и ждем реакции пользователя. А после закрытия графики зачем? Чтобы пользователь полюбовался пустым экраном?