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

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

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

Автор: Анна 4.05.2008 1:05

Дана матрица 4x6. Найти макс. элемент последних 3-х столбцов и заменить на минимальный элемент первой строки матрицы. Вывести на экран.

Макс и мин нашла. А как теперь заменить макс на мин и вывести результирующую матрицу? blink.gif 


uses crt;

var
A        : array [1..4, 1..6] of integer;
i,j, m, n      : byte;
max, min : integer;


begin
  clrscr;

  For i:=1 to 4 do
  for j:=1 to 6 do
  begin
    If j=1 then GoToXY (i,i);
    If j=2 then GoToXY (i+10,i);
    If j=3 then GoToXY (i+20,i);
    If j=4 then GoToXY (i+30,i);
    If j=5 then GoToXY (i+40,i);
    If j=6 then GoToXY (i+50,i);
    write ('A[',i,',',j,']=');
    read (A[i,j]);
  end;

  min:=a[1,1];
  For i:=1 to 1 do
  for j:=1 to 6 do
  begin
    If A[i,j] < min then min:=A[i,j];
  end;

  max:=0;
  For i:=1 to 4 do
  for j:=4 to 6 do
  begin
    If A[i,j] > max then begin max:=A[i,j]; A[i,j] := min; end;
  end;

Автор: compiler 4.05.2008 1:23

Цитата(Анна @ 3.05.2008 21:05) *
Макс и мин нашла. А как теперь заменить макс на мин и вывести результирующую матрицу? blink.gif
мне нечего в голову не лезет, кроме как, после нахождения минимума, делать как-то так:
{...}
        max := A[1, 4];         //кто тебе сказал что все элементы будут положительные? )
        for i := 1 to 4 do
                for j := 4 to 6 do 
                        If A[i, j] > max then max := A[i, j];
                
        for i := 1 to 4 do 
                for j := 4 to 6 do
                        If A[i, j] = max then A[i, j] := min;
{...}

зы и проверь программу на наличие лишних переменных;)

Автор: renesko1 4.05.2008 1:27

Вывод (так гораздо легче)


for i := 1 to ... do //строки
   begin
   for y := 1 to ... do ///столбцы
   write(i,y,'    ');
   writeln();
   end ;


Автор: compiler 4.05.2008 1:32

renesko1, сорри голова уже не работает под вечер, немного не так понял твой код... эт все из-за форматирования)

но все же выводится у тебе совсем не элементы матрицы;)

Автор: renesko1 4.05.2008 2:19

да извеняюсь, оправдыватся не буду



for i := 1 to ... do //строки
   begin
      for y := 1 to ... do ///столбцы
      write(matrix[i,y],'    '); // smile.gif 
      writeln;
   end ;


Только я не понял про begin и end ведь я поставил их что бы сначало вывести элементы 1 строки в ряд и перейти на 2 ?

Автор: volvo 4.05.2008 2:24

Цитата
Макс и мин нашла.
Находить надо не сами max/min, а их индексы, тогда задача будет решаться гораздо проще...

Автор: andriano 4.05.2008 2:47

А еще лучше - и то, и другое. (экстремумы - для последующего сравнения до конца цикла, а индексы - для последующей обработки за пределами цикла)

Автор: Анна 4.05.2008 11:52

Цитата(renesko1 @ 3.05.2008 23:19) *
да извеняюсь, оправдыватся не буду


for i := 1 to ... do //строки
   begin
      for y := 1 to ... do ///столбцы
      write(matrix[i,y],'    '); // smile.gif 
      writeln;
   end ;


Только я не понял про begin и end ведь я поставил их что бы сначало вывести элементы 1 строки в ряд и перейти на 2 ?

А как при вводе сделать аналогично? 

  For i:=1 to 4 do
  begin
    for j:=1 to 6 do
    begin
      write ('A[',i,',',j,']=');
      read (A[i,j]);
    end;
    writeln;
  end;

Не хочет даже с read. И кромер GoToXY больше ничего не приходит в голову mega_chok.gif


Добавлено через 9 мин.
Да и вообще при таком выводе, если, к примеру все числа в первом ряду двузначные, а во втором однозначные, то первый ряд сдвинут получается. Лучше уж GoToXY, там равномерней.


А если с запоминанием индексов, то вот:
 max:=a[1,4];
  For i:=1 to 4 do
  for j:=4 to 6 do
  begin
    If A[i,j] > max then begin max:=A[i,j]; m:=i; n:=j; end;
  end;

  For i:=1 to 4 do
  for j:=4 to 6 do 
  begin
    If (i=m) and (j=n) then A[i,j] := min;
  end;

Автор: volvo 4.05.2008 12:16

Цитата
Да и вообще при таком выводе, если, к примеру все числа в первом ряду двузначные, а во втором однозначные, то первый ряд сдвинут получается.
Вообще-то надо задавать ширину поля, в котором выводятся числа, а не разделять их пробелами вручную:
for i := 1 to 4 do begin
  for j := 1 to 6 do write(A[i, j]:5);
  writeln;
end;


Автор: Анна 4.05.2008 17:30

А при вводе данных подобным образом можно сделать? Чтобы после ввода элемента матрицы курсор не на новую строку переходил?