1. Изучите теоретический материал, представленный на видео, в текстовом файле и в § 8.
2. В вашей папке на Google диске создайте папку Урок 8 (в нее нужно будет копировать все файлы, полученные в результате выполнения заданий данного урока).
Задание 1. Разберите программу рисования ромба.
program al;
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 а1;
uses Drawman;
{Процедура с именем rect}
Procedure rect;
begin
PenDown;
OnVector(0,2);
OnVector(7,0);
OnVector(0,-2);
OnVector(-7,0);
PenUp;
end;
{Основная программа}
begin
Field(10,11);
ToPoint(2,2); rect;
ToPoint(2,5); rect;
ToPoint(2,8); rect;
end.
Задание 3. В системе программирования Pascal АВС составьте программы для создания изображений.
Вариант 1  |
Вариант 2  |
Задание 4. В системе программирования Pascal АВС составьте программы для создания изображений с использованием процедур.
Вариант 1  |
Вариант 2  |
Задание 5. В рабочей тетраде нарисуйте на координатной плоскости результат исполнения программы.
program а1;
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.
3. Выполните задания по теме урока. Созданные файлы программ для заданий №3 и №4, и файлы результатов выполнения программы в виде принскинов экрана скопируйте в папку Урок 8.