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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Алена_ПИЭ
0 / 0 / 0
Регистрация: 17.01.2013
Сообщений: 19
#1

Найти min из значений элементов столбца, который обладает наибольшей суммой модулей элементов - Turbo Pascal

17.01.2013, 19:24. Просмотров 509. Ответов 6
Метки нет (Все метки)

Нужна схема и программа.
Дана целочисленная матрица А[8,8].Найти min из значений элементов столбца, который обладает наибольшей суммой модулей элементов
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.01.2013, 19:24
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти min из значений элементов столбца, который обладает наибольшей суммой модулей элементов (Turbo Pascal):

Из матрицы выбрать столбец, который обладает наибольшей суммой модулей элементов - Turbo Pascal
Задана целочисленная квадратная матрица порядка 4. Из этой матрицы выбрать столбец, который обладает наибольшей суммой модулей элементов....

В матрице найти минимальный элемент того столбца, который обладает максимальной суммой своих элементов - Turbo Pascal
Помогите составить программу: В матрице найти минимальный элемент того столбца, который обладает максимальной суммой своих элементов.

Найти наименьшее из значений элементов столбца, в котором наибольшая сумма модулей элементов - Turbo Pascal
задача такая!! Дана целочисленная квадратная матрица порядка 8. найти наименьшее из значений лементов столбца, которой обладает...

Найти наименьшее из значений элементов столбца, который обладает наибольшей суммой модулей элементов. - Pascal
Дана целочисленная квадратная матрица порядка 8. Найти наименьшее из значений элементов столбца, который обладает наибольшей суммой модулей...

Вывести номер столбца матрицы N*N, который обладает наибольшей суммой модулей элементов. Если таких столбиков несколько, то взять первый из них. - Pascal
Задание: Вывести номер столбца матрицы N*N, который обладает наибольшей суммой модулей элементов. Если таких столбиков несколько, то...

Найти столбец с наибольшей и наименьшей суммой элементов. Вывести на печать найденные столбцы и суммы их элементов - Turbo Pascal
Найти столбец с наибольшей и наименьшей суммой элементов. Вывести на печать найденные столбцы и суммы их элементов. как решить на...

6
Alisto
0 / 0 / 0
Регистрация: 06.12.2013
Сообщений: 8
06.12.2013, 18:58 #2
Пожалуйста помогите с решением этой задачи, схема не обязательна. Устроит код.
0
GreenForest
50 / 42 / 14
Регистрация: 05.12.2013
Сообщений: 275
06.12.2013, 22:17 #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
begin
{Ввод массива}
For j:= 1 to 8 do
    For i:=1 to 8 do
        b[j]:=abs(a[i,j])+b[j];
For j:= 1 to 8 do
c[j]:=b[j];
For j:= 1 to 8 do
If b[j] > b[j+1] then
b[j]:=max;
b[j]:=b[j+1];
b[j+1]:=max;
Repeat
For j:= 1 to 8 do
If max = c[j] then d:=j;
until j>0
For i:= 1 to 8 do
If a[i,d]< a[i+1,d] then
min:=a[i,d];
a[i,d]:=a[i+1,d];
a[i+1,d]:=min;
Writeln(min);
End.
Вам осталось только объявить переменные и ввести массив.
0
Fakeoke
314 / 314 / 95
Регистрация: 28.07.2011
Сообщений: 1,849
06.12.2013, 23:25 #4
вот правильная программа...
а вас,GreenForest , прошу воздержаться от написания программ...
ибо я ничерта в них не пойму.. или я совсем дурак?
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
uses crt;
const n=8;
var a:array [1..n,1..n] of integer;
i,j,min,s,sm,sj:integer;
begin
clrscr;
randomize;
writeln('Matrica:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
sm:=-maxint;
for j:=1 to n do
begin
s:=0;
for i:=1 to n do
s:=s+abs(a[i,j]);
if s>=sm then begin sm:=s; sj:=j; end;
writeln('Summa ',j,' stolbca = ',s);
end;
writeln('Max summa v ',sj,' stolbce i ravna = ',sm);
min:=maxint;
for i:=1 to n do
if a[i,sj]<min then min:=a[i,sj];
writeln('Minimalniy element v ',sj,' stolbce = ',min);
readkey;
end.
0
Миниатюры
Найти min из значений элементов столбца, который обладает наибольшей суммой модулей элементов  
GreenForest
50 / 42 / 14
Регистрация: 05.12.2013
Сообщений: 275
07.12.2013, 00:11 #5
Fakeoke, вот... Вывод конечно не такой, как у вас, но работает же...
0
Миниатюры
Найти min из значений элементов столбца, который обладает наибольшей суммой модулей элементов  
Fakeoke
314 / 314 / 95
Регистрация: 28.07.2011
Сообщений: 1,849
07.12.2013, 00:33 #6
вы вообще что-то другое включили...
ибо у вас в программе нет вывода ни сумм ни строки min = ...
0
GreenForest
50 / 42 / 14
Регистрация: 05.12.2013
Сообщений: 275
07.12.2013, 10:38 #7
может потому что, что бы не считать вручную максимальные. Просто лишнюю строчку написать.
0
07.12.2013, 10:38
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.12.2013, 10:38
Привет! Вот еще темы с ответами:

Вычислить сумму элементов каждого столбца матрицы и поменять местами столбцы с наибольшей и наименьшей суммой - Turbo Pascal
Пожалуйста помогите решить, кому не трудно.. Дана целочисленная матрица A(N,M), где N=5 и M=5. Вычислить сумму элементов каждого...

Найти строку с наибольшей суммой элементов матрицы - Pascal
Дан целочисленный массив x(n и m вводится пользователем)Найти строку с наибольшей суммой элементов. помогите сделать, плиз!

Найти строку матрицы с наибольшей суммой элементов - Turbo Pascal
24. Дана прямоугольная матрица. Найти строку с наибольшей суммой элементов.

Найти строки с наибольшей и наименьшей суммой элементов - Turbo Pascal
Помогите рожалуйста: Дана прямоугольная матрица размера m×n. Составить программу, которая находит строки с наибольшей и наименьшей суммой...


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

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

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