Question

Написать программу, которая выводит на экран флаг Олимпийских игр

Answer 1

{Рисует Олимпийский флаг}
uses Graph;
var
     grDriver: integer; {драйвер}
     grMode: integer;  {графический режим}
     grPath:string;       {место расположения драйвера}
     ErrCode:integer;  {результат инициализации граф, режима}
 begin
           grDriver := VGA;     { режим VGA}
           grMode :=VGAHi;   { разрешение 640x480}
           grPath:=' ';                {драйвер, файл EGAVGA.BGI, находится в текущем каталоге }
           InitGraph(grDriver, grMode, grPath);
           ErrCode := GraphResult;
           if ErrCode <> grOk then
                 begin
                    writeln('Ошибка инициализации графического режима.');
                    writeln('для завершения работы программы нажмите ', '<Enter>');
                    readln;
                    Halt(l);
                 end;
{полотнище флага}
SetFillStyle(SolidFill,LightGray); {сплошная заливка серым цветом}
Ваг(80,80,200,135);
{ кольца}
SetColor(Green);    (зеленое)
Circle(100,100,15);
SetColor(Black);    (черное)
Circle(140,100,15);
SetColor(Red);       (красное)
Circle(180,100,15);
SetColor(Yellow);  (желтое)
 Orel e( 120,115,15);
SetColor(Blue);       (синее)
 Orel e(l 60,115,15);
readln;
CloseGraph;
 end.