VPF::Помогите Двухмерный массив и процедура

IGOR15061

Дата 15.12.2005, 22:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 15.12.2005

Репутация: нет
Всего: нет

Задачка: Двухмерный массив (обязательный ввод и вывод самого массива и размерности), нужно чтобы находился максимальный элемент (вывод самого и его индексов), но обязательно через применение процедуры. Я не силен в применении процедуры, но надо!!! Нужно замутить так чтобы процедура состояла из отбора максимального значения и соответственоо его индексов.

Fedor

Дата 15.12.2005, 23:28 (ссылка)

(нет голосов)

Загрузка ...

Днепрянин

Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32

Цитата(IGOR15061 @ 15.12.2005, 22:03)

Я не силен в применении процедуры

Употребление процедуры:

Код


procedure A ({список формальных параметров})
begin

  {тело процедуры}
  {...........................}

end;

begin
{Ввод данных, подготовительные работы}

{Вызов процедуры:}
A({фактические параметры});

{вывод результата работы}
end.

Это сообщение отредактировал(а) Fedor - 15.12.2005, 23:29

--------------------

Мы - Днепряне. Мы всех сильней.

СветLana

Дата 16.12.2005, 12:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 8.12.2005
Где: г.Усть-Лабинск

Репутация: нет
Всего: нет

В твоем случае можно попробывать так

Код


type Mas= array [1..1], [1...1] of Integer;
....
procedure Poisk (X:Mas, St:Integer, Col:Integer, Itog:Mas);
begin
 {алгоритм поиска}
Itog:=....
end.

begin
var Y:Mas; St,Col: Integer;
{ввод данных в Y, St, Col}
Itog:=0
Poisk(Y, St,Col, Itog);
{выыод Itog}

darkart

Дата 17.12.2005, 00:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: 26
Всего: 31

Вотс

Код


program MaxNumIJ;
const
  n=3;{размерность}
type
  TMatrix=array[1..n,1..n] of integer;
procedure InputMatrix(var Matrix:TMatrix);
{ввод}
var
  i,j:integer;
begin
  writeln('Please enter matrix(',n,'x',n,'):');
  for i:=1 to n do
  begin
    for j:=1 to n-1 do
      read(Matrix[i,j]);
    readln(Matrix[i,n]);
  end;
end;
procedure PrintMatrix(var Matrix:TMatrix);
{вывод}
var
  i,j:integer;
begin
  for i:=1 to n do
  begin
    for j:=1 to n-1 do
      write(Matrix[i,j],' ');
    writeln(Matrix[i,n]);
  end;
end;
procedure FindMax(var Matrix:TMatrix;var max,indexi,indexj:integer);
{поиск макс эл-та и его индексов}
var
  i,j:integer;
begin
  indexi:=1;
  indexj:=1;
  max:=Matrix[indexi,indexj];
  for i:=1 to n do
    for j:=1 to n do
      if Matrix[i,j]>max then
      begin
        max:=Matrix[i,j];
        indexi:=i;
        indexj:=j;
      end;
end;
var
  max,i,j:integer;
  Matrix:TMatrix;
begin
  InputMatrix(Matrix);
  writeln('Source matrix:');
  PrintMatrix(Matrix);
  FindMax(Matrix,max,i,j);
  writeln('First max element is ',max,' in Matrix[',i,',',j,']');
  readln;
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »