IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Задача с матрицами., Крайне геморная :(
Fest
сообщение 15.12.2007 19:10
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Сектант

Репутация: -  0  +


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

Может кто-нибудь подсказать, как это выполнить?.. Особенно меня интересует пункт В. Если не трудно, напишите пожалуйста(только попроще, без процедур, функций и так далее)программу. Или хотя бы опишите как можно выполнить тот или иной пункт. Буду крайне благодарен.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Fest
сообщение 27.12.2007 23:41
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Сектант

Репутация: -  0  +


Так-с, а вот щас реально проблема... Писал код, в итоге выполнил 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)?

Сообщение отредактировано: Fest - 28.12.2007 0:22
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.07.2025 7:24
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"