Обратный элемент в последовательности чисел

@Kvothe Bloodles · Регистрация: 13.05.2018

Author24 — интернет-сервис помощи студентам

Здраствуйте. Итак, есть произведение чисел вида x0, x1, x2, … и им обратных в хаотическом порядке. При помощи применения соотношений группы, нужно привести его к следующей форме. Положительные числа должны идти в начале в порядке возрастания индексов, а отрицательные — в конце, в порядке убывания индексов. Сам алгоритм похож на алгоритмы сортировки.

Если мы видим подслово вида x(j)x(i), где j > i, то заменяем его на x(i)x(j+1).

Подслово вида x(i)^{-1}x(j)^{-1} заменяется на x(j+1)^{-1}x(i)^{-1}.

Если встретилось произведение отрицательной буквы на положительную, то возможны три подслучая:

x(i)^{-1}x(i) сокращается;

x(j)^{-1}x(i) заменяется на x(i)x(j+1)^{-1} при i < j

x(i)^{-1}x(j) заменяется на x(j+1)x(i)^{-1} при i < j.

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

x(0)x(2)x(2)x(5)x(7)x(5)^{-1}x^5^{-1}x(1)^{-1}.

Мой вопрос такой: Как в паскале реализовать обратные элементы последовательности описаной выше. Есть следующая идея. Например, в виде пары (i,k), где i=0,1,2,…, k=1 или -1. Первое означает x(i), второе x(i)^{-1}

Как например в данной программе добавить этот обратный элемент. Конечно в данном примере он ни на что не влияет, но просто показать как он смотрится в коде очень помогло бы.

Заранее спасибо

Pascal

const n = 6;  {Заводим константу, это будет длина массива}
var i, j, k :integer;
m:array[1..n] of integer;
begin
 
 
Writeln('Введите массив:');
for i:=1 to n do begin
  Writeln(i, ' элемент:'); 
  Readln(m[i]);
end;
 
 
for i:=1 to n-1 do begin
  
  for j:=1 to n-i do begin
    if m[j]>m[j+1] then begin
      k:=m[j];
      m[j]:=m[j+1];
      m[j+1]:=k+1;
    end;
  end;
end;
for i:=1 to n do
Write(m[i], ' ');
 
 
end.

@Sun Serega · 15.04.2021, 20:10

Сообщение от Kvothe Bloodles

Как в паскале реализовать обратные элементы последовательности описаной выше

Элементы обязательно целые как у вас? По моему по заданию больший смысл имели бы вещественные числа.
Вещественные можно было бы никак не представлять, а так и присваивать, m[i] := 1/m[i];.

Ну а когда вам надо представить данные определённого вида - надо вводить новый тип данных. В данном случае подходит обычная и самая простая запись:

Pascal

type
  InversableInteger = record
    val: integer;
    is_inversed: boolean;
    
    constructor({ToDo});
    begin
      //ToDo
    end;
    
  end;

Pascal

1	var m: array of InversableInteger;

	15.04.2021, 20:10

Опции темы