Аватар для АполинАрия
0 / 0 / 0
Регистрация: 19.12.2008
Сообщений: 7
1

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

19.12.2008, 01:25. Показов 2707. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте.
Если это возможно,хотелось бы попросить помощи в рещении нескольких задач.
Впринципе все не сложные.
Просто не успеваю,да и не оч хорошо поняла тему.

Вот к примеру:

1)даны массивы a(10),b(11),c(12) вещестивенных чисел.Обнулить и распечатать тот массив чьё произведение положительных элементов минимально.Распечатать произведение для каждого массива

2)в матрице z(15,15) найти наименьшие элементы в каждом столбце и поместить их на главную диагональ.преобразованную матрицу отпечатать.
0
19.12.2008, 01:25
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
19.12.2008, 01:25
Ответы с готовыми решениями:

Найти наименьшие элементы каждой строки квадратной матрицы и поместить их на главную диагональ
где ошибка ? нужно найти малейшие элементы каждой строки квадратной матрицы и поместить их на главную диагональ а диагональные элементы...

Найти наименьшие элементы в каждом столбце массива и поместить их в последнюю строку.
ЗАВТРО ЭКЗАМЕН((((( паскаль.... Дана матрица L (4,4). Заменить элементы главной диагонали единицами, элементы, расположенные ...

Найти наименьшие элементы в каждом столбце массива и поместить их в последнюю строку
Дан массив С (10х10). Найти наименьшие элементы в каждом столбце массива и поместить их в последнюю строку

6
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
19.12.2008, 09:42 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
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
1.
uses crt;
var a:array[1..10] of integer; //матрицы
    b:array[1..11] of integer;
    c:array[1..12] of integer;
    i:integer; pa,pb,pc:longint;//счетчик и произведения
begin
clrscr;
randomize;
writeln('Massiv A:');
pa:=1;
for i:=1 to 10 do
   begin
     a[i]:=random(5)-1;//присваиваем случайные значения в инт. -1,3
     if a[i]>0 then pa:=pa*a[i];//считаем произведение
     write(a[i],' '); //выводим на экран
   end;
writeln;
writeln('Proizvedenie=',pa);//выводим произведение
writeln('Massiv B:');
pb:=1;
for i:=1 to 11 do
   begin
     b[i]:=random(5)-1;
     if b[i]>0 then pb:=pb*b[i];
     write(b[i],' ');
   end;
writeln;
writeln('Proizvedenie=',pb);
writeln('Massiv C:');
pc:=1;
for i:=1 to 11 do
   begin
     c[i]:=random(5)-1;
     if c[i]>0 then pc:=pc*c[i];
     write(c[i],' ');
   end;
writeln;
writeln('Proizvedenie=',pc);
if(pa<pb)and(pa<pc)then//ищем минимальное произведение
   begin
     writeln('Massiv A:');
     for i:=1 to 10 do
       begin
        a[i]:=0; //если минимальное, обнуляем
        write(a[i],' ');//выводим на экран
      end;
    end;
if(pb<pa)and(pb<pc)then  
    begin
     writeln('Massiv B:');
     for i:=1 to 11 do
       begin
        b[i]:=0;
        write(b[i],' ');
       end;
    end;
if(pc<pa)and(pc<pb)then
    begin
     writeln('Massiv C:');
     for i:=1 to 12 do
       begin
        c[i]:=0;
        write(c[i],' ');
       end;
    end;
readln
end.2.
uses crt;
const n=15;  /размер матрицы
var z:array[1..n,1..n]of integer;//матрица
    i,j,min,imin,x:integer;//разные переменные
begin
clrscr;
randomize;
writeln('Matrica Z:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        z[i,j]:=random(10)+1;//заполняем матрицу случайными числами в инт 1,10
        write(z[i,j]:3); //выводим на экран по строкам
      end;
    writeln;//новая строка
  end;
readln;//читаем
for j:=1 to n do  //идем по столбцам
   begin
     min:=z[1,j];imin:=1;//за мин принимаем первый элемент столбца(верхний)
     for i:=1 to n do //идем вниз по столбцу
     if z[i,j]<min then //каждый раз когда находим число меньше предыдущих
        begin
          min:=z[i,j];//оно мин
          imin:=i;//запоминаем номер строки
        end;
     x:=z[imin,j]; //запоминаем этот элемент
     z[imin,j]:=z[j,j]; //на его место ставим элемент с главной диагонали
     z[j,j]:=x ;//на главную диагональ минимальный элемент
   end;
writeln('Izmenennaja matrica Z:');//выводим
for i:=1 to n do
   begin
     for j:=1 to n do
     write(z[i,j]:3);
     writeln;
   end;
readln
end.
0
 Аватар для АполинАрия
0 / 0 / 0
Регистрация: 19.12.2008
Сообщений: 7
21.12.2008, 17:31  [ТС] 3
СпасибО ОгромноЕ!
Вы Мне Очень ПомоглИ)

Добавлено через 19 часов 31 минуту 57 секунд
Умм...

Есть проблема ещё одной задачкой.

Дан массив Y(12).Разделить каждый третий элемент на разность между максимальным и минимальным его элементами.

ЗЫ:Если кто может решить,могу кинуть свои наработки,может быть поможет.
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
21.12.2008, 17:43 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
uses crt;
const n=12;
var y:array[1..n] of real;
    min,max:real;
    i:integer;
begin
clrscr;
randomize;
writeln('Ishodnyj massiv:');
for i:=1 to n do
  begin
    y[i]:=10*random;
    write(y[i]:5:2);
  end;
writeln;
max:=y[1];min:=y[1];
for i:=1 to n do
  begin
    if y[i]>max then max:=y[i];
    if y[i]<min then min:=y[i];
  end;
writeln('max=',max:0:2,'   min=',min:0:2,'  max-min=',(max-min):0:2);
writeln('Rezultat:');
for i:=1 to n do
   begin
     if i mod 3=0 then y[i]:=y[i]/(max-min);
     write(y[i]:5:2);
   end;
readln
end.
0
 Аватар для АполинАрия
0 / 0 / 0
Регистрация: 19.12.2008
Сообщений: 7
21.12.2008, 17:46  [ТС] 5
СпасибО ОгромноЕ!
Я нашла ошибку в своей версии))
0
 Аватар для АполинАрия
0 / 0 / 0
Регистрация: 19.12.2008
Сообщений: 7
24.12.2008, 23:34  [ТС] 6
Помогите плиз)
Ещё одна задачка)
Всё таже тема)

