ПРАКТИЧЕСКАЯ РАБОТА
Задание 1. Запускаем программу PascalABC.NET. Ярлык вы найдёте на Рабочем столе или в меню Пуск Обратите внимание на чёрные буквы net в правом нижнем углу значка
Задание 2. Набрать и выполнить программу, над которой сегодня работали вместе. Для выполнения программы можно нажать клавишу F9.
uses robot;
... zakr;
begin
paint; down; paint; right;
paint; up; paint;
end;
procedure perexod;
begin
right; right;
end;
begin
field(8,2);
left;left;left;...;
up;
zakr;perexod;
...
end.
Задание 3. Измените программу так, чтобы Робот закрашивал 5 таких квадратов.
1. Вам надо изменить ширину поля: добавиться 2 квадрата шириной по 2 клеточки и 2 прохода ашириной в одну клетку, т. е. 8+2*2+2=14 клеток.
2. Измениться начальное положение Робота, ему надо пойти 7 раз влево, а не 4.
....
begin
field(14,2);
left;
left;
left;
left;
left;
left;
...
3. Добавить процедуры закраски и перехода. Перед end. надо добавить их имена.
Задание 4. Составьте узор для шахматной доски. Берём одну линию высотой в 2 клеточки.
Задание 5. Получить полную шахматную доску.
Задание 5. Получить полную шахматную доску.
Комментариев нет:
Отправить комментарий