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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Эльман
1 / 1 / 0
Регистрация: 04.07.2012
Сообщений: 21
#1

Разработать подпрограмму для нахождения максимального элемента в каждом столбце отдельно - Turbo Pascal

05.07.2012, 19:39. Просмотров 1101. Ответов 2
Метки нет (Все метки)

дана целочисленная матрица A размера 4*5. Разработать подпрограмму для нахождения максимального элемента в каждом столбце отдельно.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.07.2012, 19:39
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Разработать подпрограмму для нахождения максимального элемента в каждом столбце отдельно (Turbo Pascal):

Составить программу определения максимального элемента в каждом столбце и диагоналях матрицы - Turbo Pascal
Составить программу определения максимального элемента в каждом столбце и диагоналях матрицы J(7;6).Элементы матрицы J равны сумме номеров...

Массив: Для R(m,n), 1<(m,n)<10, найти в каждом столбце номер первого отрицательного элемента - Turbo Pascal
Написать программу для ввода , обработки и печати матрицы Для R(m,n), 1&lt;(m,n)&lt;10, найти в каждом столбце номер первого отрицательного...

Составить программу для нахождения минимального и максимального элемента - Pascal
2. Составить программу для нахожденияминимального и максимального элемента среди элементов каждой из линейных таблиц Х и Y. program...

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

Разработать подпрограмму-процедуру для вычисления номеров строк матрицы, в которых содержится ровно 2 отрицательных элемента - Turbo Pascal
Разработать подпрограмму-процедуру для вычисления номеров строк матрицы, в которых содержится ровно два отрицательных элемента. С помощью...

Составить процедуру для нахождения максимального и минимального по модулю элемента одномерного массива A - Turbo Pascal
Здравствуйте. Срочно нужна помощь по данной программе. Составить процедуру для нахождения максимального и минимального по модулю...

2
CodeR
Фрилансер
3365 / 2774 / 787
Регистрация: 08.02.2012
Сообщений: 6,175
Записей в блоге: 1
05.07.2012, 21:27 #2
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
Const n=4;m=5;
Type mas=array[1..n,1..m] of integer;
Var A:mas;
    i,j:integer;
Function Max(A:mas;j:byte):integer;
Var i,max1:integer;
Begin
    max1:=A[1,j];
    For i:=2 to n do
     if A[i,j]>max1 then max1:=A[i,j];
    Max:=max1;
End;
Begin
    For i:=1 to n do
     Begin
      For j:=1 to n do
       Begin
        A[i,j]:=random(11)-5;
        write(A[i,j]:3);
       End;
      writeln;
     End;
    For j:=1 to n do
     writeln('Max в ',j,' строке: ',Max(A,j));
    readln;
End.
1
mr.xolms
52 / 52 / 5
Регистрация: 07.12.2011
Сообщений: 115
08.07.2012, 12:37 #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
const n=4;m=5;
     var A:array [1..n,1..m] of integer;
         MaxA:array[1..m] of integer;
         i,j,max:integer;
 
     procedure MaxInStol;
     begin
     for j:=1 to m do begin
     max:=a[1,j];
     for i:=2 to n do
         if a[i,j]>max then max:=a[i,j];
     maxA[j]:=max;
     end;
     end;
 
     begin
     writeln;
     writeln('введите элементы массива:');
     for i:=1 to n do
     for j:=1 to m do
     read(A[i,j]);
     MaxInStol;
     writeln('максимальные элементы столбцов:');
     for j:=1 to m do
     write(maxA[j],' ');
     readln;
     end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.07.2012, 12:37
Привет! Вот еще темы с ответами:

Нужно написать програму для нахождения максимального элемента массива и его точек вхождени - Pascal
Нужно написать програму для нахождения максимального элемента массива и его точек вхождения В одном цикле(если массив 9,4,3,9,7,5,9) то маx...

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

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

Составить подпрограмму-функцию нахождения минимального значения элемента в одномерном массиве - Turbo Pascal
привет, прошу помочь с программой, так как сам плохо понимаю массивы, а задание весьма интересное.. п.с. задание на картинке Составить...


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

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

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