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

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

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

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

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


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

Автор: мисс_граффити 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.