Задания для чертежника
PascalABC.NET 3.9
Задания для процедуры без параметров
Задания для процедуры с параметрами
Исполнитель Чертежник предназначен для построения рисунков и чертежей на плоскости с координатами. Чертежник имеет перо, которое он может поднимать, опускать и перемещать. При перемещении опущенного пера за ним остается след.
Исполнитель Чертежник и поле, на котором он работает, отображаются на экране следующим образом:
Здесь маленький квадрат изображает Чертежника, красным цветом изображены отрезки, которые надо нарисовать, а синим – уже нарисованные Чертежником отрезки.
Когда перо Чертежника опущено, он изображается квадратом меньшего размера.
Команды исполнителя Чертежник содержатся в модуле Drawman:
ToPoint(x,y) – перемещает перо Чертежника в точку (x,y);
OnVector(a,b)– перемещает перо Чертежника на вектор (a,b);
PenUp – поднимает перо Чертежника;
PenDown – опускает перо Чертежника.
Для вызова задания для исполнителя Чертежник используется следующий шаблон программы:
В конце программы перо Чертежника должно быть поднято и находиться в начале координат.
Здесь Task – процедура, содержащаяся в модуле Drawman и вызывающая задание с указанным именем.
Имеются следующие группы заданий для исполнителя Чертежник:
a – вводные задания;
c – цикл с параметром;
cc – вложенные циклы;
p – процедуры без параметров;
pp – процедуры с параметрами.
Для создания произвольного поля размера 20 x 30 используется процедура StandardField без параметров, а для создания поля размера N x M — процедура Field(N,M).
Task('a1') ... Task('a6');
Задание a1
Решение Задания a1 на PascalABCNET
Задание a2
Решение Задания a2 на PascalABCNET
Задание a3
Решение Задания a3 на PascalABCNET
Задание a4
Решение Задания a4 на PascalABCNET
Задание a5
Решение Задания a5 на PascalABCNET
Задание a6
Решение Задания a6 на PascalABCNET
Task('c1') ... Task('c26');
Задание c1
Решение Задания c1 на PascalABCNET
Задание c2
Решение Задания c2 на PascalABCNET
Задание c3
Решение Задания c3 на PascalABCNET
Задание c4
Решение Задания c4 на PascalABCNET
Задание c5
Решение Задания c5 на PascalABCNET
Задание c6
Решение Задания c6 на PascalABCNET
Задание c7
Решение Задания c7 на PascalABCNET
Задание c8
Решение Задания c8 на PascalABCNET
Задание c9
Решение Задания c9 на PascalABCNET
Задание c10
Решение Задания c10 на PascalABCNET
Задание c11
Решение Задания c11 на PascalABCNET
Задание c12
Решение Задания c12 на PascalABCNET
Задание c13
Решение Задания c13 на PascalABCNET
Задание c14
Решение Задания c14 на PascalABCNET
Задание c15
Решение Задания c15 на PascalABCNET
Задание c16
Решение Задания c16 на PascalABCNET
Задание c17
Решение Задания c17 на PascalABCNET
Задание c18
Решение Задания c18 на PascalABCNET
Задание c19
Решение Задания c19 на PascalABCNET
Задание c20
Решение Задания c20 на PascalABCNET
Задание c21
Решение Задания c21 на PascalABCNET
Задание c22
Решение Задания c22 на PascalABCNET
Задание c23
Решение Задания c23 на PascalABCNET
Задание c24
Решение Задания c24 на PascalABCNET
Задание c25
Решение Задания c25 на PascalABCNET
Задание c26
Решение Задания c26 на PascalABCNET
Task('cc1') ... Task('cc16');
Задание cc1
Решение Задания cc1 на PascalABCNET
Задание cc2
Решение Задания cc2 на PascalABCNET
Задание cc3
Решение Задания cc3 на PascalABCNET
Задание cc4
Решение Задания cc4 на PascalABCNET
Задание cc5
Решение Задания cc5 на PascalABCNET
Задание cc6
Решение Задания cc6 на PascalABCNET
Задание cc7
Решение Задания cc7 на PascalABCNET
Задание cc8
Решение Задания cc8 на PascalABCNET
Задание cc9
Решение Задания cc9 на PascalABCNET
Задание cc10
Решение Задания cc10 на PascalABCNET
Задание cc11
Решение Задания cc11 на PascalABCNET
Задание cc12
Решение Задания cc12 на PascalABCNET
Задание cc13
Решение Задания cc13 на PascalABCNET
Задание cc14
Решение Задания cc14 на PascalABCNET
Задание cc15
Решение Задания cc15 на PascalABCNET
Задание cc16
Решение Задания cc16 на PascalABCNET
Task('p1') ... Task('p4');
Задание p1
Решение Задания p1 на PascalABCNET
Задание p2
Решение Задания p2 на PascalABCNET
Задание p3
Решение Задания p3 на PascalABCNET
Задание p4
Решение Задания p4 на PascalABCNET
Task('pp1') ... Task('pp19');
Задание pp1
Решение Задания pp1 на PascalABCNET
Задание pp2
Решение Задания pp2 на PascalABCNET
Задание pp3
Решение Задания pp3 на PascalABCNET
Задание pp4
Решение Задания pp4 на PascalABCNET
Задание pp5
Решение Задания pp5 на PascalABCNET
Задание pp6
Решение Задания pp6 на PascalABCNET
Задание pp7
Решение Задания pp7 на PascalABCNET
Задание pp8
Решение Задания pp8 на PascalABCNET
Задание pp9
Решение Задания pp9 на PascalABCNET
Задание pp10
Решение Задания pp10 на PascalABCNET
Задание pp11
Решение Задания pp11 на PascalABCNET
Задание pp12
Решение Задания pp12 на PascalABCNET
Задание pp13
Решение Задания pp13 на PascalABCNET
Задание pp14
Решение Задания pp14 на PascalABCNET
Задание pp15
Решение Задания pp15 на PascalABCNET
Задание pp16
Решение Задания pp16 на PascalABCNET
Задание pp17
Решение Задания pp17 на PascalABCNET
Задание pp18
Решение Задания pp18 на PascalABCNET
Задание pp19
Решение Задания pp19 на PascalABCNET