Описать процедуру swap(A,B), меняющую местами максимальные элементы матриц А и В. (Считать, что в каждой матрице только один максимальный элемент).

подскажите в чем ошибка и как доделать ее

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const
n=10;
m=10;
type matrix=array[1..n,1..10] of real;
  procedure swap(A,B:matrix);
var
  maxA,maxB,M:real;
  i,j:Integer;
  maxA:=A[1,1];
   A[i,j]:=(strtofloat(stringgrid1.Cells[i,j]));
   B[i,j]:=(strtofloat(stringgrid2.Cells[i,j]));
 for i:=0 to m do
   for j:=0 to n do begin
    if A[i,j]>maxA then Ai:=i, Aj:=j;
end;
  maxB:=B[1,1];
 for i:=0 to m do
    for j:=0 to n do begin
     if B[i,j]>maxB then Bi:=i, Bj:=j;
end;
  M:=A[Ai,Aj];
   A[Ai,Aj]:=B[Bi,Bj];
    B[Bi,Bj]:=M;
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

04.03.2013, 23:05

Ответы с готовыми решениями:

Описать процедуру swap(A,B), меняющую местами максимальные элементы матриц А и В
const n=...;{целые константы>1} type матрица= array of real; Описать процедуру swap(A,B),...

Процедура Swap, меняющая местами максимальные элементы матриц А и В
Код Delphi 1 2 const n=...;{целые константы>1} type матрица= array of real; Описать процедуру...

Напишите процедуру меняющую два числа местами
Пожалуйста, помогите!Все нижеперечисленные задачи нужно решить к завтрашнему дню на Паскале!Задачи...

Описать процедуру swap (A,B) меняющую местами максимальные элементы матриц A и B.
пожалуйста, решите. я дуб в паскале! 1.В радиоателье хранятся квитанции о сданной в ремонт...

	04.03.2013, 23:05

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

04.03.2013, 23:05

Помогаю со студенческими работами здесь

Массив: Описать функцию swap(A,B), меняющую местами максимальные элементы матриц А и В.
Надо исправить программу чтобы заработала. У самой уже ничего не получается=(( Описать функцию...

Писать процедуру swap (A, B), меняющую местами максимальные элементы массивов A и B
Const n=8; m=13; type mass=array of real. Описать процедуру swap(A,B), меняющую местами...

Описать функцию, меняющую местами максимальные элементы двух матриц произвольного порядка
После вывода на экран "repl" программа вылетает. Объясните, пожалуйста, почему? #include...

Написать программу, меняющую местами максимальные элементы двух заданных матриц
Даны две матрицы А и В. Написать программу, меняющую местами максимальные элементы этих матриц....

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх