Пожалуйста, подскажите: 1. Как вывести 5 эллипсов разных цветов, на экран 2. Как вывести 10 прямоугольников в ряд, на экран 3. Как вывести 10 квадратов по диагонали, на экран Напишите код, все это надо сделать в Pasacal. Буду благодарна)
+ прошу с объяснением
Ответы
1( Вывод 5 эллипсов разных цветов:
program Ellipses;
uses Graph;
var i: integer;
begin
InitGraph;
for i := 1 to 5 do
begin
SetColor(i);
Ellipse(50*i, 50, 100+50*i, 100);
end;
ReadLn;
CloseGraph;
end.
В этом примере мы используем функцию InitGraph для инициализации графической области. Затем мы запускаем цикл для вывода 5 эллипсов разных цветов. Внутри цикла мы используем функцию SetColor для установки цвета и функцию Ellipse для вывода эллипса на экран. Затем мы ждем, пока пользователь не нажмет Enter, и закрываем графическую область с помощью функции CloseGraph.
2( Вывод 10 прямоугольников в ряд:
program Rectangles;
uses Graph;
var i: integer;
begin
InitGraph;
for i := 1 to 10 do
begin
Rectangle(50*i, 50, 100+50*i, 100);
end;
ReadLn;
CloseGraph;
end.
В этом примере мы также используем функцию InitGraph для инициализации графической области. Затем мы запускаем цикл для вывода 10 прямоугольников в ряд. Внутри цикла мы используем функцию Rectangle для вывода прямоугольника на экран. Затем мы ждем, пока пользователь не нажмет Enter, и закрываем графическую область с помощью функции CloseGraph.
3( Вывод 10 квадратов по диагонали:
program Squares;
uses Graph;
var i: integer;
begin
InitGraph;
for i := 1 to 10 do
begin
Rectangle(50*i, 50*i, 50+50*i, 50+50*i);
end;
ReadLn;
CloseGraph;
end.
В этом примере мы снова используем функцию InitGraph для инициализации графической области. Затем мы запускаем цикл для вывода 10 квадратов по диагонали. Внутри цикла мы используем функцию Rectangle для вывода квадрата на экран. Затем мы ждем, пока пользователь не нажмет Enter, и закрываем графическую область с помощью функции CloseGraph.