Составление, редактирование и выполнение алгоритмов алгоритмов

Pascal ABC


		ГЛАВНАЯ
		УСТАНОВКА
		ОКНО ПРОГРАММЫ
		ЛИНЕЙНЫЕ АЛГОРИТМЫ
		ЧЕРТЁЖНИК
		GraphABC
		РОБОТ
		АЛГОРИТМЫ С ВЕТВЛЕНИЯМИ
		АЛГОРИТМЫ С ПОВТОРЕНИЯМИ
		ПРОЦЕДУРЫ И ФУНКЦИИ
		ТЕСТЫ
		ТВОРЧЕСКИЕ РАБОТЫ
		ОЛИМПИАДНЫЕ ЗАДАНИЯ

ЧЕРТЕЖНИК ◊	Исполнитель Чертежник Линейные алгоритмы Составление линейных алгоритмов. Команда OnVector(a,b) Сохранение, загрузка алгоритмов Составление, редактирование и выполнение алгоритмов

Составление, редактирование и выполнение алгоритмов

Сохранение алгоритма в файле на диске:
Файл Þ Сохранить как Þ выбрать папку Þ указать имя файла для сохранения Þ Сохранить
Загрузка алгоритма из файла на диске:
Файл Þ Открыть Þ выбрать папку Þ выбрать имя файла Þ Открыть

Задание 1. Используя команды исполнителя Чертежник, составьте и выполните алгоритмы, создающие следующие рисунки:

Задание 2. Проанализируйте алгоритм для исполнителя Чертежник и постройте на координатной плоскости создаваемый этим алгоритмом объект.

Program Z_4 ;
uses Drawman;
begin
Field(16,16);
OnVector(5,1);
PenDown;
OnVector(4,7);
OnVector(0,1);
OnVector (-6,0);
OnVector(0,-1);
OnVector(4,-7);
OnVector(-2,0);
PenUp;
ToPoint(4,7);
PenDown;
OnVector (0,1);
OnVector (1,0);
OnVector (0,-1);

OnVector (-1,0);
PenUp;

ToPoint(7,7);

PenDown;
OnVector (1,0);
OnVector (0,1);
OnVector (-1,0);
OnVector (0,-1);
PenUp;
ToPoint(6,4);
PenDown;
ToPoint (3,4);
ToPoint (3,5);
ToPoint (4,6);
PenUp;
ToPoint(6,4);
PenDown;
ToPoint (9,4);
ToPoint (9,5);
ToPoint (8,6);
PenUp;
end.

Сохраните алгоритм в своей папке.

Можешь загрузить!    Пример 1

Примечание. Обратите внимание на то, что с помощью команды смещения на вектор очень удобно рисовать повторяющиеся элементы (фрагменты программы можно копировать).

Задание 3. Загрузите или наберите следующий алгоритм. Программу сохраните.
Program Z_5 ;
uses Drawman;
begin
Field(30,30);
OnVector(0,5);
PenDown;
OnVector(12,0);
OnVector(0,2);
OnVector (-1,0);
OnVector(0,-1);
OnVector(-9,0);
OnVector(-1,-1);
OnVector(1,0);
OnVector(0,1);
OnVector (3,0);
OnVector(3,3);
OnVector(3,0);
OnVector(-3,-3);
PenUp;
OnVector(0,-1);
PenDown;
OnVector (3,-3);
OnVector (-3,0);
OnVector (-3,3);
PenUp;
end.
Можешь загрузить!    Пример 2

Задание 4. Попробуйте нарисовать свою эскадрилью самолетов.
Можешь загрузить!    Пример 3

Задачи для самостоятельного решения

Составьте программы для получения следующих изображений с помощью исполнителя Чертежник и выполните их в системе программирования Pascal ABC:
1)

2)

СЕРВИС