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.

Answer 2

1. Как вывести 5 эллипсов на экран в Pascal:

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, 200 * i, 200);
  end;

ReadLn;
  CloseGraph;
end.

2. Как вывести 10 прямоугольников в ряд на экран в Pascal:

program DrawRectangles;

uses
  Graph;

var
  gd, gm: smallint;
  i: integer;

begin
  gd := Detect;
  InitGraph(gd, gm, '');

for i := 1 to 10 do
  begin
    Rectangle(100 * i, 100, 200 * i, 200);
  end;

ReadLn;
  CloseGraph;
end.

3. Как вывести 10 квадратов по диагонали на экран в Pascal:

program DrawSquares;

uses
  Graph;

var
  gd, gm: smallint;
  i: integer;

begin
  gd := Detect;
  InitGraph(gd, gm, '');

for i := 1 to 10 do
  begin
    Rectangle(100 * i, 100 * i, 200 * i, 200 * i);
  end;

ReadLn;
  CloseGraph;
end.

Примечание: Для выполнения этих программ в Pascal, вам понадобится установить и настроить графическую библиотеку, такую как BGI (Borland Graphics Interface). Это обычно делается с помощью установки Turbo Pascal или Free Pascal и настройки окружения разработки.