Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Raphael92
0 / 0 / 1
Регистрация: 12.10.2010
Сообщений: 154
1

Наименьшее из значений столбца

30.10.2010, 13:05. Просмотров 377. Ответов 3
Метки нет (Все метки)

Дана целочисленная квадратная матрица порядка 8. Найти наименьшее из значений элементов столбца, который обладает наибольшей суммой модулей элементов. Если таких столбцов несколько, то взять первый из них
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.10.2010, 13:05
Ответы с готовыми решениями:

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

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

определить наименьшее из значений Ai^2-A(i-1)^2
Помогите пожалуста...забыл сделать, а сдавать сегодня.. надо сделать через функцию

Определить наименьшее из значений
Определить наименьшее из значений 2/Ai + Ai2

Найти номер столбца матрицы, в котором находится наименьшее количество положительных элементов
Найти номер столбца массива размером n*m, в котором находится наименьшее количество положительных...

3
Puporev
Модератор
55001 / 42300 / 29209
Регистрация: 18.05.2008
Сообщений: 99,947
30.10.2010, 13:28 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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,jmx:byte;
    mx,mn,s:integer;
begin
clrscr;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(50)-25;
     write(a[i,j]:5);
    end;
   writeln;
 end;
writeln;
jmx:=1;
mx:=0;
for j:=1 to n do
 begin
  s:=0;
  for i:=1 to n do
  s:=s+abs(a[i,j]);
  writeln('Сумма модулей в столбце ',j,'=',s);
  if s>mx then
   begin
    mx:=s;
    jmx:=j;
   end;
 end;
writeln;
writeln('Максимальная сумма в столбце ',jmx,'=',mx);
mn:=1;
for i:=1 to n do
if a[i,jmx]<a[mn,jmx] then mn:=i;
writeln('Минимальный элемент в нем=',a[mn,jmx]);
readln
end.
0
Raphael92
0 / 0 / 1
Регистрация: 12.10.2010
Сообщений: 154
31.10.2010, 20:19  [ТС] 3
Пожалуйста, объясните что мы делаем в этих строчках:

Pascal
1
2
3
4
jmx:=1;
mx:=0;
mx:=s;
jmx:=j;
0
Puporev
Модератор
55001 / 42300 / 29209
Регистрация: 18.05.2008
Сообщений: 99,947
31.10.2010, 20:47 4
jmx:=1;//пока столбец по условию первый
mx:=0;//максимальная сумма модулей(меньше не может быть)
mx:=s;//если сумма в столбце больше чем раньше, она максимальная
jmx:=j;//номер столбца с максимальной суммой
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.10.2010, 20:47

Определить наименьшее из значений Ai^2-A(i-1)^2 / Pascal (Паскаль)
Определить наименьшее из значений Ai^2-A(i-1)^2 Помогите пожалуйста! И прошу вас выложить полный...

наименьшее общее кратное двух заданных значений
1) Напишите программу, которая выводит на экран строку с наибольшей и наименьшей суммой элементов...

В файле найти наименьшее из значений с чётными номерами
Задание: Дан файл компоненты которого являются действительными числами. Найти найменшое из...


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

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

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