VPF::Помогите решить двумерный массив!

joker1989

Дата 14.5.2007, 14:23 (ссылка)

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

Загрузка ...

Новичок

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

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

дана матрица NхM, найти максимальный элемент в двух треугольниках! треугольники там где единицы! Матрица обязательно квадратная!
(1)(0)(0)(0)(0)(0)(0)(1)
(1)(1)(0)(0)(0)(0)(1)(1)
(1)(1)(1)(0)(0)(1)(1)(1)
(1)(1)(1)(1)(1)(1)(1)(1)
(1)(1)(1)(1)(1)(1)(1)(1)
(1)(1)(1)(0)(0)(1)(1)(1)
(1)(1)(0)(0)(0)(0)(1)(1)
(1)(0)(0)(0)(0)(0)(0)(1)

ama_kid

Дата 14.5.2007, 14:56 (ссылка)

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

Загрузка ...

АСУТП-кодер

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

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

Если

Цитата(joker1989 @ 14.5.2007, 14:23

)

дана матрица NхM

то, исходя из того, что

Цитата(joker1989 @ 14.5.2007, 14:23

)

Матрица обязательно квадратная!

предполагаю, что M=N.
Короче, примерно так:

Код

uses crt;
Const N = 8;
type
 TArray = array [1..N,1..N] of integer;
var
 A:TArray;
 i,j:integer;
 Max:integer;

begin
 clrscr;
 randomize;
 for i:=1 to N do for j:=1 to N do A[i,j]:=random(100)+1;
 Max:=A[1,1];

 for i:=1 to N do for j:=1 to N do
  begin
   if i<=(N div 2) then
    if (j<=i)or(j>N-i) then
     if Max<A[i,j] then Max:=A[i,j];
   if i>(N div 2) then
    if (j<=(N-i+1))or(j>=i) then
     if Max<A[i,j] then Max:=A[i,j];
  end;
 for i:=1 to N do begin for j:=1 to N do write(A[i,j],' '); writeln; end;
 writeln;
 write('Max=',Max);
 readkey;
end.

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

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

joker1989

Дата 14.5.2007, 15:12 (ссылка)

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

Загрузка ...

Новичок

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

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

Огромное спасибо! А можно как-нибудь эти треугольники цветом выделить, а максимальное число другим цветом в треугольнике?

ama_kid

Дата 14.5.2007, 17:45 (ссылка)

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

Загрузка ...

АСУТП-кодер

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

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

Можно... покури функцию TextColor...

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

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

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