Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/2: Рейтинг темы: голосов - 2, средняя оценка - 5.00
10 / 10 / 4
Регистрация: 21.11.2009
Сообщений: 187
1

Максимальный и минимальный элемент строк матрицы

22.01.2010, 16:30. Просмотров 500. Ответов 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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Program lab6;
uses crt;
const max=20;
type mas=array[1..max] of integer;{строка матрицы}
     matr=array[1..max] of mas;{масив строк - матрица}
procedure Vvod(var mt:matr;var x:byte);{ввод данных в матрицу и вывод ее на экран}
var i,j:byte;
begin
write('Razmer matrici = ');
readln(x);
writeln('Matrica:');
for i:=1 to x do
 begin
  for j:=1 to x do
   begin
    mt[i,j]:=random(20)-2;
    write(mt[i,j]:5);
   end;
  writeln;
 end;
writeln;
end;
function Mx(a:matr;x:byte):integer;
var j,i:byte;
     max:integer;
begin
max:=a[1,1];
for i:=1 to x do
for j:=1 to x do
if a[i,j]>max then max:=a[i,j];
mx:=max;
end;
 
function Mn(a:matr;x:byte):integer;
var j,i:byte;
     min:integer;
begin
min:=a[1,1];
for i:=1 to x do
for j:=1 to x do
if a[i,j]<min then min:=a[i,j];
mn:=min;
end;
 
function sr(a:matr; x:byte):integer;
var j,i:byte;
    sred:integer;
begin
sred:=0;
for i:=1 to x do
for j:=1 to x do
sred:=(sred+a[i,j]);
sr:=sred;
end;
 
procedure vyvod(a:matr; x:byte);
var i,j:byte;
begin
writeln ('Max = 'Mx(a,x));
writeln ('Min = 'Mn(a,x));
writeln ('Srednee znacenie = 'Sr(a,x)/(x*x):0:4);
end;
var x:byte;
    a:matr;
    v:mas;
begin
clrscr;
randomize;
Vvod(a,x);
vyvod(a,x);
readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.01.2010, 16:30
Ответы с готовыми решениями:

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

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

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

Найти и поменять максимальный и минимальный элемент матрицы

4
1915 / 1065 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
22.01.2010, 18:15 2
для максимума тоже самое
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
function Mn(a:matr;x:byte):integer;
var j,i:byte;
* * *min,imn:integer;
begin
min:=a[1,1];
for i:=1 to x do
for j:=1 to x do
if a[i,j]<min then min:=a[i,j];
 begin 
  mn:=min;
  imn:=i;
 end;
end;
1
10 / 10 / 4
Регистрация: 21.11.2009
Сообщений: 187
22.01.2010, 19:41  [ТС] 3
Цитата Сообщение от Snoopy Посмотреть сообщение
для максимума тоже самое
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
function Mn(a:matr;x:byte):integer;
var j,i:byte;
* * *min,imn:integer;
begin
min:=a[1,1];
for i:=1 to x do
for j:=1 to x do
if a[i,j]<min then min:=a[i,j];
 begin 
  mn:=min;
  imn:=i;
 end;
end;
Чето у меня не получилось
0
1915 / 1065 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
22.01.2010, 20:33 4
ну в конце вызываете функцию и выводите imn
0
10 / 10 / 4
Регистрация: 21.11.2009
Сообщений: 187
22.01.2010, 20:58  [ТС] 5
Цитата Сообщение от Snoopy Посмотреть сообщение
ну в конце вызываете функцию и выводите imn
Когда я вызываю эту функцию, то выводится минимальный элемент, но не строка.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.01.2010, 20:58

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

Поменять местами максимальный и минимальный элемент в заштрихованной части матрицы
Доброй ночи!Помогите пожалуйста написать программу по двумерным массивам!Если можно,полное...

Поменять местами максимальный и минимальный элемент главной диагонали матрицы
В квадратной матрице размером 5х5 узнать максимальный и минимальный элемент главной диагонали....

Поменять местами строки, содержащие минимальный и максимальный элемент матрицы
Дана матрица размера н на м. Поменять местами строки содержащие минимальный и максимальный элемент...

Поменять местами максимальный элемент матрицы с первым, а минимальный – с последним
Поменять местами максимальный элемент матрицы В(n,m) с его первым элементом, а минимальный элемент...


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

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

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