ТЕСТ
ПРАКТИЧЕСКАЯ ЧАСТЬ
Задание 1. Запустите программу PascalABC.NET.
Задание 2. Выполните программу. Выполните программу и покажите учителю.
uses robot;
procedure row;
begin
while freefromright do
begin
paint;
right;
end;
paint;
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.
Нечётные номера компьютеров-
uses ...
begin
field(....);
{гоним Робота влево}
while слева свободно do влево;
{гоним Робота вправо и закрашиваем через клеточку}
while справа свободно do
begin
закрасить
вправо
вправо
end;
end.
Чётные номера компьютеров -
uses ...
begin
field(....);
{гоним Робота влево}
while слева свободно do влево;
{гоним Робота вправо и закрашиваем через клеточку}
while справа свободно do
begin
вправо
закрасить
вправо
end;
end.
Нечётные номера компьютеров. Задание cif3. Закрасить клетки, у которых сверху и снизу есть стена. Положение стен и длина коридора могут быть различными.
Чётные номера компьютеров. Задание cif4. Закрасить клетки, у которых стена только сверху, а снизу стены нет. Положение стен и длина коридора могут быть различными.
uses ...
begin
task(....);
while справа свободно do
begin
if описываем в каком случае закрашиваем then закрасить;
вправо
end;
end.
Задание 5. Составить программу, позволяющую закрасить поле Робота размером 9х9 с использованием вспомогательных алгоритмов или циклов. Ваше решение должно быть рационально.
Нечётные номера компьютеров + 1 компьютер -
Чётные номера компьютеров -
ээээ эээ эээ ээчо
ОтветитьУдалить