двумерные массивы, Очень очень срочно Опции

[Lyorri]

Ребята,помогите!!! мне нужно решить 2 задачки.Вот уже сессия через 2 дня начнется..одна на одномерный массив,а другая на двумерный.
1.двумерный:Создать матрицу A[1..N,1..M].Упорядочить ее строки по убыванию их первых элементов.
2.одномерный:Создать массив целых чисел B[1..N].Сформировать новый массив,содержащий суммы элементов,раположенных между соседними локальными минимумами.Заранее большое спасибо!!!

[Lapp]

1. Матрицу как задавать? случайным образом? Элементы целые? Тогда так:

fo j:=1 to M for i:=1 to N do A[i,j]:=Random(MaxInt);

Что касается сортировки - посмотри тему FAQ (ссылочка вверху, красная), там есть. Единственная загвоздка - как менять строки. Подумай, если не получится - спрашивай.

2. Локальный минимум, как я понимаю, удовлетворяет условию:

((i=1) or (B[i-1]>B[i]) and ((i=N) or (B[i]<B[i+1]))

Проверяй его в цикле и, если выполнено - добавляй число в массив C[j], увеличивая его счетчик j :

Inc(j);
C[j]:=B[i];

Упс, ошибочка... Серое - неправильно. забыл, что спрашивается в условии . Сейчас исправлюсь!

Пока записанное выше условие не выполено, накапливай сумму элементов. Как только оно выполнится - записывай его в новый массив C (как в том фрагменте, что неправильный) и обнуляй переменную для накапливания суммы

[Lyorri]

Lapp,с одномерным массивом вроде разобрался,а вот с двумерным пока чет не очень получается.

Вот программка(если конечно ее можно так назвать)

{создать матрицу A[1..N,1..M].упорядочить ее строки по убыванию их первых элементов.}

{-------------}
{для того,чтобы поменять местами строки в матрице максимально быстро,матрицу нужно задавать как массив строк:}
program one;
const
  n = 10; { число строк }
  m = 8; { число столбцов }
type
  stroka = array[1 .. m] of integer;
  smatrix = array[1 .. n] of stroka;


{при таком определении для того,чтобы поменять местами строки матрицы,достаточно сделать следующее:}
procedure sort(var a: smatrix);
          var{const} i, j: integer;
    var c:stroka;
       begin
  for i:=2 to n do
     for j:=n downto i do
     begin
      if c[j-1]>c[j] then
      begin
         c:=a[j-1];a[j-1]:=a[j];a[j]:=c;
      end;
       end;


{вывод готовой матрицы}
procedure print(var a: smatrix);
  var i, j: integer;
  begin
     for i := 1 to n do
      begin
        for j := 1 to m do
          write(a[i,j]:4);
        writeln
      end;
  end;

var
  a: smatrix;
  i, j: integer;

begin
  { заполнение матрицы }
  randomize;
  for i := 1 to n do
    for j := 1 to m do
      a[i,j] := random(100);

   { матрица до обмена }
  writeln('до обмена:'); print(a);

  { обмен строк }
  sort(a);

  { матрица после обмена }
  writeln('после обмена:'); print(a);
end.

М

Пожалуйста, используй теги для программного текста (выделить программу блоком и выбрать нужный тип в меню CODE сверху от окна ввода) -- Lapp

Сообщение отредактировано: Lapp - 17.10.2007 12:52