Алгоритмы и исполнители. Чертежник. Процедуры. Pascal ABC.

Описание

Задача 1. Разберите программу рисования ромба.
Program a1;
uses Drawman;
begin
Field(10,10);
Topoint(5,1);
Pendown;
Onvector(-2,4);
Onvector(2,4);
Onvector(2,-4);
Onvector(-2,-4);
Penup;
Topoint(0,0);
end.
Задача 2. Разберите программу, рисующую три одинаковых прямоугольника с использованием процедуры rect.
Program a1;
uses Drawman;
Procedure rect;
begin
PenDown;
Onvector(0,2);
Onvector(7,0);
Onvector(0,-2);
Onvector(-7,0);
penup;
end;
begin
Field(10,10);
Topoint (2,2);
rect;
Topoint(2,5);
rect;
Topoint(2,8);
rect;
end.
Задача 3. В системе программирования Pascal ABC составьте программу для создания изображений.
а)Program Reaf;
Uses drawman;
Begin
Field(14,13);
Topoint(6,0);
PenDown;
Onvector(-1,2);
Onvector(-1,4);
Onvector(0,3);
Onvector(1,-2);
Onvector(1,-7);
Onvector(1,1);
Onvector(1,3);
Onvector(-1,-1);
Onvector(-1,-3);
Onvector(-1,11);
Onvector(1,1);
Onvector(2,-1);
Onvector(-2,-5);
Onvector(1,1);
Onvector(1,-1);
Onvector(1,1);
Onvector(1,-1);
Onvector(-2,5);
penup;
topoint(0,0);
end.
б) Program raketa;
uses Drawman;
procedure Kva;
Begin
Pendown;
oNvector(-1,1);
onvector(1,1);
onvector(1,-1);
onvector(-1,-1);
Penup;
end;
Begin
Field(14,13);
Topoint(7,12);
pendown;
Topoint(8,11);
Topoint(10,3);
Topoint(4,3);
Topoint(6,11);
Topoint(7,12);
penup;
Topoint(2,1);
pendown;
Topoint(5,3);
Topoint(6,7);
Topoint(2,1);
penup;
Topoint(12,1);
Pendown;
Topoint(9,3);
Topoint(8,7);
Topoint(12,1);
penup;
Topoint(7,8);
kva;
ToPoint(7,5);
Kva;
end.
Задание 4.
Program Korablik;
Uses Drawman;
Procedure goolsi;
begin
Pendown;
Onvector(-1,-4);
Onvector(-1,0);
Onvector(1,-2);
Onvector(4,0);
Onvector(1,2);
Onvector(-5,0);
Onvector(1,0);
Onvector(0,4);
Onvector(3,-4);
penup;
end;
Begin
Field(15,15);
Topoint(3,7);
goolsi;
Topoint(6,14);
goolsi;
Topoint(10,7);
goolsi;
end.
Задание 5. Нарисуйте на координатной плоскости результат исполнения Программы.Program a1;
uses Drawman;
begin
Field(15,15);
Topoint(4,0);
Pendown;
Onvector(0,5);
Onvector(-4,1);
Onvector(2,2);
Onvector(13,4);
Onvector(-6,-11);
Onvector(-2,-1);
Onvector(-2,4);
Onvector(-1,-4);
Onvector(2,2);
Onvector(-1,2);
Onvector(10,8);
Onvector(-11,-7);
Penup;
Topoint(0,0);
end.