Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача с матрицами.

Автор: Fest 15.12.2007 23:10

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

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

Автор: volvo 15.12.2007 23:27

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

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;


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

Автор: Fest 15.12.2007 23:40

Цитата(volvo @ 15.12.2007 19:27) *

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;


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


Спасибо за помощь! Попробую написать, надеюсь получится =) Опыта к сожалению еще мало sad.gif Я зеленый новичок в программирование, так что, если буду задавать тупые вопросы, прошу не казнить smile.gif

Автор: Fest 28.12.2007 2:34

Пытаюсь разобраться с этой прогой, пытаюсь написать... С первым пунктом были проблемы... Щас вроде все сделал. Извините, за беспокойство и кучу редактирований сообщения. (уже 4-ый раз редактирую)

Автор: Fest 28.12.2007 3:41

Так-с, а вот щас реально проблема... Писал код, в итоге выполнил 2 пункта, все как надо... С третьим запоролся.. Даже не знаю, что и делать. Голова плохо варит сейчас sad.gif Вот код:

uses crt;
var
mr : array[1..10,1..10] of string[2];
rm : array[1..10,1..10] of string[2];
i,j : integer;
m,n : integer;
error : integer;
k : integer;
Begin
clrscr;
readln(n);
readln(m);
readkey;
for i:=1 to n do
for j:=1 to m do begin
Writeln('mr[',i,j,']=');
read(mr[i,j]);
End;
for i:=1 to n do begin
for j:=1 to m do begin
write(mr[i,j]:3);
End;
Writeln;
End;
for i:=1 to n do begin
for j:=1 to m do begin
if mr[i,j][1]>mr[i,j][2] then begin
mr[i,j][1]:=rm[i,j][2];
mr[i,j][2]:=rm[i,j][1];
End
else begin
if mr[i,j]=mr[i,j] then begin
mr[i,j]:=rm[i,j];
rm[i,j]:='';
End;
End
else begin
rm[i,j][1]:=chr(ord('A')+(mr[i,j]);{вот тут вся и загвоздка type mismatch}
rm[i,j][2]:=chr(ord('A')+(mr[i,j]);{что можно сделать - я без понятий}
End;
readkey;
End;
Writeln;
end;
Readkey;
End.

Вот, проблема в массиве MR. Но вот только как её решить :\ Если массив MR делать как integer, тогда я не могу присвоить значения из него в массив RM. Исправьте ошибку, а еще лучше направьте на путь истинный. smile.gif Ой-ой-ой... я тут внимательно посмотрел... я тут такого понаделал.. такая ересь.. Столько ошибок. Ну, да ладно, суть не в этом. Как сделать так, чтобы можно из массива MR(типа integer) заносить нужные значения в массив RM(тип string)?

Автор: мисс_граффити 28.12.2007 4:35

нашла у себя в залежах на винте...
кто писал - не помню, так что никаких гарантий. вроде работает.

program bukvocifry;
uses crt;
var
MR,RM:array[1..100,1..100] of string[2];
i,j,n,m,proverka,error:integer;
begin
clrscr;
writeln('m?');
readln(m);
while (m>100) or (m<1) do
begin
writeln('1<m<100!');
readln(m);
end;
writeln('n?');
readln(n);
while (n>100) or (n<1) do
begin
writeln('1<n<100!');
readln(n);
end;
for i:=1 to n do
for j:=1 to m do
begin
writeln('vvedite element [',i,' ',j,']. uchityvaetsya 2 pervyh simvola');
readln(MR[i,j]);
while length(MR[i,j])<>2 do
begin
writeln('dogovarivalis o dvuznachnyh... davaite drugoe chislo!');
readln(MR[i,j]);
end;
{I-}
val(MR[i,j],proverka,error);
{I+}
while error<>0 do
begin
writeln('eto ne chislo! davaite drugoe');
readln(MR[i,j]);
{I-}
val(MR[i,j],proverka,error)
{I+}
end;

if MR[i,j][1]>MR[i,j][2] then
RM[i,j]:=MR[i,j][2]+MR[i,j][1]
else
if MR[i,j][1]=MR[i,j][2] then
RM[i,j]:=' '
else
RM[i,j]:=char(ord(MR[i,j][1])+79)+char(ord(MR[i,j][2])+79); {79 - это код А}
end;
clrscr;
for i:=1 to n do
begin
for j:=1 to m do
write(MR[i,j]:2,' ');
write(' ');
for j:=1 to m do
write(RM[i,j]:2,' ');
writeln;
end;
readln;
end.



что касается твоих ошибок - там несовместимость типов...
надо коды складывать, а не код с символом.
и со скобками что-то не то.

Автор: Fest 28.12.2007 4:50

Спасибо большое. Щас, попытаюсь вникнуть в это. Не очень пока что понятно, ну да ладно.. Мож пойму)) Уже трое суток не сплю :\ Голова ни к черту.. А как можно заполнить случайными числами string-массив? Все, кажись разобрался!(спасибо бутерброду! :D )