VPF::Помогите с процедурой - Форум программистов

Sergas

Дата 27.11.2008, 16:52 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


program laba6;
type
matrica=array [1..5, 1..5] of real;
var
a: matrica;
i, j: integer;
max: real;
nmax: integer;
procedure max1 (a:matrica; var rmax:real; var n:integer);
begin
for j:=1 to 4 do
rmax:=a[j,1];
n:=1;
  for i:=1 to 4 do
    if a[j,i]>rmax then
   begin
    rmax:= a[j,i];
    n:=i;
   end
end;

begin
for j:=1 to 4 do
 for i:=1 to 4 do
   begin
    write ('a(',j,',',i,')=');
    readln (a[j,i])
   end;
 
max1 (a, max, nmax);
for i:=1 to 4 do
 begin
    for j:=1 to 4 do
      write(a[i,j]:1:0, ' ');
      writeln ('   max=', max:1:0, ' n=', nmax);
 end;
end.

незнаю как заставить её сделать так чтобы она, в каждой строчке матрицы искала максимальный элемент и его номер естественно с помощью процедуры smile

заранее спасибо и буду благодарен за любую помощь)))

Это сообщение отредактировал(а) volvo877 - 27.11.2008, 17:18

volvo877

Дата 27.11.2008, 17:25 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Цитата(Sergas @ 27.11.2008, 15:52

)

как заставить её сделать так чтобы она, в каждой строчке матрицы искала максимальный элемент и его номер

Например, так:

Код

program laba6;
type
matrica=array [1..5, 1..5] of real;
var
a: matrica;
i, j: integer;
max: real;
nmax: integer;

procedure max1 (a:matrica; row: integer; var rmax:real; var n:integer);
begin
  n := 1;
  for j := 2 to 5 do
    if a[row, j] > a[row, n] then n := j;

  rmax := a[row, n];
end;

begin
  for j:=1 to 5 do
    for i:=1 to 5 do begin
      write ('a(',j,',',i,')=');
      readln (a[j,i])
    end;

  for i:=1 to 5 do begin
    max1(a, i, max, nmax); { <--- вот он, вызов процедуры }
    for j:=1 to 5 do
      write(a[i,j]:1:0, ' ');
    writeln ('   max=', max:1:0, ' n=', nmax);
  end;
end.

Sergas

Дата 28.11.2008, 09:12 (ссылка)

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

Загрузка ...

Новичок

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

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

Ооо, спсб, щас буду разбираться))

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