Линейные алгоритмы

Pascal ABC


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

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

Линейные алгоритмы

Проверка знаний Тест: Знакомство с исполнителем Чертежник.
Алгоритмы, в которых команды выполняются последовательно одна за другой, в порядке их записи, называются линейными.

Пример 1. Написать алгоритм получения изображения цифры 6 в почтовом индексе с помощью исполнителя Чертежник.

Решение:
Выберем следующий алгоритм построения изображения:
1) создать поле для исполнителя Чертежник размером 3х4 (3 клетки по горизонтали, 4 клетки по вертикали);
2) сместиться в точку (2, 3);
3) опустить перо;
4) изобразить цифру, двигаясь через точки 1 — 2 — 3-4-5-2);
5) поднять перо и перейти в начало координат.
Для создания поля исполнителя Чертежник размером N х М используется команда Field (N,M) ; .
Программа решения задачи примет вид (слева приводится комментарий к отдельным командам):

Вначале запишем алгоритм решения задачи на русском языке. Затем для каждой команды этого алгоритма выберем соответствующую команду исполнителя Чертежник.

Запись алгоритма на русском языке Текст программы

Заголовок программы;

Program PR2 ;

вызов исп. Чертежник;

uses Drawman;

начало программы;

begin

создание поля размером 3х4;

Field(3,4);

1)переместить перо в точку (2,3);

2)опустить перо;

3)переместить перо в точку (1,2);

4)переместить перо в точку (1,1);

5)переместить перо в точку (2,1);

6)переместить перо в точку (2,2);

7)переместить перо в точку (1,2);

8)поднять перо;

9) перейти в начало координат;

ToPoint(2,3);
PenDown;
ToPoint(1,2);
ToPoint(1,1);
ToPoint (2,1);
ToPoint(2,2);
ToPoint(1,2);
PenUp;
ToPoint (0,0);

закончить программу.
end.

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

Для выполнения программы выберем команды ПрограммаàВыполнить (F9 или кнопка на панели инструментов). Откроется окно исполнителя Чертежник, где нужно нажать кнопку Пуск или клавишу Enter на клавиатуре.

Примечание: При работе в системе программирования Pascal ABC в процессе выполнения программы могут возникнуть ошибки. Ошибка может оказаться на месте нахождения курсора или в предыдущей строке.
Пример 2. Написать алгоритм получения изображения двухэтажного дома с помощью исполнителя Чертежник.

Решение:
Выберем следующий алгоритм построения изображения:
1) создать поле для исполнителя Чертежник размером 14х15 (14 клеток по горизонтали, 15 клеток по вертикали);
2) сместиться в точку 1 с координатами (1, 12);
3) опустить перо;
4) нарисовать крышу дома;
5) перейти в точку 2 и нарисовать контур дома;
6) поднять перо и перейти в точку 3, опустить перо и нарисовать окно;
7) поднять перо и перейти в точку 4, опустить перо и нарисовать окно;
8) поднять перо и перейти в точку 5, опустить перо и нарисовать балкон;
9) поднять перо и перейти в точку 6, опустить перо и нарисовать окно;
10) поднять перо и перейти в точку 7, опустить перо и нарисовать окно;
11) поднять перо и перейти в точку 8, опустить перо и нарисовать балкон;
12) поднять перо и перейти в начало координат.

Для создания поля исполнителя Чертежник размером N х М используется команда Field (N,M) ; .
Программа решения задачи примет вид:
Program PR2 ;
uses Drawman;
begin
Field(14,15);
{крыша}
ToPoint(1,12);PenDown;ToPoint(3,14);ToPoint(11,14);ToPoint (13,12);
ToPoint(1,12);
{контур дома}
ToPoint(2,12);ToPoint(2,1);ToPoint(12,1);ToPoint (12,12);PenUp;
{окно 3}
ToPoint (3,10);PenDown;ToPoint(3,8);ToPoint(4,8);ToPoint (4,10);
ToPoint(3,10);ToPoint(5,10);ToPoint(5,8);ToPoint(4,8);PenUp;
{окно 4}
ToPoint (6,10);PenDown;ToPoint(6,8);ToPoint(7,8);ToPoint (7,10);
ToPoint(6,10);ToPoint(8,10);ToPoint(8,8);ToPoint(7,8);PenUp;
{балкон 5}
ToPoint (9,10);PenDown;ToPoint(9,8);ToPoint(10,8);ToPoint (10,10);
ToPoint(9,10);ToPoint(11,10);ToPoint(11,7);ToPoint(10,7);
ToPoint(10,8);PenUp;
{окно 6}
ToPoint (3,6);PenDown;ToPoint(3,4);ToPoint(4,4);ToPoint (4,6);
ToPoint(3,6);ToPoint(5,6);ToPoint(5,4);ToPoint(4,4);PenUp;
{окно 7}
ToPoint (6,6);PenDown;ToPoint(6,4);ToPoint(7,4);ToPoint (7,6);
ToPoint(6,6);ToPoint(8,6);ToPoint(8,4);ToPoint(7,4);PenUp;
{балкон 8}
ToPoint (9,6);PenDown;ToPoint(9,4);ToPoint(10,4);ToPoint (10,6);
ToPoint(9,6);ToPoint(11,6);ToPoint(11,3);ToPoint(10,3);
ToPoint(10,4);PenUp;
end.
Можешь загрузить! Пример 2

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

1. Нарисуйте на координатной плоскости результат исполнения следующего алгоритма:
Program PR3 ;
uses Drawman;
begin
Field(10,10);ToPoint(5,1);PenDown;ToPoint(5,2);ToPoint(2,2);
ToPoint (4,4);ToPoint(3,4);ToPoint(5,6);ToPoint(7,4);
ToPoint(6,4);ToPoint (8,2);ToPoint (5,2);PenUp;
end.
2. Составьте программы для получения следующих изображений с помощью исполнителя Чертежник и выполните их в системе программирования Pascal ABC:
1)

2)

3)

СЕРВИС