Задание. Задание cif1. Положение стен и длина коридора могут быть различными.
uses robot;
begin
task('cif1');
while freefromright do {пока справа свободно делаем}
begin
right; {вправо}
if wallfromup then paint;{если сверху стена, закрашиваем}
end;
end.
ТЕСТ
ЗАДАНИЯ
Задание 1. Запустите программу PascalABC.NET.
Задание 2. Выполните программу. Установите размер поля 11х11. Выполните программу и покажите учителю.
uses robot;
procedure row;
begin
while freefromright do
begin
paint;
right;
end;
while freefromleft do left;
end;
begin
field(7,7);
{перемещение Робота из центра поля в левый верхний угол}
while freefromleft do left;
while freefromup do up;
{выполнение процедуры в цикле до тех пор, пока снизу свободно}
while freefromdown do begin row; down; end;
{закрашивание последнего ряда}
while freefromright do begin paint; right; end;
paint;
end.
Задание 3. Составьте программу, позволяющую закрасить верхний ряд клеток. Поле Робота размером 9х1.
Нечётные номера компьютеров + 1 компьютер -
Чётные номера компьютеров -
Задание 4.
Нечётные номера компьютеров + 1 компьютер. Задание cif3. Закрасить клетки, у которых сверху и снизу есть стена. Положение стен и длина коридора могут быть различными.
Чётные номера компьютеров. Задание cif4. Закрасить клетки, у которых стена только сверху, а снизу стены нет. Положение стен и длина коридора могут быть различными.
Задание 5. Составить программу, позволяющую закрасить поле Робота размером 9х9 с использованием процедуры или циклов. Ваше решение должно быть рационально.
Нечётные номера компьютеров + 1 компьютер -
Чётные номера компьютеров -
ДОМАШНЕЕ ЗАДАНИЕ
параграф 14 п. 1 прочитать и составить 5 вопросов на Верю-не верю по данной теме
