VPF::[Алгоритм] Матрицы - Форум программистов

BbIHbDOBC

Дата 29.5.2007, 16:44 (ссылка)

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

Загрузка ...

Новичок

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

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

Содержание:
  1) Приветствие
  2) Алгоритм
  3) Что нужно сделать

1) Здравствуйте уважаемые форумчане! я понимаю, что отнимаю ваше драгоценное время, но все-же прошу вас помочь. Кстати, как сказано в правилах создания темы, зачет действительно через 2 дня =)

2) В каждом столбце и каждой строке матрицы P(n,n) содержится строго по одному нулевому элементу. Перестановкой строк добиться расположения всех нулей по главной диагонали матрицы.

3) Буду оочень признателен, если вы оформите алгоритм в виде блок-схемы в Word'e и пришлете
мне на мыло [email protected]
Или хотя бы подкинете идейку)

Заранее благодарю =)

ama_kid

Дата 29.5.2007, 18:51 (ссылка)

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

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

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

Ну вот тебе в качестве подсказки - программа на паскале:

Код


uses crt;

const NMax = 10;
 InitA:array [1..NMax,1..NMax] of integer =
 (( 1,1,1,1,1,1,1,1,0,1),
  ( 2,2,2,2,2,2,2,2,2,0),
  ( 3,3,3,3,3,0,3,3,3,3),
  ( 4,4,4,4,4,4,4,0,4,4),
  ( 5,5,5,0,5,5,5,5,5,5),
  ( 6,0,6,6,6,6,6,6,6,6),
  ( 7,7,0,7,7,7,7,7,7,7),
  ( 8,8,8,8,8,8,0,8,8,8),
  ( 0,9,9,9,9,9,9,9,9,9),
  ( 10,10,10,10,0,10,10,10,10,10));

type
 TArray = array[1..NMax,1..NMax] of integer;
 TVector = array [1..NMax] of integer;
var
 P: TArray;

procedure Init;
var
 i,j:integer;
begin
 for i:=1 to NMax do
  for j:=1 to NMax do P[i][j]:=InitA[i][j];
end;

procedure PrintMatrix;
var
 i,j:integer;
begin
 for i:=1 to NMax do
  begin
   for j:=1 to NMax do
    write(P[i][j]:2, ' ');
   writeln;
  end;
end;

procedure SwapString(i1,i2:integer);
var
 tmp:integer;
 j:integer;
begin
 for j:=1 to NMax do
  begin
   tmp:=P[i1][j];
   P[i1][j]:=P[i2][j];
   P[i2][j]:=tmp;
  end;
end;

procedure Sort;
var
 i,j:integer;
begin
 for j:=1 to NMax do
  for i:=1 to NMax do
   if P[i][j]=0 then
    begin
     SwapString(i,j);
     break;
    end;
end;

begin
 clrscr;
 Init;
 PrintMatrix;
 writeln;
 Sort;
 PrintMatrix;
 readkey;
end.

А попытка набросать блок-схему - в аттаче (уже сто лет не занимался этим абсолютно бесполезным занятием)...

Присоединённый файл ( Кол-во скачиваний: 6 )

Doc1.doc 27,00 Kb

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

самурай без меча подобен самураю с мечом, но только без меча

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