Turbo Pascal для начинающих




Задача 205


( Рисует веселую рожицу желтого цвета }
uses Graph;
var
grDriver:integer
grMode:integer;
grPath:string;
ErrCode:integer;
{ драйвер }
{ графический режим }
{ место расположения драйвера }
{ результат инициализации граф. режима }
begin
grDriver := VGA; grMode:=VGAHi; grPath:='e:\tp\bgi';
{ режим VGA} { разрешение 64 0x480}
{ драйвер, файл EGAVGA.BGI, находится в каталоге e:\tp\bgi }
InitGraph(grDriver, grMode,grPath); ErrCode := GraphResult;
ErrCode <> grOk then begin
writeln('Ошибка инициализации графического режима.'); writeln('flrm завершения работы программы ',
'нажмите <Enter>'); readln; Halt(l); end;
SetFillStyle(SolidFill,Yellow);
Setcolor(Yellow); ( чтобы на круге не было линии } PieSlice(100,100,0,360,20); SetColor(Black);
Arc(100,102,180,360,10); { рот } { глаза } Circle(93,93,2); Circle(107,93,2); readln; CloseGraph; and.









Начало    Назад    Вперед