Question

В системе программирования Pascal ABC составьте программы создания следующих изображений с использованием двух процедур.
Мне надо нарисовать вишню и рисунок б).
Пожалуйста!!!

Answer 1

Рыбы:

program More;

uses Drawman;

procedure Fish;
begin
  PenDown;
  onvector(1, 1);
  onvector(3, -1);
  onvector(1, 1);
  onvector(0, -2);
  onvector(-1, 1);
  onvector(-3, -1);
  onvector(-1, 1);
  PenUp;
end;

procedure Il;
begin
  PenDown;
  onvector(-1, 3);
  onvector(1, 3);
  onvector(0, -3);
  onvector(1, 1);
  onvector(-1, -4);
  PenUp;
end;

begin
  Field(15, 15);
  ToPoint(7, 11);Fish;
  ToPoint(1, 9);Fish;
  ToPoint(8, 8);Fish;
  ToPoint(2, 0);Il;
  ToPoint(5, 0);Il;
  ToPoint(9, 0);Il;
  ToPoint(12, 0);Il;
  ToPoint(0, 0);
end.

Вишня:

program Vishnya;

uses Drawman;
procedure Leaf;
begin
  PenDown;
  onvector(2, 0);
  onvector(2, -2);
  onvector(-2,0);
  onvector(-2,2);
end;

procedure Berry;
begin
  PenDown;
  onvector(1,-1);
  onvector(0,-1);
  onvector(-1,-1);
  onvector(-1,0);
  onvector(-1, 1);
  onvector(0, 1);
  onvector(1,1);
  onvector(1,0);
end;

begin
Field(15, 15);
ToPoint (2, 12); Leaf;
  PenUp;
ToPoint (6, 10); Leaf;
onvector(-3,-6); Berry;
  PenUp;
onvector(3,6);
  PenDown;
onvector(0,-6);
  onvector(1,0); Berry;
  PenUp;
  ToPoint(0, 0);
end.