===== PascalABC.NET =====
procedure ЛевыйСдвигK(var a: array of integer; k: integer);
begin
var m := a.Length;
k := k mod m;
if k > 0 then
a := a[k:] + a[:k]
end;
procedure ПравыйСдвигK(var a: array of integer; k: integer);
begin
var m := a.Length;
k := k mod m;
if k > 0 then
a := a[m - k:] + a[:m - k]
end;
procedure ЛевыйСдвиг(var a: array of integer) :=
a := a[1:] + a[0:1];
procedure ПравыйСдвиг(var a: array of integer);
begin
var m := a.Length - 1;
a := a[m:] + a[:m];
end;
begin
// тест
var a := ArrRandom(8, 10, 99);
a.Println;
ЛевыйСдвиг(a);
a.Println;
ПравыйСдвиг(a);
a.Println;
ЛевыйСдвигK(a, 3);
a.Println;
ПравыйСдвигK(a, 3);
a.Println;
end.
Var a:array[1..10] of real; i:integer;
begin
for i:=1 to 10 do
a[i]:=(2*i-1)/cos(i);
for i:=1 to 10 do
writeln(i,'->',a[i]);
readln;
end.<span>
</span>
Вверх — переместить Робота на одну клетку вверх
вниз — переместить Робота на одну клетку вниз
влево — переместить Робота на одну клетку влево
вправо — переместить Робота на одну клетку вправо
закрасить — закрасить текущую клетку (клетку в которой находится Робот).
Так же есть циклы
если условие
то серия 1
иначе серия 2
все
выбор
при условие 1 : серия 1
при условие 2 : серия 2
…
при условие n : серия n
иначе серия n+1
И условия
слева стена
справа стена
снизу стена
сверху стена
клетка закрашена
слева свободно
справа свободно
снизу свободно
сверху свободно
клетка чистая
Var a:longint;
begin
read(a);
if a>0 then
a:=a+1;
<span>end.
</span>
// процедура обмена значений переменных а и b
procedure swapp(var a,b:integer);
var c: integer;
begin
c:=a;
a:=b;
b:=c;
end;
// основная программа
var a,b,c: integer;
begin
write('числа a b c через пробел: ');
readln(a,b,c);
if a>b then swapp(a,b);
if b>c then swapp(b,c);
writeln('среднее по значению: ',b);
end.
Ввод -вывод:
числа a b c через пробел: 25 14 18
среднее по значению: 18