106 lines
1.8 KiB
Plaintext
106 lines
1.8 KiB
Plaintext
Topic1=Программирование, 1 ступень. Классная работа
|
||
Topic2=Занятие 2. Исполнитель Робот
|
||
Author=Воскресная компьютерная школа мехмата ЮФУ (sunschool.mmcs.sfedu.ru), 2016
|
||
[=PascalABC]
|
||
[1]
|
||
[#]
|
||
// Исполнитель Робот имеет систему команд
|
||
// Left Right Up Down Paint
|
||
// В начале программы ОБЯЗАТЕЛЬНО должна быть вызвана
|
||
// команда Task с именем задания в апострофах.
|
||
// Решите задачу a1 для Робота, используя его команды.
|
||
|
||
uses Robot;
|
||
|
||
begin
|
||
Task('a1');
|
||
end.
|
||
[2]
|
||
// Решите задачу a2 для Робота, нажав кнопку
|
||
// с буквой L на панели инструментов и набрав имя RBa2.
|
||
// Программа-заготовка RBa2.pas создастся в текущем каталоге.
|
||
[3]
|
||
{ Нарисуйте с помощью Робота
|
||
*
|
||
*
|
||
*****
|
||
*
|
||
*
|
||
}
|
||
|
||
uses Robot;
|
||
|
||
begin
|
||
Field(15,11);
|
||
|
||
end.
|
||
[4]
|
||
{ Нарисуйте с помощью Робота
|
||
*****
|
||
* *
|
||
* *
|
||
* *
|
||
*****
|
||
}
|
||
|
||
uses Robot;
|
||
|
||
begin
|
||
Field(15,11);
|
||
|
||
end.
|
||
[5]
|
||
// Исправьте ошибки: пропушенные ";" и неправильные имена команд.
|
||
// Запустите программу для Робота.
|
||
uses Robot;
|
||
|
||
begin
|
||
Field(30,20);
|
||
Speed(7);
|
||
Up Up Up Up Paint
|
||
Down;
|
||
Left; Paint; Right
|
||
Right; Paint; Left;
|
||
Down;
|
||
Left; Left Paint; Right; Right;
|
||
Right; Right; Paint; Left; Left;
|
||
Down;
|
||
Lft; Left Left; Paint; Right; Right; Right
|
||
Rght; Right; Right; Paint; Left; Left; Left;
|
||
Down;
|
||
Left; Left; Left;
|
||
Paint Down;
|
||
Pant; Down
|
||
Paint; Down;
|
||
Paint; Rigth
|
||
Paint Right;
|
||
Paint; Rigth;
|
||
Paint; Right;
|
||
Paint Right;
|
||
Paint; Right
|
||
Paint; UUp;
|
||
Paint; Up
|
||
Paint; Up;
|
||
Paint; Up;
|
||
Left;Left; Left
|
||
end
|
||
[6]
|
||
// Перепишите с доски программу вычисления периметра P
|
||
// и площади S прямоугольника по известным сторонам a,b.
|
||
|
||
begin
|
||
|
||
end.
|
||
[7]
|
||
// Опишите все необходимые переменные в разделе описаний
|
||
// до строки begin основной программы.
|
||
|
||
|
||
begin
|
||
read(a,b);
|
||
radd := a + b;
|
||
rmult := a * b;
|
||
Print(radd,rmult);
|
||
end.
|
||
|