Нарисовать олимпийские кольца в ABC Pascal.

В PascalABC.NET олимпийские кольца удобно нарисовать через модуль GraphABC. Пример программы:

uses GraphABC;

begin
SetWindowSize(700, 400);
SetWindowCaption('Олимпийские кольца');
ClearWindow(clWhite);

SetPenWidth(8);

SetPenColor(clBlue);
Circle(200, 150, 60);

SetPenColor(clBlack);
Circle(340, 150, 60);

SetPenColor(clRed);
Circle(480, 150, 60);

SetPenColor(clYellow);
Circle(270, 220, 60);

SetPenColor(clGreen);
Circle(410, 220, 60);
end.

Команда Circle рисует окружность: сначала указываются координаты центра, затем радиус.

0 0 Пожаловаться