Сохранение, загрузка алгоритмов

Pascal ABC


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

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

Сохранение. Загрузка алгоритмов

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

Задание 1. Нарисуйте на координатной плоскости результаты выполнения алгоритмов.

Program Z_1 ;

uses Drawman;

begin

Field(10,11);

ToPoint(4,3);

PenDown;

ToPoint(2,3);

ToPoint(4,5);

ToPoint (4,1);

ToPoint(6,1);

ToPoint(4,3);

PenUp;

ToPoint (0,0);

end.

Program Z_2 ;

uses Drawman;

begin

Field(16,11);

OnVector(7,3);

PenDown;

OnVector(2,2);

OnVector(2,-2);

OnVector (-2,-2);

OnVector(-2,2);

OnVector(4,0);

PenUp;

OnVector (-11,-3);

end.

Наберите алгоритмы в системе программирования АВС Pascal. Сравните полученные рисунки с вашими. Сохраните алгоритмы в своей папке под именами Z_1 и Z_2 .

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

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

Задание 3. Загрузите или наберите следующий алгоритм. Программу сохраните под именем Z_3.
Program Z_3 ;
uses Drawman;
begin
Field(16,16);
OnVector(4,1);
PenDown;
OnVector(8,0);
OnVector(2,13);
OnVector (-4,-6);
OnVector(-2,6);
OnVector(-2,-6);
OnVector(-4,6);
OnVector(2,-13);
PenUp;
ToPoint(6,2);
PenDown;
OnVector (2,1);
OnVector (2,-1);
OnVector (-4,0);
PenUp;
ToPoint(5,6);
PenDown;
OnVector (1,0);
OnVector (0,1);
OnVector (-1,0);
OnVector (0,-1);
PenUp;
ToPoint(10,6);
PenDown;
OnVector (1,0);
OnVector (0,1);
OnVector (-1,0);
OnVector (0,-1);
PenUp;
ToPoint(7,4);
PenDown;
OnVector (2,0);
OnVector (0,2);
OnVector (-2,0);
OnVector (0,-2);
PenUp;
end.
Можешь загрузить! Пример 3

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

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

2)

3)

СЕРВИС