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

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Maxti
0 / 0 / 0
Регистрация: 29.11.2014
Сообщений: 8
#1

Составить функцию определения максимина и минимакса прямоугольной матрицы - Pascal

29.11.2014, 17:44. Просмотров 271. Ответов 1
Метки нет (Все метки)

Необходимо составить функцию определения максимина и минимакса прямоугольной матрицы.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2014, 17:44
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Составить функцию определения максимина и минимакса прямоугольной матрицы (Pascal):

составить процедуру трансопирования TRANSPON прямоугольной матрицы А - Pascal
составить процедуру трансопирования TRANSPON прямоугольной матрицы А пожалуйста помогите

Составить функцию определения максимального элемента в одномерном массиве. - Pascal
Организация функций. Использование функций. Составить функцию определения максимального элемента в одномерном массиве.

С помощью рекурсивного определения описать функцию f и составить программу табулирования этой функции - Pascal
С помощью рекурсивного определения описать функцию f и составить программу табулирования этой функции в точках 0,1,...,n. f(0)=f(1)=1 ...

Составить подпрограмму определения номеров строк матрицы с минимальной и максимальной характеристиками - Pascal
Всем привет Помогите пожалуйста со следующей задачей,долгое время уже думаю и все не могу понять как делается.. Вот текст задачи: ...

Составить программу определения количества положительных и отрицательных элементов матрицы А(3х4) - Pascal
1)Составить прогу определения кол-ва положительный и отрицательных элементов матрицы А(3х4).Среди положительных элементов найдите...

Составить подпрограмму определения номеров строк матрицы с минимальной и максимальной характеристиками - Pascal
Привет всем:) Помогите пожалуйста со следующей задачей, около неделю думаю уже и все не могу понять как делается Вот текст задачи: ...

1
JokeR.BY
CAPITAL OF ROCK!
1275 / 702 / 573
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
29.11.2014, 20:25 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function FindMM(state : Boolean) : Integer;
var
    i, j : Byte;
    iID : Byte = 1;
    jID : Byte = 1;
begin
    for i := 1 to n do
        for j := 1 to m do
            if ((state And (a[i, j] > a[iID, jID])) Or (not state And (a[i, j] < a[iID, jID]))) then
            begin
                iID := i;
                jID := j;
            end;
    FindMM := a[iID, jID];
end;
 
 
    WriteLn('min=', FindMM(False));
    WriteLn('max=', FindMM(True));
Добавлено через 3 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure FindMM(var min, max : Integer);
var
    i, j : Byte;
begin
    min := a[1, 1]; max := a[1, 1];
    for i := 1 to n do
        for j := 1 to m do
        begin
            if (min > a[i, j]) then
                min := a[i, j];
            if (max < a[i, j]) then
                max := a[i, j];
        end;
end;
 
 
FindMM(min, max);
    WriteLn('min=', min);
    WriteLn('max=', max);
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2014, 20:25
Привет! Вот еще темы с ответами:

Преобразование прямоугольной матрицы!!! - Pascal
Выполнить над прямоугольной матрицей В размером m х n последовательность действий, указанную в задании. а) Построить матрицу С = А • В,...

преобразование прямоугольной матрицы - Pascal
помогите, пожалуйста. Выполнить над прямоугольной матрицей В размером m х n последовательность действий, указанную в задании. а)...

Преобразование прямоугольной матрицы - Pascal
Выполнить над прямоугольной матрицей В размером m х n последовательность действий, указанную в задании. а) Построить матрицу С = А • В,...

Преобразование прямоугольной матрицы - Pascal
Преобразование прямоугольной матрицы Выполнить над прямоугольной матрицей В размером m х n последовательность действий, указанную в...


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

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

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