IT-School

Современное образование в IT сфере

Сайты уч. образования

Полезные ссылки

1. Изучите теоретический материал, представленный на видео, в текстовом файле и в § 8.

Конспект по теме урока


2. В вашей папке на Google диске создайте папку Урок 8 (в нее нужно будет копировать все файлы, полученные в результате выполнения заданий данного урока).


pic7 8 1Задание 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.

pic7 8 2program а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 pic7 8 3   Вариант 2 pic7 8 4

Задание 4. В системе программирования Pascal АВС составьте программы для создания изображений с использованием процедур.

Вариант 1 pic7 8 3   Вариант 2 pic7 8 4

Задание 5. В рабочей тетраде нарисуйте на координатной плоскости результат исполнения программы.

pic7 8 7program а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.