Question

составьте программы решение задач с помощью исполнителя Чертёжник и выполните их в системе программирования Pascal ABC

Answer 1

) program a2;

uses drawman;

begin

topoint ( 3, 2);

pendown;

topoint  ( 5, 4);

topoint  ( 1, 6);

topoint  ( 5, 4);

topoint  ( 8, 5);

topoint  ( 5, 4);

topoint  ( 7, 1);

penup;

topoint  (0, 0);

end. 

2)   program a2;

uses drawman;

begin

topoint ( 2, 1);

pendown;

topoint ( 6, 1);

penup;

topoint ( 3, 2);

pendown;

topoint ( 3, 5);

penup;

topoint ( 4, 4);

pendown;

topoint ( 9, 3);

penup;

topoint ( 0, 0);

end. 

Answer 2

Конечно, я могу помочь вам с этим! Ниже приведены программы решения задач с использованием исполнителя "Чертёжник" и их код на языке Pascal ABC.

Программа 1: Рисование прямоугольника

pascalCopy code
program DrawRectangle;

uses Graph;

procedure DrawRectangle(x, y, width, height: Integer);
begin
  Rectangle(x, y, x + width, y + height);
end;

begin
  InitGraph;
  DrawRectangle(100, 100, 200, 150);
  ReadLn;
  CloseGraph;
end.

Программа 2: Рисование треугольника

pascalCopy code
program DrawTriangle;

uses Graph;

procedure DrawTriangle(x1, y1, x2, y2, x3, y3: Integer);
begin
  Line(x1, y1, x2, y2);
  Line(x2, y2, x3, y3);
  Line(x3, y3, x1, y1);
end;

begin
  InitGraph;
  DrawTriangle(100, 100, 200, 200, 300, 100);
  ReadLn;
  CloseGraph;
end.

Программа 3: Рисование окружности

pascalCopy code
program DrawCircle;

uses Graph;

procedure DrawCircle(x, y, radius: Integer);
begin
  Circle(x, y, radius);
end;

begin
  InitGraph;
  DrawCircle(200, 200, 100);
  ReadLn;
  CloseGraph;
end.

Программа 4: Рисование линии

pascalCopy code
program DrawLine;

uses Graph;

procedure DrawLine(x1, y1, x2, y2: Integer);
begin
  Line(x1, y1, x2, y2);
end;

begin
  InitGraph;
  DrawLine(100, 100, 300, 200);
  ReadLn;
  CloseGraph;
end.

Пожалуйста, просто скопируйте код каждой программы в редактор Pascal ABC и выполните их. Убедитесь, что у вас установлена библиотека Graph и Pascal ABC на вашем компьютере для корректного выполнения этих программ.