В реляционной базе данных:
1) поля - это атрибуты объекта (его характеристики). Они располагаются в определенном порядке и имеют свое уникальное имя.
2) строка таблицы - это запись.
3) столбец таблицы - это поле.
4) имя таблицы - фундаментальный именованный объект реляционной БД.
5) функции объекта - представление поименованного набора команд языков программирования баз данных, который возвращает результат вычислений.
6) глобальная сеть - Всемирная паутина любых сетей связи, которая охватывает всю нашу планету.
Для робота в системе Кумир такие программы например подойдут: (размеры поля- любые (от 1x1), размеры узоров настраиваются- задавайте любое смещение между линиями пунктирными и линиями клеток (начиная от 1, т.е. без зазоров), любой размер пунктира- задаётся длина самого штриха пунктира и его длина вместе с пробелом)
1) Закраска всего поля горизонтальными пунктирными линиями:
использовать Робот
цел г,в
алг |рисуем пунктирные линии (начальное положение - левый верхний угол)
нач
в:=0
нц
г:=0
нц пока mod(в,3)=0 |смещение до следующей линии
если mod(г,3)<2 то закрасить всё |длина цикла / длина пунктира
если справа свободно то вправо иначе выход всё
г:=г+1
кц
если снизу свободно то вниз иначе выход всё
нц пока слева свободно
влево
кц
в:=в+1
кц
кон
2) Закраска только углов поля:
использовать Робот
алг |закраска всех углов (начальное положение - левый верхний угол)
нач
закрасить
нц пока справа свободно
вправо
кц
закрасить
нц пока снизу свободно
вниз
кц
закрасить
нц пока слева свободно
влево
кц
закрасить
кон
3) Закраска всего поля узором в клетку:
использовать Робот
цел г,в
алг |рисуем клетки (начальное положение - левый верхний угол)
нач
в:=0
нц
г:=0
нц |смещение до следующей линии (по горизонтали и вертикали)
если mod(г,3)=0 или mod(в,3)=0 то закрасить всё
если справа свободно то вправо иначе выход всё
г:=г+1
кц
если снизу свободно то вниз иначе выход всё
нц пока слева свободно
влево
кц
в:=в+1
кц
кон
Начальное положение везде- левый верхний угол. Если нужно другое- то либо в программе меняйте все команды верх-низ местами (или даже лев-прав если надо), либо в начале программы можно добавить циклы приведения робота откуда угодно в верхний левый угол.
Что то типа:
нц пока слева свободно; влево кц
нц пока сверху свободно; вверх кц
program z1;
uses crt;
var m: array[1..10] of integer;
i,a,b,c:integer;
begin
for i:=1 to 10 do
readln(m[i]);
writeln;
a:=0;
b:=0;
c:=1;
for i:=1 to 10 do
begin
if m[i]<=0 then a:=a+m[i];
if m[i] mod 3 = 0 then b:=b+1;
if i mod 2 = 0 then c:=c*m[i];
end;
writeln(Сумма отриц'',a);
writeln(кратные 3'',b);
writeln(произв'',c)
end.