VPF::[Паскаль] Массивы и сортировка

Izover

Дата 21.1.2008, 21:30 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем привет , я начинающий программист)

У меня тут 2 задачи, хочу попросить о помощи, и мне интересно как они делаются
вот:

Код


1. Дан двумерный массив. Найти наибольший нечетный элемент выше побочной диагонали и наимаеньший четный элемент ниже побочной диагонали
с указанием их индексов. Создать новый массив, в котором найденные элементы поменяются местами.
2."Сортировка"-Дан двумерный массив,четные элементы по возрастанию по всей матрице.

Frees

Дата 24.1.2008, 10:27 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

а сам делать пробовал...?? или ты хочеш чо бы за тебя все далали...? или ты мжет незнаеш с чег начать?

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

Кольцов Виктор Владимирович

volvo877

Дата 24.1.2008, 14:27 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Цитата(Izover @ 21.1.2008, 20:30

)

хочу попросить о помощи

Ну, так и просил бы о помощи в разделе "Центр помощи"... Переезжаем.

volvo877

Дата 24.1.2008, 14:28 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Для домашних заданий, курсовых, существует "Центр Помощи"

Тема перенесена!

Ofer

Дата 24.1.2008, 23:00 (ссылка)

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

Загрузка ...

Опытный

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

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

Первое задание так

Код


uses CRT;
const
 n = 5;
var
  min, max, i, j, nmaxi, nmaxj,nmini, nminj : Integer;  //описываем нужные переменные
  a : array [0..n,0..n] of Integer;
begin
  ClrScr;
  Randomize;
  WriteLn('Исходная матрица');     //заполняем марицу и выводим ее на экран
  WriteLn;
  for i := 0 to n do
  begin
    for j := 0 to n do
    begin
      a[i,j] := Random(100) - 50;
      Write(a[i,j],'  ');
    end;
    WriteLn;
  end;
  WriteLn;
  for i := 0 to n do
  for j := i + 1 to n do
  if (a[i,j] mod 2 <> 0) then      //находим нечетный элемент выше побочной диагонали
  begin                            //с которым будем сравнивать
    nmaxi := i;
    nmaxj := j;
    max := a[nmaxi,nmaxj];
  end;
  for i := 0 to n do               //теперь, когда у нас есть елемент для сравнения
  for j := i + 1 to n do           //начинаем переберать согласно условия
  if (max < a[i,j]) and (a[i,j] mod 2 <> 0) then
  begin
    max := a[i,j];
    nmaxi := i;
    nmaxj := j;
  end;
  for i := 1 to n do              //минимальный ниже побочн. диагонали ищеться аналогично
  for j := 0 to i - 1 do
  if (a[i,j] mod 2 = 0) then
  begin
    nmini := i;
    nminj := j;
    min := a[nmini,nminj];
  end;
  for i := 1 to n do
  for j := 0 to i - 1 do
  if (min > a[i,j]) and (a[i,j] mod 2 = 0) then
  begin
    min := a[i,j];
    nmini := i;
    nminj := j;
  end;
  a[nmini,nminj] := max;        //когда все понаходили можно поменять их местами
  a[nmaxi,nmaxj] := min;
  WriteLn('R E Z Y L T A T');   //выводим результаты
  WriteLn;
  WriteLn('Максимальный ',max,' с индексами i = ',nmaxi,'; j = ',nmaxj);
  WriteLn('Минимальный ',min,' с индексами i = ',nmini,'; j = ',nminj);
  WriteLn;
  WriteLn('Новая матрица');
  WriteLn;
  for i := 0 to n do
  begin
    for j := 0 to n do
    Write(a[i,j],'  ');
    WriteLn;
  end;
  ReadLn;
end.

Второй допиши че надо с элементами сделать. Отсортировать четные по возрастанию?
А вообще Izover, если ты хочеш учиться программировать, то старайся сам решить. А уж если че действительно не получаеться или возникли серъезные вопросы, то тогда пиши, тебе обязательно помогут. По другому толку не будет.

Rodman

Дата 25.1.2008, 10:04 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

M
Rodman

Модератор: Пожалуйста, один топик - один вопрос.

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

CRM с функцией АвтоОбзвона

Лотереи мира

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