Даны два массива: А(10) целых и В(15) вещественных чисел. Отсортировать по убыванию и распечатать тот массив, в котором сумма положительных элементов равна модулю суммы отрицательных элементов. Распечатать полученные суммы.
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
25.12.2008, 08:49 7
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Программу написал, ввод с консоли, попробуйте для обоих вариантов (целые и вещественные) ввести так, чтобы указанные суммы были равны и была сортировка.
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
uses crt;
var a:array[1..10]of integer;//целый массив
    b:array[1..15] of real;//вещественный
    sp,sm,x:real; //сумму считаем как реал, для целых выводим без десятых
    i,j,z:integer;
begin
clrscr;
writeln('Vvedite 10 celyh chisel - massiv A:');
for i:=1 to 10 do
read(a[i]);
readln;
sp:=0;sm:=0;
for i:=1 to 10 do
if a[i]>0 then sp:=sp+a[i]//сумма положительных
else if a[i]<0 then sm:=sm+abs(a[i]);  //сумма отрицательных
writeln('Massiv A: summa polozitelnyh=',sp:0:0,'  modulej otricatelnyh=',sm:0:0);
if sp=sm then //если равны сортировка, если нет, то т олько сумму выведет
    begin
      for i:=1 to 9 do
      for j:=i+1 to 10 do
      if a[i]<a[j] then
         begin
           z:=a[i]; a[i]:=a[j]; a[j]:=z;//обменная сортировка пузырьком
          end;
      writeln('Otsortirovannyj massiv A:');
      for i:=1 to 10 do
      write(a[i],' ');
    end;
writeln;
writeln('Vvedite 15 veshestvennyh chisel - massiv B:');//все тоже самое
for i:=1 to 15 do
read(b[i]);
readln;
sp:=0;sm:=0;
for i:=1 to 10 do
if b[i]>0 then sp:=sp+b[i]
else if b[i]<0 then sm:=sm+abs(b[i]);
writeln('Massiv B: summa polozitelnyh=',sp:0:2,'  modulej otricatelnyh=',sm:0:2);
if sp=sm then
    begin
      for i:=1 to 14 do
      for j:=i+1 to 15 do
      if b[i]<b[j] then
         begin
           x:=b[i]; b[i]:=b[j]; b[j]:=x;
          end;
      writeln('Otsortirovannyj massiv B:');
      for i:=1 to 15 do
      write(b[i]:5:1);
    end;
readln
end.
0
25.12.2008, 08:49
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
25.12.2008, 08:49
Помогаю со студенческими работами здесь

Найти максимальные элементы каждой строки и поместить их на главную диагональ, а диагональные элементы поместить на место максимальных
Найти максимальные элементы каждой строки исходной матрицы А(N,N) (N&lt;=10) и поместить их на главную диагональ, а диагональные элементы...

Найти максимумы в каждом столбце матрицы и переместить их на главную диагональ
Дана квадратная матрица. Найти максимумы в каждом столбце и переместить их на главную диагональ

Найти наибольшие элементы каждой строки матрицы и поместить их на главную диагональ
Найти наибольшие элементы каждой строки матрицы Z(16,16) и поместить их на главную диагональ. Вывести полученную матрицу.

На главную диагональ матрицы поместить наибольшие элементы
На главную диагональ матрицы А(К,К), К &lt;= 100 поместить наибольшие элементы этой матрицы (сначала наибольший, затем следующий по величине и...

Минимальные элементы строк матрицы поместить на главную диагональ
Доброго времени суток товарищи. Помогите решить программку: Найти минимальные элементы каждой строки матрицы A и поместить их на...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Отключение отслеживания файла, занесенного в .gitignore в Git
hw_wired 10.02.2025
Git помогает следить за изменениями в проекте, но иногда требуется исключить определенные файлы из системы контроля версий. Это могут быть конфигурационные файлы с локальными настройками, временные. . .
Что такое use strict в JavaScript
hw_wired 10.02.2025
Директива use strict - способ перевода JavaScript-кода в строгий режим работы, который делает язык более безопасным и предсказуемым. Она появилась в ECMAScript 5 как ответ на многочисленные проблемы,. . .
Как в jQuery проверить, что элемент скрыт
hw_wired 10.02.2025
jQuery предоставляет несколько эффективных способов определить, скрыт элемент или отображается на странице. Самый простой метод использует специальные селекторы :hidden и :visible. Селектор :hidden. . .
Как проверить (check out) ветку Git в удаленном репозитории
hw_wired 10.02.2025
Проверка удаленной ветки в Git требует понимания нескольких базовых концепций и точного выполнения определенной последовательности действий. Для начала необходимо получить актуальную информацию о. . .
chucknorris в HTML и другие обозначения цветов
hw_wired 10.02.2025
HTML, как основной язык разметки веб-страниц, прошел длинный путь развития в плане работы с цветами. На заре развития веб-технологий разработчики могли использовать только базовый набор из 16. . .
Стек и куча: отличия и назначение
hw_wired 10.02.2025
Управление памятью - ключевой элемент работы любой программы. В современных языках программирования память делится на две основные области: стек и кучу. Каждая из них обладает уникальными. . .
Комментарии в JSON
hw_wired 10.02.2025
JSON - текстовый формат обмена данными, построенный на основе синтаксиса JavaScript. Этот формат отличается простотой, читаемостью и широкой поддержкой во всех современных языках программирования. . . .
Перезаписываем локальные файлы с помощью git pull
hw_wired 10.02.2025
Git pull - незаменимая команда для синхронизации локального репозитория с удаленным. При работе над проектом в команде разработчиков часто возникает необходимость получить актуальные изменения,. . .
Оператор --> в C++
hw_wired 10.02.2025
Оператор --> (называемый "spaceship operator" или оператор космического корабля) - важное нововведение в стандарте C++20, упрощающее реализацию операций сравнения в пользовательских типах данных. . . .
Отмена git add до коммита
hw_wired 10.02.2025
Git предлагает несколько методов для отмены индексации файлов перед созданием коммита. Разработчики часто сталкиваются с ситуацией, когда нужно убрать файлы из индекса, не теряя внесенные изменения в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru