Margo2593
1

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

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

Разработать алгоритм и написать программу на языке TurboPascal.
Задана матрица(двумерный массив) A размером N x М, состоящая из действительных элементов. Числа M и N вводятся с клавиатуры. Для задания исходной матрицы предусмотреть ввод с клавиатуры или ввод с помощью датчика случайных чисел. Где это необходимо ввести квадратную матрицу. Во всех вариантах вывести исходную матрицу в общепринятом виде и необходимые результаты работы программы.
Найти сумму всех её нечётных элементов и заменить ею все элементы главной диагонали матрицы. Преобразовать матрицу в вектор. Вывести на экран полученную матрицу и вектор.
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.03.2012, 20:49
Ответы с готовыми решениями:

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

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

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

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

2
4299 / 1421 / 463
Регистрация: 16.12.2010
Сообщений: 2,939
Записей в блоге: 3
11.03.2012, 22:01 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;
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 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
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.
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2012, 19:16
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru