Поменять максимальный элемент матрицы на минимальный

[Margarita 2703]

Вот программа:

Program ReplaceMinAndMax;
Var
 Matrix:Array[1..3,1..3] of Byte = (1,2,3,4,5,6,7,8,9);
 PP:Byte;
 Max,Min:Byte;
 XMin,YMin,XMax,Ymax:Byte;
 X,Y:Byte;
Begin
 XMin := 1;
 YMax := 1;
 XMax := 1;
 YMax := 1;
 Max := Matrix[1,1];
 Min := Matrix[1,1];
 For Y := 1 to 3 do
  For X := 1 to 3 do
   Begin
    If Matrix[X,Y] > Max Then  Begin Max := Matrix[X,Y]; XMax := X; YMax := Y; End;
    If Matrix[X,Y] < Max Then Begin Min := Matrix[X,Y]; XMin := X; YMin := Y; End;
   End;
 PP := Matrix[XMax,YMax];
 Matrix[XMax,YMax] := Matrix[Xmin,YMin];
 Matrix[XMin,YMin] := PP;
End.

Почему то пишет error 85 exptcted на отрезке
Matrix:Array[1..3,1..3] of Byte = (1,2,3,4,5,6,7,8,9);
Помогите найти ошибку.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Вадим Мошев]

Matrix:Array[1..3,1..3] of Byte = (1,2,3,4,5,6,7,8,9);

У вас массив двумерный, а вы его объявляете как одномерный

[Serge_Bliznykov]

У вас массив двумерный, а вы его объявляете как одномерный

т.е. то, что величины задаются в разделе VAR Вас не смутило?!

Ошибка 85:
Error 85 │";" expected
т.е. компилятор ждёт точку с запятой, а её нет.
И курсор становит в то место, где эта самая точка с запятой должна быть.
А именно сразу после of Byte [ТУТ]

если комплятор TurboPascal, тогда можно (и нужно) матрицу объявить в разделе CONST.

Это будет константная переменная. Т.е. переменная, которой присваивается изначально значение, и потом их можно изменять.
Внимание! в PascalABC константные переменные изменять совсем нельзя, а в старших версиях Delphi и FreePascal можно изменять или нет - задаётся опционально.

А сколько ошибок, где Вы путаете
XMax, XMin, YMax, YMin, Max и Min ?!!!
посмотрите, каким переменным, например, Вы единички присваиваете!!

Короче, Вам нужно использовать такой код:

Program ReplaceMinAndMax;
Const
 Matrix:Array[1..3,1..3] of Byte = ((1,2,3),(4,5,6),(7,8,9));

Var
 PP:Byte;
 XMin,YMin,XMax,Ymax:Byte;
 X,Y:Byte;
Begin
 XMax := 1;
 YMax := 1;
 XMin := 1;
 YMin := 1;
 For X := 1 to 3 do
  For Y := 1 to 3 do
   Begin
    If Matrix[X,Y] > Matrix[XMax,YMax] Then
        Begin XMax := X; YMax := Y; End;
    If Matrix[X,Y] < Matrix[XMin,YMin] Then
        Begin XMin := X; YMin := Y; End;
   End;

 {для отладки просто выведем Min и Max на экран.
     Эти две строчки ниже можно смело выкинуть}
 Writeln('max=', Matrix[XMax,YMax],' ',XMax,' ',YMax);
 Writeln('min=', Matrix[XMin,YMin],' ',XMin,' ',YMin);


 {поменять местами максимальный и минимальный элементы}
 PP := Matrix[XMax,YMax];
 Matrix[XMax,YMax] := Matrix[Xmin,YMin];
 Matrix[XMin,YMin] := PP;

 {напечатать содержимое матрицы}
 for X:=1 to 3 do begin
   for Y:=1 to 3 do
     Write(Matrix[X,Y]:3,' ');
   WriteLn;
 end;

 Readln
End.

[kuy]

Serge_Bliznykov, вы же матрицу как константу записали, елементы не поминяются мистами, нужно или ещё одну матрицу в переменную записать или же просто её как переменную записать:

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Var
 Matrix:Array[1..3,1..3] of Byte = ((1,2,3),(4,5,6),(7,8,9));
 PP:Byte;
 XMin,YMin,XMax,Ymax:Byte;
 X,Y:Byte;
