Задача: Вводится матрица 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;
Достаточно просто? Даже не стал усложнять дополнительным циклом... То же самое касается и остальных пунктов. Как обращаться к отдельной цифре я показал, как сравнивать отдельные цифры между собой - тоже должно быть понятно...
Спасибо за помощь! Попробую написать, надеюсь получится =) Опыта к сожалению еще мало Я зеленый новичок в программирование, так что, если буду задавать тупые вопросы, прошу не казнить
Fest
28.12.2007 2:34
Пытаюсь разобраться с этой прогой, пытаюсь написать... С первым пунктом были проблемы... Щас вроде все сделал. Извините, за беспокойство и кучу редактирований сообщения. (уже 4-ый раз редактирую)
Fest
28.12.2007 3:41
Так-с, а вот щас реально проблема... Писал код, в итоге выполнил 2 пункта, все как надо... С третьим запоролся.. Даже не знаю, что и делать. Голова плохо варит сейчас Вот код:
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. Исправьте ошибку, а еще лучше направьте на путь истинный. Ой-ой-ой... я тут внимательно посмотрел... я тут такого понаделал.. такая ересь.. Столько ошибок. Ну, да ладно, суть не в этом. Как сделать так, чтобы можно из массива 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 )
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.