Question

Пожалуйста, подскажите:
1. Как вывести 5 эллипсов, на экран
2. Как вывести 10 прямоугольников в ряд, на экран
3. Как вывести 10 квадратов по диагонали, на экран

Напишите код, все это надо сделать в Pasacal

Буду благодарна)​

Answer 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.