Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.93/15: Рейтинг темы: голосов - 15, средняя оценка - 4.93
39 / 4 / 0
Регистрация: 05.06.2011
Сообщений: 36
1

Определить максимальный и минимальный элемент матрицы

21.12.2011, 14:53. Просмотров 2827. Ответов 4
Метки нет (Все метки)

9. Дана матрица целых чисел размером 5x3. Определить максимальный и
минимальный элемент матрицы. Результат вывести на экран монитора.
--------


11. Дана матрица целых чисел размером 4x4. Увеличить все чётные эле-
менты на 16, а нечётные элементы увеличить втрое. Вывести на экран
содержимое обработанной матрицы.
--------

Заранее благодарю.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2011, 14:53
Ответы с готовыми решениями:

Определить минимальный элемент в каждом столбце матрицы и выбрать из них максимальный
Вывести на экран матрицу 10х8, элементами которой являются целые случайные числа из интервала ....

Определить минимальный элемент в каждом столбце матрицы и выбрать из них максимальный
Вывести на экран матрицу 5х3, элементами которой являются целые случайные числа из интервала...

Определить, что больше: максимальный элемент левой половины или минимальный элемент правой половины матрицы
Определить что больше максимальный элемент левой половины или минимальный элемент правой половины...

Найти средний элемент, минимальный элемент и максимальный элемент матрицы
Здравствуйте,помогите решить задачу. Задана двумерная матрица размерностью 12x12 элементов...

4
Почетный модератор
7954 / 3925 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
21.12.2011, 15:10 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Gupi Посмотреть сообщение
9. Дана матрица целых чисел размером 5x3. Определить максимальный и
минимальный элемент матрицы. Результат вывести на экран монитора.
как один из вариантов
Pascal
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
uses crt;
var a: array [1..5,1..3] of integer;
    i,j,min,max: integer;
begin
writeln('Äàí ìàññèâ');
for i:=1 to 5 do
    begin
    for j:=1 to 3 do
        begin
        a[i,j]:=random(201)-100;
        write(a[i,j]:5);
        end;
    writeln;
    end;
max:=a[1,1];
min:=a[1,1];
for i:=1 to 5 do
    for j:=1 to 3 do
        begin
        if a[i,j]>max then max:=a[i,j];
        if a[i,j]<min then min:=a[i,j];
        end;
writeln('Íàèìåíüøèé ýëåìåíò = ',min);
writeln('íàèáîëüøèé ýëåìåíò = ',max);
readkey
end.
или так, с одним циклом
Pascal
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
28
29
uses crt;
var a: array [1..5,1..3] of integer;
    i,j,imin,jmin,imax,jmax: integer;
begin
writeln('Äàí ìàññèâ');
imin:=1;jmin:=1; imax:=1; jmax:=1;
for i:=1 to 5 do
    begin
    for j:=1 to 3 do
        begin
        a[i,j]:=random(201)-100;
        write(a[i,j]:5);
        if a[i,j]>a[imax,jmax] then
           begin
           imax:=i;
           jmax:=j;
           end;
        if a[i,j]<a[imin,jmin] then
           begin
           imin:=i;
           jmin:=j;
           end;
        end;
    writeln;
    end;
writeln('Íàèìåíüøèé ýëåìåíò = ',a[imin,jmin]:5,' â ñòðîêå ',imin,', â ñòîëáöå ',jmin);
writeln('Íàèáîëüøèé ýëåìåíò = ',a[imax,jmax]:5,' â ñòðîêå ',imax,', â ñòîëáöå ',jmax);
readkey
end.
2
2 / 2 / 1
Регистрация: 21.12.2011
Сообщений: 7
21.12.2011, 15:16 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Для первого:

Pascal
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
program minmaxmatrix;
uses crt;
const n = 5;
    m = 3;
var matrix: array[1..n, 1..m] of integer;
    i, j, max, min: integer;
Begin
 
    ClrScr;
    randomize;
    
    max := 0;
    min := 15;
    
    for i:=1 to n do
    begin
        for j:=1 to m do
        begin
            matrix[i, j] := random(15);
            write(matrix[i, j]:5);
        end;
        writeln;
    end;
    
    for i:=1 to n do
    begin
        for j:=1 to m do
        begin
            if(max <= matrix[i, j]) then 
                max := matrix[i, j];
            
            if(min >= matrix[i, j]) then
                min := matrix[i, j];
        end;
    end;
    
    writeln('Максимальный элемент: ', max);
    writeln('Минимальный элемент: ', min);
    
    readln;
end.
2
1 / 1 / 1
Регистрация: 21.12.2011
Сообщений: 10
21.12.2011, 15:44 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Вторая программа.
Pascal
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
program pas;
const
n=4;
type
matrix = array[1..n, 1..n] of integer; 
 procedure vvodmatr(var A:matrix);
 var i,j: integer;
 begin
  for i:=1 to n do begin
   For j:=1 to n do begin
    write('A[',i,j,']= ');
    readln(A[i,j]);
   end;
  end;
 end;
 procedure oper(var A:matrix);
 var i,j:integer;
 begin
 for i:=1 to n do begin
  for j:=1 to n do begin
   if (A[i,j] mod 2)=0 then A[i,j]:=A[i,j]+16 else A[i,j]:=A[i,j]*3;
  end;
 end;
 end;
 procedure vivodmatr(var A:matrix);
 var i,j,f:integer;
 begin;
 f:=0;
 for i:=1 to n do begin;
  for j:=1 to n do begin;
   f:=f+1;
   if (f mod 4)<>0 then write(A[i,j],' ') else writeln(A[i,j],' ');
    end;
  end;
 end;
var
a:matrix;
begin
writeln('Ввод матрицы');
vvodmatr (a);
oper (a);
writeln;
writeln('Содержимое обработанной матрицы:');
vivodmatr (a);
readln;
end.
только выравнивания обработанной матрицы по сетке не сделал...
1
39 / 4 / 0
Регистрация: 05.06.2011
Сообщений: 36
21.12.2011, 16:24  [ТС] 5
Благодарю всех здесь собравшихся! -)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2011, 16:24

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Минимальный элемент матрицы умножить на максимальный
Программа выполняет ввод вещественных элементов массива массива A(3,3)по строкам,контрольный вывод...

Обменять минимальный и максимальный элемент матрицы
Важно использовать процедуру ввода, вывода матрицы, поиска минимального, максимального элемента и...

Максимальный и минимальный элемент строк матрицы
Вот текст программы в нее нужно добавить функции определения строк в которых находится максимальный...

Определить максимальный и минимальный элемент
Дан двухмерный массив. Определить максимальный и минимальный элемент. Организовать вывод координат...


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

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

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