program sort_random_chislsa;
const n=15;
var i,j,x:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do a[i]:=random(101)-50;
for i:=1 to n do write(a[i], ' ' );
writeln;
writeln('Вот и сортировка по возрастанию');
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]<a[i] then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for i:=1to n do write (a[i], ' ' );
writeln('Теперь сортируем это по убыванию');
for i:=1 to n do a[i]:=random(101)-50;
for i:=1 to n do write(a[i], ' ' );
writeln('Вот так');
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]>a[i] then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for i:=1to n do write (a[i], ' ' );
end.
Исполнитель Чертёжник предназначен для построения рисунков на координатной плоскости.
Чертёжник имеет перо, которое можно поднимать, опускать и перемещать. При перемещении опущенного пера за ним остаётся след — отрезок от предыдущего положения пера до нового. При перемещении поднятого пера никакого следа на плоскости не остаётся. В начальном положении перо Чертёжника всегда поднято и находится в точке (0, 0).
По команде поднять перо Чертёжник поднимает перо. Если перо уже было поднято, Чертёжник игнорирует эту команду: он не меняет положение пера и не сообщает об отказе. Иначе говоря, каким бы ни было положение пера до команды поднять перо, после этой команды оно будет поднятым.
Точно так же, независимо от первоначального положения, после выполнения команды опустить перо оно оказывается опущенным, т. е. готовым к рисованию.
Рисунки Чертёжник выполняет с команд сместиться в точку и сдвинуться на вектор.
По команде сместиться в точку (а, b) Чертёжник сдвигается в точку с координатами (а, b). На рисунке 64 показаны результаты выполнения команды сместиться в точку (2, 3) при различных положениях пера до этой команды. Видно, что, независимо от предыдущего положения, перо оказывается в точке (2, 3), но длина и направление отрезка, который при этом чертится, могут быть различны. Команду сместиться в точку называют командой абсолютного смещения.
