VPF::Обработка массивов в Object Pascal - Форум программистов

Леночка

Дата 5.6.2008, 11:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 5.6.2008

Репутация: нет
Всего: нет

Здраствуйте!
Пожалуйста, помогите в написании лабораторной работы по Object Pascal. Мучаюсь уже 2 дня, но не могу словить суть решения.
Нужно в двухмрном массиве упорядочить элементы на главной диагонали по возрастанию.
Кто знает как то делается, помогите, пожалуйста!
Заранее, спасибо!

morpheyushka

Дата 5.6.2008, 12:40 (ссылка)

(голосов:1)

Загрузка ...

Зеленый человек

Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

Репутация: 2
Всего: 8

если двухмерный - тогда так...

Код


if mas[1,1] > mas[2,2] then
 begin
  peremennaya := mas[1,1];
  mas[1,1] := mas[2,2];
  mas[2,2] := peremennaya;
 end

если больше - тогда цикл делать и методом пузырьков работать с эллементами a[i,i] и a[i+1,i+1]

--------------------

Спасибо делается вот так!!!

THandle

Дата 5.6.2008, 12:49 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

morpheyushka, двумерный массив это:

Код



a : array [0..N, 0..N] of integer;

b : array of array of integer;

morpheyushka

Дата 5.6.2008, 12:54 (ссылка)

(нет голосов)

Загрузка ...

Зеленый человек

Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

Репутация: 2
Всего: 8

внатуре))))
ну цикл тогда прикрутить и вместо цифр счётчик цикла подставить и всё будет ок smile

2 THandle, спасибо за поправку

--------------------

Спасибо делается вот так!!!

THandle

Дата 5.6.2008, 13:02 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Что то такое если я правильно понял:

Код


program Project1;

{$APPTYPE CONSOLE}
const
  MAX = 5;

var
  a : array [1..MAX, 1..MAX] of integer;
  i, j, tmp : integer;

procedure WriteArray;
begin
  for i := 1 to MAX do
    begin
      for j := 1 to MAX do
         write(a[i, j], '  ');
      writeln;
    end;
end;

begin
  for i := 1 to MAX do
    for j := 1 to MAX do
      begin
        write('Enter next element: ');
        readln(a[i, j]);
      end;

  writeln('Before sort: ');
  WriteArray;

  for i := 1 to MAX - 1 do
    for j := 1 to MAX - i do
      if a[j, j] > a[j + 1, j + 1] then
        begin
          tmp := a[j, j];
          a[j, j] := a[j + 1, j + 1];
          a[j + 1, j + 1] := tmp;
        end;

  writeln('After sort: ');
  WriteArray;

  readln;
end.

Леночка

Дата 5.6.2008, 14:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 5.6.2008

Репутация: нет
Всего: нет

Спасибо огромное!
Надеюсь, что завтра сдам эту лабу. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »