В Паскале нарисовать в экране 300х300 пикселей рамку из кружков, радиусом 15 пикселей.

31 Авг 2019 в 04:41
239 +1
0
Ответы
1

Вот пример кода на Pascal (Free Pascal):

program drawFrame;
uses Graph;
const
radius = 15;
screenWidth = 300;
screenHeight = 300;
var
gd,gm,i,j: integer;
begin
gd := detect;
InitGraph(gd, gm, '');
SetColor(Yellow);
for i := 0 to screenWidth div (2*radius) do
begin
Delay(50);
Circle(radius+i*2*radius, radius, radius);
Circle(radius+i*2*radius, screenHeight-radius, radius);
end;
for j := 1 to (screenHeight-2*radius) div (2*radius) do
begin
Delay(50);
Circle(radius, radius+j*2*radius, radius);
Circle(screenWidth-radius, radius+j*2*radius, radius);
end;
readln;
closegraph;
end.

Для запуска кода вам понадобится компилятор Pascal и библиотека Graph. Результатом работы программы будет экран размером 300х300 пикселей с рамкой из кружков радиусом 15 пикселей.

20 Апр 2024 в 05:31
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир