Question

Постройте зайчика в паскале

Answer 1

Uses GraphABC;

begin
  Ellipse(410, 300, 250, 200);
  Circle(256, 295, 20);
  Circle(404, 295, 20);
  Circle(404, 205, 20);
  Circle(253, 183, 38);
  Circle(234, 170, 10);
  Ellipse(285, 150, 385, 180);
  Ellipse(280, 145, 380, 175);
end.

Так пойдет (скрин)?

Answer 2

Конечно, построим зайчика в языке программирования Pascal. Воспользуемся графическим выводом на экран. Зайчик будет выглядеть примерно так:

arduinoCopy code
program DrawBunny;
uses crt;

procedure DrawBunnyHead;
begin
  writeln(' (\(\');
  writeln(' (-.-)');
  writeln(' o_(")(")');
end;

procedure DrawBunnyBody;
begin
  writeln('  /\\');
  writeln(' /__\');
end;

procedure DrawBunnyLegs;
begin
  writeln('  /  \');
  writeln(' /    \');
end;

procedure DrawBunny;
begin
  DrawBunnyHead;
  DrawBunnyBody;
  DrawBunnyLegs;
end;

begin
  clrscr;
  DrawBunny;
  readln;
end.

Скопируйте код выше и вставьте его в среду программирования Pascal (например, в Dev-Pascal, Lazarus или Free Pascal) и запустите программу. Вы увидите рисунок зайчика на экране. Если хотите, можете изменить рисунок зайчика или добавить ему дополнительные элементы.