Пожалуйста, подскажите:
1. Как вывести 5 эллипсов, на экран
2. Как вывести 10 прямоугольников в ряд, на экран
3. Как вывести 10 квадратов по диагонали, на экран
Напишите код, все это надо сделать в Pasacal
Буду благодарна)
Ответы
Ответ дал:
1
1.
program DrawEllipses;
uses Graph;
var
gd, gm: smallint;
i: integer;
begin
gd := Detect;
InitGraph(gd, gm, '');
for i := 1 to 5 do
begin
Ellipse(100*i, 100, 150*i, 200);
end;
ReadLn;
CloseGraph;
end.
2.
program DrawRectangles;
uses Graph;
var
gd, gm: smallint;
i: integer;
begin
gd := Detect;
InitGraph(gd, gm, '');
for i := 1 to 10 do
begin
Rectangle(50*i, 50, 100*i, 100);
end;
ReadLn;
CloseGraph;
end.
3.
program DrawDiagonalSquares;
uses Graph;
var
gd, gm: smallint;
i: integer;
begin
gd := Detect;
InitGraph(gd, gm, '');
for i := 1 to 10 do
begin
Rectangle(50*i, 50*i, 100*i, 100*i);
end;
ReadLn;
CloseGraph;
end.
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
1 год назад
7 лет назад