Задача с матрицами., Крайне геморная :( Опции

[Fest]

Задача:
Вводится матрица MR(n,m) с двузначными числами. Сформировать новую матрицу RM(m,n) в которой:
а) в элементах, где первая цифра больше второй выполнить перестановку цифр.
б) элементы, где цифры равны, забить пробелами
в) остальные числа представить сочетанием двух букв, номер которых в алфавите соответствует значению цифры.
Обе матрицы вывести.

Может кто-нибудь подсказать, как это выполнить?.. Особенно меня интересует пункт В. Если не трудно, напишите пожалуйста(только попроще, без процедур, функций и так далее)программу. Или хотя бы опишите как можно выполнить тот или иной пункт. Буду крайне благодарен.

[volvo]

Особенно меня интересует пункт В

var
  RM: array[1 .. n, 1 .. m] of string[2]; { <--- Если хочешь "забивать пробелами" }

{ тут - пункты А и Б }
...
else begin
  RM[i, j][1] := chr(ord('A') + (MR[i, j] div 10));
  RM[i, j][2] := chr(ord('A') + (MR[i, j] mod 10));
end;

Достаточно просто? Даже не стал усложнять дополнительным циклом... То же самое касается и остальных пунктов. Как обращаться к отдельной цифре я показал, как сравнивать отдельные цифры между собой - тоже должно быть понятно...

Сообщение отредактировано: volvo - 15.12.2007 23:27