Begin
writeln('Mas1:');
 for X:=1 to 3 do begin
   for Y:=1 to 3 do
     Write(Matrix[X,Y]:3,' ');
   WriteLn;
 end;
 XMax := 1;
 YMax := 1;
 XMin := 1;
 YMin := 1;
 For X := 1 to 3 do
  For Y := 1 to 3 do
   Begin
    If Matrix[X,Y] > Matrix[XMax,YMax] Then
        Begin XMax := X; YMax := Y; End;
    If Matrix[X,Y] < Matrix[XMin,YMin] Then
        Begin XMin := X; YMin := Y; End;
   End;


 {поменять местами максимальный и минимальный элементы}
 PP := Matrix[XMax,YMax];
 Matrix[XMax,YMax]:=Matrix[Xmin,YMin];
 Matrix[XMin,YMin]:=PP;

 {напечатать содержимое матрицы}
writeln('Mas2:');
 for X:=1 to 3 do begin
   for Y:=1 to 3 do
     Write(Matrix[X,Y]:3,' ');
   WriteLn;
 end;

 Readln
End.

[Serge_Bliznykov]

Сообщение от kuy

Serge_Bliznykov, вы же матрицу как константу записали, елементы не поминяются мистами, нужно или ещё одну матрицу в переменную записать или же просто её как переменную записать

перечитайте, пожалуйста, мой пост выше.
там, где я говорю про константную переменную.
И тогда, вдруг, Вы поймёте, что в TurboPascal в константе значения МОЖНО ИЗМЕНЯТЬ.

а вот, наоборот, в TurboPascal задавать значения для переменных в разделе VAR - НЕЛЬЗЯ!

[kuy]

Serge_Bliznykov, извеняюсь тогда, на своей Делфи7 писал. Нужно и себе TurboPascal поставить)

[Serge_Bliznykov]

Serge_Bliznykov, извиняюсь тогда, на своей Делфи7 писал. Нужно и себе TurboPascal поставить)

ну, если собираетесь задачи под TurboPascal решать - тогда можно и поставить.
или если нужно код под MS DOS генерить.
А иначе смысла ставить и использовать TP нет.
Delphi по любому и лучше и мощнее!

p.s. чтобы закрыть тему о возможности изменять в коде типизированные константы.

во всех известных мне версия Delphi есть опция: [ ] Assignable typed constants

Assignable typed constants Enable this for backward compatibility with Delphi 1.0. When enabled, the compiler allows assignments to typed constants. Corresponds to {$J}
.

при чём в Delphi 5 эта опция "по умолчанию" включена.
что позволяет использовать и Const Matrix:Array[1..3,1..3] of Byte = ((1,2,3),(4,5,6),(7,8,9));
и Var Matrix:Array[1..3,1..3] of Byte = ((1,2,3),(4,5,6),(7,8,9));
и там и там позволяет изменять значения константы.

в Borland Delph 2006 (Delphi 7 под рукой нет, но уверен, что там то же самое) и выше.
Эта опция по умолчанию ВЫКЛЮЧЕНА (что НЕ ПОЗВОЛЯЕТ присваивать что-то типизированным константам.)
если в опциях compiler
[ ] Assignable typed constants
если поставить "птичку" - то компилятор позволяет присваивать значения таким константам.

Хотя, если речь идёт о Delphi, то я бы всё же рекомендовал использовать Var ... = значение (там, где это допустимо, разумеется!)

[Вадим Мошев]

Сообщение от Serge_Bliznykov

т.е. то, что величины задаются в разделе VAR Вас не смутило?!

На самом деле, смутило, просто я это писал уже тогда, когда надо было ложиться спать (на работу вставать рано).
Я не был уверен, чтоб переменные можно инициализировать. Я вот думаю, а что, если бы объявить этот массив в разделе CONST.

Кроме того, чтобы объявить двуменый массив, не надо использовать точку я запятой. То есть, всё пишется так:

Const
A : Array of [1..3, 1..3] = ((1,2,3),
                                   (4,5,6),
                                   7,9,0));

Если я не ошибаюсь.

[Serge_Bliznykov]

Если я не ошибаюсь.

не ошибаетесь.. смотрите выше посты с #3 по #7