VPF::[Pascal] Передавать в процедуру - Форум программистов

Oriander

Дата 16.2.2010, 18:06 (ссылка)

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

Загрузка ...

Шустрый

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

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

Здравствуйте! Срочно спасите до завтра...
Нужно написать программу: ввести матрицу 3х6
и передать в ПРОЦЕДУРУ непарные столбцы этой матрицы...
причем передавать в процедуру повекторно т.е. по столбцу
потом отсортировать в процедуре элементы столбца по убыванию
и возвратить в матрицу...

например:
3 3 3 3 3 3
2 2 2 2 2 2
1 1 1 1 1 1

результат должен быть такой:
1 3 1 3 1 3
2 2 2 2 2 2
3 1 3 1 3 1

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

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

Код


{--------------------------------------------------}
{HEADER}
program ORIANDER;
uses crt;
const n=3;m=6;
type vec=array[1..n,1..m] of integer;
var i,j:integer; a:vec;
{/HEADER}
{--------------------------------------------------}
{PROCEDURE}
procedure sort(n1:integer;var b:vec;i1,j1:integer);
var u,p:integer;
begin
 for i1:=1 to n1-1 do
 for u:=i1+1 to n do
 if b[i1,j1]>b[u,j1] then
  begin
       p:=b[i1,j1];
       b[i1,j1]:=b[u,j1];
       b[u,j1]:=p;
  end;
end;
{/PROCEDURE}
{--------------------------------------------------}
{ENTER ARRAY}
begin clrscr;
 writeln('Vvedit matrizu 3x6');
 for i:=1 to n do
 for j:=1 to m do
 read(a[i,j]);
{/ENTER ARRAY}
{--------------------------------------------------}
{WRITE ENTERED ARRAY}
 writeln('matriza:');
 for i:=1 to n do
   begin
     for j:=1 to m do
         write(a[i,j],' ');
         writeln;
   end;
{/WRITE ENTERED ARRAY}
{--------------------------------------------------}
{PROCEDURE QUERY}
 for j:=1 to m do
 if odd(j) then sort(n,a,i,j); {k_iti,p-z:matr,p_z:iti,p_z:jiti}
{/PROCEDURE QUERY}
{--------------------------------------------------}
{WRITE NEW ARRAY}
 writeln('vidsortwana matriza:');
 for i:=1 to n do
  begin
   for j:=1 to m do
   write(a[i,j],' '); writeln;
  end;
{/WRITE NEW ARRAY}
{--------------------------------------------------}
{FOOTER}
 readkey
end.
{/FOOTER}
{--------------------------------------------------}

Это сообщение отредактировал(а) Oriander - 16.2.2010, 18:08

Oriander

Дата 16.2.2010, 18:21 (ссылка)

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

Загрузка ...

Шустрый

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

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

Умоляю помогите smile

Oriander

Дата 16.2.2010, 23:43 (ссылка)

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

Загрузка ...

Шустрый

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

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

Вопрос закрыт... весь день сидел методом тыка пробовал - получилось.

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