Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
кулема
0 / 0 / 0
Регистрация: 24.03.2010
Сообщений: 33
#1

Определить максимальный элемент матрицы в заштрихованной области - Delphi

24.04.2010, 18:04. Просмотров 707. Ответов 3
Метки нет (Все метки)

@@@@@
@@@@
@@@
@@
@
написать фукцию, которая находит максимальный элемент в заштрихованной области
заранее огромное спасибо!!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2010, 18:04
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Определить максимальный элемент матрицы в заштрихованной области (Delphi):

Найти максимальный элемент, расположенный в заштрихованной части матрицы - Delphi
Помогите решить. Скрин матрицы во вложении лежит. Плачу 200 рублей если сделаете. Срочно очень надо... Дана матрица А(nxn) (n – четное...

Найти максимальный элемент матрицы в области ромба - Delphi
@@@ найти максимальный элемент матрицы среди(а;a;a;a;a) @@@ огромное спасибо!! @@@ Добавлено через 4 минуты найти среди (a;a;a;a)

Определить принадлежность точки к заштрихованной области - Delphi
определить принадлежность точки к заштрихованной области, организовать работу с файлом, вот рисунок мне нужен только код, так как...

Найти наибольшее из значений элементов, расположенных в заштрихованной области матрицы - Delphi
Найти наибольшее из значений элементов, расположенных в заштрихованной области матрицы. Заштрихованной область на рисунке. Подкиньте идею...

определить принадлежит ли точка с координатами (х, у) (вводятся с клавиатуры) заштрихованной области.. - Delphi
определить принадлежит ли точка с координатами (х, у) (вводятся с клавиатуры) заштрихованной области..

Определить, принадлежит ли точка с введёнными пользователем координатами в заштрихованной области.координатами - Delphi
Определить, принадлежит ли точка с введёнными пользователем координатами в заштрихованной области. program Project2; uses ...

3
*~<`PIK`>~*
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
606 / 386 / 18
Регистрация: 15.12.2009
Сообщений: 753
24.04.2010, 18:21 #2
Вот:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TForm1.Button1Click(Sender: TObject);
var i,j,max:integer;
    s:string;
    a:array[1..5,1..5] of integer;
begin
Randomize;
For i:=1 to 5 do
For j:=1 to 5 do
a[i,j]:=Random(21);//забиваем массив числами от 0 до 20
 
max:=a[1,1];//максимальный ел = 1 значению матрицы
 
For i:=1 to 5 do
For j:=1 to 5-i+1 do//елементов в каждой последующей строке становится на 1 меньше
If a[i,j]>max then max:=a[i,j];//если a[i,j] больше max то присваиваем max значение a[i,j]
 
For i:=1 to 5 do
begin
For j:=1 to 5 do
s:=s+IntToStr(a[i,j])+' ';//это для вывода массива
s:=s+#10#13;
end;
 
s:='Массив: '+#10#13+s+#10#13+'Максимальный елемент = '+IntToStr(max);//вывод максимального елемента
 
ShowMessage(s);//сам вывод
end;
1
кулема
0 / 0 / 0
Регистрация: 24.03.2010
Сообщений: 33
24.04.2010, 19:02  [ТС] #3
а если найти максимальный элемент матрицы,в области, лежащий выше главной диагонали
0
*~<`PIK`>~*
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
606 / 386 / 18
Регистрация: 15.12.2009
Сообщений: 753
24.04.2010, 20:31 #4
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Цитата Сообщение от кулема Посмотреть сообщение
лежащий выше главной диагонали
саму главную диагональ учитывать????

Добавлено через 4 минуты
если да то в моем коде эти строки:
Delphi
1
2
3
For i:=1 to 5 do
For j:=1 to 5-i+1 do//елементов в каждой последующей строке становится на 1 меньше
If a[i,j]>max then max:=a[i,j];//если a[i,j] больше max то присваиваем max значение a[i,j]
заменить на эти:
Delphi
1
2
3
For i:=1 to 5 do
For j:=5-(5-i) to 5 do//елементов в каждой последующей строке становится на 1 меньше
If a[i,j]>max then max:=a[i,j];//если a[i,j] больше max то присваиваем max значение a[i,j]
а если нет, то на эти:
Delphi
1
2
3
For i:=1 to 5 do
For j:=5-(5-i-1) to 5 do//елементов в каждой последующей строке становится на 1 меньше
If a[i,j]>max then max:=a[i,j];//если a[i,j] больше max то присваиваем max значение a[i,j]
0
24.04.2010, 20:31
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2010, 20:31
Привет! Вот еще темы с ответами:

Найти максимальный элемент матрицы С, каждый элемент которой вычисляется по заданной формуле - Delphi
задание: Даны две матрицы A и B порядка 4. Найти максимальый элемент матрицы С,каждый элемент которой вычисляется по формуле c(y)=a(y)*b(y)...

Поменять местами строку матрицы, содержащую максимальный элемент, со строкой, содержащей минимальный элемент - Delphi
Помогите решить. Скрин матрицы во вложении лежит. Дана матрица А(nxn) (n – четное число, 2&lt;=n&lt;=10). Найти максимальный элемент,...

Определить максимальный элемент массива и элемент, являющийся максимальным без учета элемента - Delphi
Пожалуйста, помогите решить 2-е задачки. 1- Дан массив b, заполненный с клавиатуры. Определить максимальный элемент массива и элемент,...

Определить максимальный элемент массива и элемент, являющийся максимальным без учета этого элемента - Delphi
Дан массив b, заполненный с клавиатуры. Определить максимальный элемент массива и элемент, являющийся максимальным без учета этого...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.