Margo2593

Найти сумму всех нечётных элементов матрицы и заменить ею все элементы главной диагонали

11.03.2012, 20:49. Показов 2214. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Разработать алгоритм и написать программу на языке TurboPascal.
Задана матрица(двумерный массив) A размером N x М, состоящая из действительных элементов. Числа M и N вводятся с клавиатуры. Для задания исходной матрицы предусмотреть ввод с клавиатуры или ввод с помощью датчика случайных чисел. Где это необходимо ввести квадратную матрицу. Во всех вариантах вывести исходную матрицу в общепринятом виде и необходимые результаты работы программы.
Найти сумму всех её нечётных элементов и заменить ею все элементы главной диагонали матрицы. Преобразовать матрицу в вектор. Вывести на экран полученную матрицу и вектор.
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
11.03.2012, 20:49
Ответы с готовыми решениями:

Найти сумму всех нечетных элементов выше главной диагонали и заменить ей все нечетные элементы ниже главной диагонали.
Разработать программу в среде матлаб для нахождения суммы всех нечетных элементов выше главной диагонали и замены этой суммой всех нечетных...

Найти сумму всех элементов матрицы и заменить на нули элементы на главной диагонали
В двумерном массиве A из m строк и n столбцов найти сумму всех элементов и заменить на нули элементы на главной диагонали.

Найти сумму и произведение всех положительных элементов массива и заменить нулями все элементы, расположенные на главной диагонали и выше ее.
Найти сумму и произведение всех положительных элементов массива и заменить нулями все элементы, расположенные на главной диагонали и выше...

2
 Аватар для BumerangSP
4311 / 1423 / 463
Регистрация: 16.12.2010
Сообщений: 2,939
Записей в блоге: 3
11.03.2012, 22:01
Лучший ответ Сообщение было отмечено как решение

Решение

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;
var i,j,k,n,m: integer;
    a: array [1..10,1..10] of integer;
    b: array [1..100] of integer;
    s: integer;
begin
 clrscr;
 randomize;
 write('N,M do 10: ');
 readln(n,m);
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random(10);
     write(a[i,j]:3);
     if a[i,j] mod 2 <> 0 then
      s:=s+a[i,j];
    end;
   writeln;
  end;
  writeln;
  for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     if i=j then
      a[i,j]:=s;
     write(a[i,j]:3);
    end;
   writeln;
  end;
  writeln;
  for i:=1 to n do
   for j:=1 to m do
    begin
     inc(k);
     b[k]:=a[i,j];
    end;
  writeln('Vektor:');
  for i:=1 to k do
   write(b[i]:3);
 readln;
end.
Только есть одно "но": я не в курсе, можно ли проверять на четность вещественное число. Во всяком случае, в паскале проверка идет с целыми числами.
1
Margo2593
12.03.2012, 19:16
Огромное спасибо за программу!!!!
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;
var i,j,k,n,m: integer;
    a: array [1..10,1..10] of integer;
    b: array [1..100] of integer;
    s: integer;
begin
 clrscr;
 randomize;
 write('N,M do 10: ');
 readln(n,m);
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random(10);
     write(a[i,j]:3);
     if a[i,j] mod 2 <> 0 then
      s:=s+a[i,j];
    end;
   writeln;
  end;
  writeln;
  for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     if i=j then
      a[i,j]:=s;
     write(a[i,j]:3);
    end;
   writeln;
  end;
  writeln;
  for i:=1 to n do
   for j:=1 to m do
    begin
     inc(k);
     b[k]:=a[i,j];
    end;
  writeln('Vektor:');
  for i:=1 to k do
   write(b[i]:3);
 readln;
end.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
12.03.2012, 19:16
Помогаю со студенческими работами здесь

Найти произведение всех ее элементов и заменить ими элементы главной и побочной диагонали матрицы
Заданна матрица размером NxM состоящая из действительных элементов.Для задания исходной матрицы предусмотреть ввод с клавиатуры или с...

Найти произведение всех ее элементов и заменить ими элементы главной и побочной диагонали матрицы
Заданна матрица размером NxM состоящая из действительных элементов.Для задания исходной матрицы предусмотреть ввод с клавиатуры или с...

Найти сумму всех элементов главной диагонали матрицы, и сумму всех отрицательных элементов побочной диагонали
15. Найти сумму всех элементов главной диагонали матрицы P(10*10) и сумму всех отрицательных элементов побочной диагонали.

Найти сумму всех элементов матрицы и заменить ею все диагональные элементы этой матрицы
Найти сумму всех ее элементов и заменить ею все диагональные элементы этой матрицы.

Найти сумму всех элементов матрицы и заменить ею все диагональные элементы
Найти сумму всех ее элементов и заменить ею все диагональные элементы этой матрицы.


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

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

Новые блоги и статьи
Реализация операторов Kubernetes
Mr. Docker 16.05.2025
Концепция операторов Kubernetes зародилась в недрах компании CoreOS (позже купленной Red Hat), когда команда инженеров искала способ автоматизировать управление распределёнными базами данных в. . .
Отражение в C# и динамическое управление типами
stackOverflow 16.05.2025
Reflection API в . NET — это набор классов и интерфейсов в пространстве имён System. Reflection, который позволяет исследовать и манипулировать типами, методами, свойствами и другими элементами. . .
Настройка гиперпараметров с помощью Grid Search и Random Search в Python
AI_Generated 15.05.2025
В машинном обучении существует фундаментальное разделение между параметрами и гиперпараметрами моделей. Если параметры – это те величины, которые алгоритм "изучает" непосредственно из данных (веса. . .
Сериализация и десериализация данных на Python
py-thonny 15.05.2025
Сериализация — это своего рода "замораживание" объектов. Вы берёте живой, динамический объект из памяти и превращаете его в статичную строку или поток байтов. А десериализация выполняет обратный. . .
Чем асинхронная логика (схемотехника) лучше тактируемой, как я думаю, что помимо энергоэффективности - ещё и безопасность.
Hrethgir 14.05.2025
Помимо огромного плюса в энергоэффективности, асинхронная логика - тотальный контроль над каждым совершённым тактом, а значит - безусловная безопасность, где безконтрольно не совершится ни одного. . .
Многопоточные приложения на C++
bytestream 14.05.2025
C++ всегда был языком, тесно работающим с железом, и потому особеннно эффективным для многопоточного программирования. Стандарт C++11 произвёл революцию, добавив в язык нативную поддержку потоков,. . .
Stack, Queue и Hashtable в C#
UnmanagedCoder 14.05.2025
Каждый опытный разработчик наверняка сталкивался с ситуацией, когда невинный на первый взгляд List<T> превращался в узкое горлышко всего приложения. Причина проста: универсальность – это прекрасно,. . .
Как использовать OAuth2 со Spring Security в Java
Javaican 14.05.2025
Протокол OAuth2 часто путают с механизмами аутентификации, хотя по сути это протокол авторизации. Представьте, что вместо передачи ключей от всего дома вашему другу, который пришёл полить цветы, вы. . .
Анализ текста на Python с NLTK и Spacy
AI_Generated 14.05.2025
NLTK, старожил в мире обработки естественного языка на Python, содержит богатейшую коллекцию алгоритмов и готовых моделей. Эта библиотека отлично подходит для образовательных целей и. . .
Реализация DI в PHP
Jason-Webb 13.05.2025
Когда я начинал писать свой первый крупный PHP-проект, моя архитектура напоминала запутаный клубок спагетти. Классы создавали другие классы внутри себя, зависимости жостко прописывались в коде, а о. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru