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

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

Форум «Всё о Паскале» _ Задачи _ графика

Автор: игорь 2.01.2007 20:15

выдаёт ошибку как исправить


Прикрепленные файлы
Прикрепленный файл  LLL.PAS ( 145 байт ) Кол-во скачиваний: 239

Автор: мисс_граффити 2.01.2007 21:00

графический режим кто инициализировать будет?

Автор: игорь 2.01.2007 21:17

а как его инициировать?

Автор: Гость 2.01.2007 21:38

на FAQ нашёл

Автор: Bokul 2.01.2007 22:40

Есть еще поиск..


uses crt,graph;
var   x,y:integer;a,b,Rx,Ry:integer;
      grdriver, grmode, errcode: integer;
begin
  grDriver := detect;
  InitGraph(grDriver, grMode, '');
  ErrCode := GraphResult;
  if ErrCode <> grOk then begin
    Writeln('Graphic errore');
    writeln('Press Enter to halt()');
    readln; halt(100);
  end;
x:=100;y:=100;a:=100;b:=8;Rx:=50;Ry:=100;
setcolor(9);
ellipse(x,y,a,b,Rx,Ry);
readln;
end.