)pascal abc 1. развернуть обе половинки массива в обратном порядке. считая, что массив имеет четное число элементов. пояснения из массива (1, 2, 3, 4, 5, 6, 7, 8) нужно получить массив (4, 3, 2, 1, 8, 7, 6, 5 2. сдвинуть все элементы массива на одну позицию влево (циклически). первый элемент должен оказаться на месте последнего. 3. сдвинуть все элементы массива на одну позицию вправо (циклически). последний элемент должен оказаться на месте первого.

во всех программах у меня будет использоваться процедура swap:

 

procedure swap(a: ^real; b: ^real); var    t: real; begin    t : = a^;     a^ : = b^;     b^ : = t; end;

 

swap(x,y) - меняет местами значения x и y.

 

1.

var    a: array[1..100] of real;     i, j, n: integer;

begin

    readln(n);     for i : = 1 to n do      read(a[i]);     for j : = 1 to (n div 2) - 1 do      for i : = 1 to (n div 2) - j do          swap(a[i], a[i + 1]);     for j : = 1 to (n div 2) - 1 do      for i : = (n div 2) + 1 to n - j do          swap(a[i], a[i + 1]);     for i : = 1 to n do      writeln(a[i])end.

 

2.

var    a: array[1..100] of real;     i, n: integer;

begin

    readln(n);     for i : = 1 to n do      read(a[i]);     for i : = 1 to n - 1 do      swap(a[i], a[i + 1]);     for i : = 1 to n do      writeln(a[i])end.

 

3.

var

    a: array[1..100] of real;     i, n: integer;

begin

    readln(n);     for i : = 1 to n do      read(a[i]);     for i : = n downto 2 do        swap(a[i], a[i - 1]);     for i : = 1 to n do      writeln(a[i])end.

q1 - указатель. В начале программы указывает на второй элемент последовательности

Программа говорит, что если указатель q1 указывает на единицу, то надо ее исправить на единицу и сместиться вправо... т.е. указатель будет двигаться вправо до тех пор, пока не встретит ноль.

Таким образом в конце выполнения первого правила указатель q1 сместится в конец последовательности (до нуля)

Далее, если указатель q1 показывает на ноль, то меняем ноль на единицу, меняем указатель q1 на q2 и сдвигаемся влево.

После выполнения второго правила получаем последовательность 0111111 и указатель q2 на предпоследнюю единицу.

Третьим правилом q2 - сдвигается влево до достижения нуля

После его выполнения получаем последовательность 0111111 и указатель q2 на первый ноль

Четвертое правило заменяет указатель q2 на q0 и сдвигается вправо

Таким образом получаем в конце программы последовательность 0111111  и  указатель q0 на первую единицу.

Объяснение:

Первый

В открывшемся окошке проводим курсором мыши по сетке и выбираем нужное количество ячеек в таблице. При этом в документе будет отображаться таблица с указанным количеством ячеек. Пока вы не кликнули левой кнопкой мыши, ее размеры можно менять, просто передвигая курсор в области 1 (рис. 1) Выбрав нужные размеры, закрепите их кликом левой кнопки мыши. И таблица будет вставлена в документ. Если вам необходимо большее количество строк и столбцов, то их можно будет добавить позже или воспользуйтесь

Второй

В меню Таблица выбираем команду Вставить таблицу (выделено оранжевой рамкой)

Перед вами откроется окно Вставка таблицы.

В этом окне нужно ввести Число столбцов и Число строк будущей таблицы. После того, как укажете число столбцов и число строк - нажимаете ОК

Таблица появится на странице:

Третий

В меню Таблица выбираем команду Нарисовать таблицу (на рис.2). Курсор примет вид карандаша и вы можете им нарисовать таблицу уже на ваш вкус.

Вставить таблицу Word

Все указанные доступны и в других версиях Microsoft Word. Небольшое отличие есть в старой версии Word 2003. Там вызов осуществляется так:

В Word 2003 (Word XP), в меню Таблица (на рис. 6 обведено красным карандашом) выбираем: Вставить ==> Таблица (подчеркнуто красным карандашом).