Вопрос по информатике:
Составьте программу изображения на любое поле(паскаль,робот)СРОЧНО НУЖНО!!!!!
Пожаловаться
- 24.08.2018 20:33
- Информатика
- remove_red_eye 16229
- thumb_up 22
Ответы и объяснения 1
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
uses Robot;
begin
var (m,n):=(13,6);
Field(n,m);
loop m div 2 do Up;
loop n div 2 do Left;
for var i:=1 to m div 2+m mod 2 do
begin
For var j:=1 to n-1 do
begin
Paint;
if i.IsEven then Left else Right;
Paint;
end;
if i=m div 2+m mod 2 then exit else begin Down; Down; end;
end;
end.
P.S Сделал как умею) Не умею коротко писать с роботом.
//Версия 3.3, сборка 1634 (14.02.2018)
uses Robot;
begin
var (m,n):=(13,6);
Field(n,m);
loop m div 2 do Up;
loop n div 2 do Left;
for var i:=1 to m div 2+m mod 2 do
begin
For var j:=1 to n-1 do
begin
Paint;
if i.IsEven then Left else Right;
Paint;
end;
if i=m div 2+m mod 2 then exit else begin Down; Down; end;
end;
end.
P.S Сделал как умею) Не умею коротко писать с роботом.
Пожаловаться
- 25.08.2018 20:25
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы