Матрицы, min и max. Опции

[nadia]

Очень нужно решить контрольную в универ по турбо паскалю. Я его учила 2 года назад, но почти ничего не помню. Помоги пожалуйста. Буду очень презнательна.
Вот задачка:
Задана матрица А[M/M] действительных чисел. Поменять местами максимальный и минимальный элементы главной диагонали. Вывести преобразованную матрицу.

[мисс_граффити]

1. найти минимум и максимум, запомнить их индексы. точнее, запомнить одно число, т.к. элементы на главной диагонали имеют индексы вида [1,1] [2,2] и т.д.
2. поменять местами.
на каком этапе проблемы?

[nadia]

Минимум и максимум вроде нашла, а вот как поменять их местами возникла проблемка! Подскажи пожалуйста что делать?? [quote name='мисс_граффити' date='29.11.2006 20:30' post='81201']
Буду очень благодарна!

[мисс_граффити]

DopPerem:=a[mini,mini];
a[mini,mini]:=a[maxi,maxi];
a[maxi,maxi]:=DopPerem; 

[nadia]

Пыталась найти минимальный и максимальный, вроде написала, но ничего не получается. Не могу собрать все в кучу. Матрица не вводиться. Пишет введите 'n' а дальше данные вводятся в столбик. И все.
Что мне делать???

[YnickYM]

или можно без ввода доп. переменной:

a[max;max]:=a[max+min;max+min]
a[min;min]:=a[max-min;max-min]
a[max;max]:=a[max-min;max-min]

Пыталась найти минимальный и максимальный, вроде написала, но ничего не получается. Не могу собрать все в кучу. Матрица не вводиться. Пишет введите 'n' а дальше данные вводятся в столбик. И все.
Что мне делать???

for i:=1 to M do
for j:=1 to M do
readln(a[i,j]);

Сообщение отредактировано: YnickYM - 29.11.2006 22:05

[nadia]

Написала вот такую программу:

Program xxx;
Uses crt;
Var a:array[1..10,1..10] of integer;
       i,j,min,imin,jmin,max,n,m: integer;
BEGIN
        ClrScr;
        Write ('m=');
         ReadLn (m);
        Write ('n=');
        ReadLn (n);
       for i:= 1 to m do
       for j:= 1 to n do
       Read (a[i,j]);
     begin
           max:= a[1,1];
           for i:= 1 to m do
           for j:= 1 to n do
           if (i=j) and (a[i,j]>max) then
           max:= a[i,j];
     end;
          begin
                min:=a[1,1]; imin:=1; jmin:=1;
                for i:= 1 to m do
                for j:= 1 to n do
                if (i=j) and (a[i,j]<min) then
                    begin 
                          min:=a[i,j];
                          imin:= i;
                          jmin:= j;
                    end;
           end;
          WriteLn ('max', max);
           WriteLn ('min', min);
     End.

А вот как сделать так чтоб она правильно работала не могу понять??? Подскажите пожалуйста в чем ошибка и как правильно вывести НОВУЮ ПРЕОБРАЗОВАННУЮ МАТРИЦУ! И как сделать чтоб матрица имела вид матрицы а не одного длинного столбца. Помогите очень прошу!!!! Заранее большое спасибо!


Теги !!!

Сообщение отредактировано: volvo - 30.11.2006 11:45

[nadia]

[quote name='мисс_граффити' date='29.11.2006 20:30' post='81201']
Теперь коечто изменила и получилось, что минимальный и максимальный элементы находятся правильно, а вот как поменять их местами - с этим большущая проблемка. Помогите пожалуйста, скажите где проблемка.

Program xxx;
Uses crt;
Var a:array[1..10,1..10] of integer;
       i,j,min,imin,jmin,max,n: integer;
BEGIN
        ClrScr;
        Write ('n=');
         ReadLn (n);
       for i:= 1 to n do
       for j:= 1 to n do
       Read (a[i,j]);
     begin
           max:= a[1,1];
           for i:= 1 to n do
           for j:= 1 to n do
           if (i=j) and (a[i,j]>max) then
           max:= a[i,j];
     end;
          begin
                min:=a[1,1]; imin:=1; jmin:=1;
                for i:= 1 to n do
                for j:= 1 to n do
                if (i=j) and (a[i,j]<min) then
                    begin 
                          min:=a[i,j];
                          imin:= i;
                          jmin:= j;
                    end;
           end;
          WriteLn ('max', max);
           WriteLn ('min', min);
     End.

Теги !!!

Сообщение отредактировано: volvo - 30.11.2006 11:45

[nadia]

Program xxx;
Uses crt;
Var a:array[1..10,1..10] of integer;
       i,j,min,imin,jmin,max,n: integer;
BEGIN
        ClrScr;
        Write ('n=');
         ReadLn (n);
       for i:= 1 to n do
       for j:= 1 to n do
       Read (a[i,j]);
     begin
           max:= a[1,1];
           for i:= 1 to n do
           for j:= 1 to n do
           if (i=j) and (a[i,j]>max) then
           max:= a[i,j];
     end;
          begin
                min:=a[1,1]; imin:=1; jmin:=1;
                for i:= 1 to n do
                for j:= 1 to n do
                if (i=j) and (a[i,j]<min) then
                    begin 
                          min:=a[i,j];
                          imin:= i;
                          jmin:= j;
                    end;
           end;
          WriteLn ('max', max);
           WriteLn ('min', min);
     End.

Написала вот что. Максимальный и минимальный элементы находятся, а вот чтоб поменять их местами - с этим оказалась проблемка. Помогите кто нибудь пожалуйста!!!

М

nadia, при вставлении программных текстов, пожалуйста, используй теги! Видишь над окном ввода окошко выбора со словом CODE? Выдели свою программу блоком, ткни туда и выбери, что надо. Lapp

[мисс_граффити]

nadia, во-первых, правила форума к тебе тоже относятся.
Зачем создавать новую тему?
И при размещении программ пользуйся тэгами - невозможно же читать!
как менять местами элементы - я, по-моему, вполне четко написала. что непонятно?

a[max;max]:=a[max+min;max+min]
a[min;min]:=a[max-min;max-min]
a[max;max]:=a[max-min;max-min]

допустим, максимальный элемент на позиции 1,1
минимальный на 3,3
a[3,3]:=a[4,4];
a[1,1]:=a[-2,-2]
a[3,3]:=a[-2,-2]
YnickYM, что ты этим хотел сказать?
или max - это не индекс максимального, а он сам? тогда еще интереснее...

Сообщение отредактировано: мисс_граффити - 30.11.2006 0:00

[Lapp]

Я причесал твою прогу, чтоб читалась нормально.
Убрал несколько begin/end'ов.
При нахождении минимума ты запоминала индексы, а при нахождении максимума - нет . Я добавил.
В конце два очевидных оператора решают твою проблему..
Все добавления снабжены комментариями.

Uses
  crt;

Var
  a:array[1..10,1..10] of integer;
  i,j,min,imin,jmin,max,imax,jmax,n: integer; {imax and jmax added}

BEGIN
  ClrScr;
  Write ('n=');
  ReadLn (n);
  for i:=1 to n do for j:=1 to n do Read(a[i,j]);
  max:=a[1,1]; imax:=1; jmax:=1;              {2 statements added}
  for i:=1 to n do for j:=1 to n do if (i=j)and(a[i,j]>max) then begin
    max:=a[i,j];
    imax:=i;        {Added}
    jmax:=j;        {Added}
  end;
  min:=a[1,1]; imin:=1; jmin:=1;
  for i:=1 to n do for j:=1 to n do if (i=j)and(a[i,j]<min) then begin
    min:=a[i,j];
    imin:=i;
    jmin:=j;
  end;
  WriteLn ('max', max);
  WriteLn ('min', min);
  {Below the min and max interchange goes}
  a[imin,jmin]:=max;
  a[imax,jmax]:=min
End.

PS
В названии темы, пожалуйста, не пиши просьбы помочь - здесь 99.9% просьбы о помощи. Пиши краткое описание задачи. Успехов!

[мисс_граффити]

lapp, а ничего, что в соседней теме мы решаем ЭТУ же задачу, выложенную nadia?

2 мисс_граффити: извини, не заметил. Спасибо за наводку. Объединяю темы.
2 nadia: предупреждение!!

Сообщение отредактировано: lapp - 30.11.2006 11:30

[volvo]

или можно без ввода доп. переменной:

a[max;max]:=a[max+min;max+min]
a[min;min]:=a[max-min;max-min]
a[max;max]:=a[max-min;max-min]

А вылететь за границы матрицы не боишься? если max - min < 0, например?

[nadia]

Огромное Вам человеческое спасибо!!! Благодаря Вам я сделала свою контрольную в универ. Классно когда есть умные люди, которые разбираются в программировании. И что я нашла ваш сайт!!! Я от всей души вам благодарна. Еще раз БОЛЬШОЕ СПАСИБО!!!!!!!!!

[YnickYM]

Извиняюсь, чушь написал.

Вот мой вариант программы

Uses
crt;

Var
a:array[1..10,1..10] of integer;
i,j,min,max,n: integer;
BEGIN
ClrScr;
Write ('n=');
ReadLn (n);
for i:=1 to n do for j:=1 to n do
begin
Read(a[i,j]);
if j=n then writeln; end;
max:=1;
for i:=1 to n do for j:=1 to n do if a[i,i]>a[max,max] then max:=i;
min:=1;
for i:=1 to n do for j:=1 to n do if a[i,i]<a[min,min] then min:=i;
i:=a[min,min];
a[min,min]:=a[max,max];
a[max,max]:=i;
for i:=1 to n do //вывод преобразованной матрицы
for j:=1 to n do
begin
write(a[i,j],' ');
if j=n then writeln;
end;
readln;
End.

Сообщение отредактировано: YnickYM - 30.11.2006 22:06

[мисс_граффити]

замечательная программка.
скажи мне честно, ты ее ПОТЕСТИРОВАТЬ не пробовал?
как думаешь, имеет ли смысл строчка:

 if a[i,i]<a[max,max] then min:=i;

понимаешь, что меньше максимального элемента не только минимальный, но и многие другие?

a[max,max]:=a[min;min];
a[max,max]:=a[min,min];

пишем сценарий для мультфильма про Телепузиков? Это они все по два раза повторяют...

for i:=1 to n do for j:=1 to n do Read(a[i,j]);
for i:=1 to n do //вывод заданной матрицы 
for j:=1 to n do
begin
write(a[i,j],' ');
if j=n then writeln;
end;

Сразу при вводе выводить нельзя? Или тоже принципиально отделяешь ввод от вывода -чтобы не запутаться?

i:=a[min,min];

и зачем ты это делаешь? потом же все равно затираешь значение, хранящееся в i
продолжить или хватит?

[YnickYM]

замечательная программка.
скажи мне честно, ты ее ПОТЕСТИРОВАТЬ не пробовал?

Честно говоря, нет.

как думаешь, имеет ли смысл строчка:

 if a[i,i]<a[max,max] then min:=i;

понимаешь, что меньше максимального элемента не только минимальный, но и многие другие?

Исправлено

a[max,max]:=a[min;min];
a[max,max]:=a[min,min];

пишем сценарий для мультфильма про Телепузиков? Это они все по два раза повторяют...

Пардон, опечатка. Имелось ввиду:
i:=a[min,min];
a[min,min]:=a[max,max];
a[max,max]:=i;

for i:=1 to n do for j:=1 to n do Read(a[i,j]);
for i:=1 to n do //вывод заданной матрицы 
for j:=1 to n do
begin
write(a[i,j],' ');
if j=n then writeln;
end;

Сразу при вводе выводить нельзя? Или тоже принципиально отделяешь ввод от вывода -чтобы не запутаться?

Исправлено.

продолжить?

Если вас не затруднит

[мисс_граффити]

так... вывод массива ты вообще убрал - ну правильно, пусть пользователь тренирует память. подумаешь, 100 чисел запомнить.

зачем 4 цикла:

max:=1; 
for i:=1 to n do for j:=1 to n do if a[i,i]>a[max,max] then max:=i;
min:=1; 
for i:=1 to n do for j:=1 to n do if a[i,i]<a[min,min] then min:=i;

, когда достаточно 1?
и зачем начинать с 1, если можно с 2?

в общем, Правила:

7. Проверяйте программы перед тем, как разместить их на форуме!!!

З.Ы. На будущее - делай человеческие отступы. Невозможно ж читать код!

Сообщение отредактировано: мисс_граффити - 30.11.2006 22:46

[YnickYM]

так... вывод массива ты вообще убрал - ну правильно, пусть пользователь тренирует память. подумаешь, 100 чисел запомнить.

for i:=1 to n do for j:=1 to n do
begin
Read(a[i,j]);
if j=n then writeln; end;

какой вывод?

del

Сообщение отредактировано: YnickYM - 30.11.2006 23:37