Pascal ABC Составление алгоритмов с помощью готовых фрагментов Изменение готовых алгоритмов Испол

http://www.donationalerts.ru/r/fanpiart Задание 1. В Системе программирования Pascal ABC наберите программу рисования квадрата. Измените программу, дорисовать крышу и окно. Program pr2; uses Drawman; begin Field (9,11); Topoint (1,1); PenDown; ToPoint (1,7); Topoint(7,7); Topoint(7,1); topoint(1,1); Penup; Topoint(1,7); Pendown; Topoint (4,10); Topoint(7,7); Penup; Topoint (5,5); pendown; topoint(5,3); Topoint (3,3); Topoint (3,5); Topoint (5,5); penup; topoint(0,0); pendown; end. Задание 2. В системе программирования Pascal ABC составьте программы для создания следующих изображений. а)Program vrem9; uses Drawman; begin Field (9,9); Topoint(6,2); Pendown; Topoint(5,4); Topoint(5,7); Topoint(4,7); Topoint(2,5); Topoint(2,3); Topoint(4,1); Topoint(6,1); Topoint(8,3); Topoint(8,5); Topoint(6,7); Topoint(5,7); end. б) Program Babo4ka; uses Drawman; begin Field (10,10); Topoint(5,1); Pendown; Topoint(5,3); Topoint(1,6); Topoint(2,1); Topoint(5,3); Topoint(9,6); Topoint(8,1); Topoint(5,3); Topoint(5,6); Topoint(4,7); Topoint(5,6); Topoint(6,7); end. в) Program cvetok; uses Drawman; begin Field (10,10); Topoint(5,1); Pendown; Topoint(3,4); Topoint(3,3); Topoint(5,1); Topoint(7,4); Topoint(6,3); Topoint(5,1); Topoint(4,5); Topoint(6,7); Topoint(6,5); Topoint(8,6); Topoint(6,7); end. 3адание 3. Нарисуйте на координатной плоскости результат исполнения следующей программы: Program pr1; uses Drawman; begin Field (11,9); Topoint(5,1); Pendown; Topoint(5,2); Topoint(2,2); Topoint(4,4); Topoint(3,4); Topoint(5,6); Topoint(7,4); Topoint(6,4); Topoint(8,2); Topoint(5,2); penup; Topoint(0,0); end.