Робот

@Вероника52 · Регистрация: 28.09.2016

Author24 — интернет-сервис помощи студентам

Составьте программу, позволяющую закрасить поле робота размером 9х9 с использовании процедуры Row:
Б) в клетку

@Puporev · 02.02.2021, 09:50

Создадим задание (task). //Посмотреть здесь: Справка, Модули конструкторов заданий, Создание заданий для исполнителя Робот.

Pascal

unit RobTasks;
interface
uses RobotTaskMaker;
implementation
procedure FirstRob;
begin
  TaskText('Закрасить помеченные клетки с использованием процедуры Row');
  Field(9,9);//размер поля
  RobotBegin(9,9);//начало рисования
  RobotEnd(1,1);//конец
  for var i:=1 to 9 do
  for var j:=1 to 9 do
  if odd(i)then Tag(i,j);//помеченные клетки
end;
 
begin
  RegisterGroup('myrob','Мои задания для Робота','RobTasks',1);
  RegisterTask('myrob1',FirstRob);
end.

Программа.

Pascal

uses Robot, RobTasks;
procedure Row(n:integer);
begin
Paint;
for var i:=1 to 8 do
 begin 
  if odd(n)then Left else Right;
  if not odd(i)then Paint;
 end;
if n>1 then Up;
end; 
begin
  Task('myrob1');
  for var i:=9 downto 1 do Row(i);
end.

@Вероника52 0 / 0 / 0 Регистрация: 28.09.2016 Сообщений: 26
		1
	Робот 01.02.2021, 23:15. Показов 2779. Ответов 1 Метки паскаль abc.net (Все метки) Составьте программу, позволяющую закрасить поле робота размером 9х9 с использовании процедуры Row: Б) в клетку Миниатюры 0

	02.02.2021, 09:50