Вопрос по информатике:
В системе программирования Pascal ABC составьте программы создания следующих изображений с использованием двух процедур.
Мне надо нарисовать вишню и рисунок б).
Пожалуйста!!!
Пожаловаться
- 26.12.2015 18:28
- Информатика
- remove_red_eye 18499
- thumb_up 12
Ответы и объяснения 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.
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.
Пожаловаться
- 27.12.2015 02:12
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы