Иллюстрированный самоучитель по Turbo Pascal для начинающих

Решения (задачи 198-216)

Задача 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.

Задача 208

{ Выводит узор из концентрических окружностей разного цвета
Uses Graph;
var
grDriver:integer;
grMode:integer;
grPath:string;
ErrCode:integer;
x,y,r: integer; { координаты центра и радиус окружности }
dr:' integer; { приращение радиуса окружности }
i: integer; { счетчик циклов } begin
grDriver: = VGA;
grMode: = VGAHi;
grPath: = 'e:\tp\bgi';
InitGraph (grDriver,grMode,grPath);
ErrCode: = GraphResult;
if ErrCode <> grOK then
begin
writeln ('Ошибка инициализации графического режима.');
writeln ('Для завершения работы нажмите Enter'); readln; HALT (1); end;
x: = 100; y: = 100; r: = 5; dr: = 5; for i: = l to 15 do begin
SetColor(i); Circle (x,y, r); r: = r+dr; end;
readln; end.
{ Вычерчивает узор из окружностей }
Uses Graph;
var
grDriver:integer;
grMode:integer;
grPath:string;
ErrCode:integer;
x,y: integer;
r: integer;
1: integer;
{ координаты центра окружности }
{ радиус окружности }
{ расстояние между центрами окружностей
i,j: integer; { счетчики циклов } begin
grDriver: = VGA; grMode: = VGAHi; grPath: = 'e:\tp\bgi';
InitGraph (grDriver,grMode,grPath);
ErrCode: = GraphResult; if ErrCode <> grOK then begin
writeln ('Ошибка инициализации графического режима.')
writeln ('Для завершения работы нажмите Enter');
dln;
HALT (l);
end;
у: = 100;
r:'=20;
1: = 30;
for i: = 1 to 4 do
begin
x: = 100;
for j: = l to 5 do
begin
Circle (x,y,r),
x: = x+l;
end;
y: = y+l;
end;
readln;
end.