последовательности Опции

[Денис домосед+]

Помогите пожалуста решить задачу.Через неделю сдавать надо, а я бум бум в программировании.Хотя бы намекните с чего начать,а то я совсем расклеился отчислять собираются.
Даны натуральное число N и две последовательности A1, A2, …, AN и B1, B2, …, BN. Определить, верно ли, что эти последовательности отличаются только порядком следования элементов.

[Федосеев Павел]

Пользуемся кнопками CODE и # в форме ответа для обрамления программы. И ещё форматтерами кода для повышения читабельности (см. здесь) - рекомендую JCF.

program Lab;

uses
  crt;

const
  n = 10;
var
  A: array[1..n] of integer;
  B: array[1..n] of integer;
  i: integer;
begin
{--------------------------------------
заполнение массивов
--------------------------------------}
  randomize;
  for i := 1 to n do
  begin
    A[i] := random(9) + 1;
    Write(A[i], ' ');
  end;
  WriteLn();
  for i := 1 to n do
  begin
    B[i] := random(9) + 1;
    Write(B[i], ' ');
  end;
  readln;
{--------------------------------------
убедимся, что исходные массивы различны
--------------------------------------}
  bDifferent:=false;
  for i:=1 to n do
    if A[i]<>B[i] then
    begin
      bDifferent:=true;
      break;
    end;
  if not bDifferent then
  begin
    writeln('Не верно. Обе последовательности идентичны.');
    halt;
  end;
{--------------------------------------
сортируем обе последовательности
--------------------------------------}
  Sort(A);
  Sort(B);
{--------------------------------------
проверяем отсортированные последовательности на идентичность
--------------------------------------}
................................
  if идентичны then
    writeln('Верно. Последовательности отличаются только порядком следования элементов.')
  else
    writeln('Не верно. Обе последовательности абсолютно различны.');
end.

Сортировку или сам организуй или поищи в FAQ или вообще в интернете.

Основы программирования пригодятся не только в паскале, но и при расчётах в математических пакетах MathCAD, Mathlab, Octvia, SciLab, Wolfram Mathematica.

Сообщение отредактировано: Федосеев Павел - 19.12.2013 7:02