Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
2 / 2 / 0
Регистрация: 30.04.2013
Сообщений: 65
1

Разделить элементы каждого столбца заданной матрицы В на последний элемент столбца

30.04.2013, 22:32. Показов 920. Ответов 3
Метки нет (Все метки)

Разделить элементы каждого столбца заданной матрицы В на последний элемент столбца
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.04.2013, 22:32
Ответы с готовыми решениями:

Разделить элементы каждого столбца заданной матрицы на последний элемент столбца
Разделить элементы каждого столбца заданной матрицы B на последний элемент столбца Удалил вопросы,...

Разделить элементы каждого столбца матрицы на максимальный элемент этого столбца.
: Дано матрицу действительных чисел. Составить схему алгоритма и программу обработки двумерного...

Разделить элементы каждого столбца заданной матрицы на последний элемент столбца
Разделить элементы каждого столбца заданной матрицы на последний элемент столбца.

Разделить элементы каждого столбца заданной матрицы на последний элемент столбца
Разделить элементы каждого столбца заданной матрицы на последний элемент столбца. Полученную...

3
423 / 423 / 338
Регистрация: 25.06.2012
Сообщений: 668
30.04.2013, 22:51 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
uses crt;
 
const
  nmax = 10;
 
var
  B : array [1..nmax, 1..nmax] of real;
  i, j, n, m : integer;
 
begin
  ClrScr;
  Repeat
    Write('Количество строк (не больше ', nmax, ') = ');
    Readln(n);
  until n in [1..nmax];
  Repeat
    Write('Количество столбцов (не больше ', nmax, ') = ');
    Readln(m);
  until m in [1..nmax];
  Writeln('Введите элементы матрицы: ');
  for i := 1 to n do
    for j := 1 to m do  Readln(B[i, j]);
  ClrScr;
  Writeln('Исходная матрица: ');
  for i := 1 to n do
    begin
      for j := 1 to m do
        Write(B[i, j]:0:4, ' ');
      Writeln;
    end;
  Writeln('Новая матрица: ');
  for j := 1 to m do
    begin
      if B[n, j] <> 0 then  for i := 1 to n do  B[i, j] := B[i, j]/B[n, j]
        else Writeln('В ', j, ' столбце - деление на ноль!');
    end;
  for i := 1 to n do
    begin
      for j := 1 to m do
        Write(B[i, j]:0:4, ' ');
      Writeln;
    end;
end.
1
2 / 2 / 0
Регистрация: 30.04.2013
Сообщений: 65
30.04.2013, 22:57  [ТС] 3
Цитата Сообщение от VuU Посмотреть сообщение
Разделить элементы каждого столбца заданной матрицы В на последний элемент столбца
забыл написать, что нужно использовать процедуру и функцию
0
423 / 423 / 338
Регистрация: 25.06.2012
Сообщений: 668
01.05.2013, 12:49 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
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
uses crt;
 
const
  nmax = 10;
 
type
  Matrix = array [1..nmax, 1..nmax] of real;
  
procedure EnterMatrix (var B : Matrix; var n, m : integer);
var
  i, j : integer;
begin
  Repeat
    Write('Количество строк (не больше ', nmax, ') = ');
    Readln(n);
  until n in [1..nmax];
  Repeat
    Write('Количество столбцов (не больше ', nmax, ') = ');
    Readln(m);
  until m in [1..nmax];
  Writeln('Введите элементы матрицы: ');
  for i := 1 to n do
    for j := 1 to m do  Readln(B[i, j]);
end;
 
procedure PrintMatrix (B : Matrix; n, m : integer);
var
  i, j : integer;
begin
  for i := 1 to n do
    begin
      for j := 1 to m do
        Write(B[i, j]:0:4, ' ');
      Writeln;
    end;
end;
 
procedure EditMatrix (var B : Matrix; n, m : integer);
var
  i , j : integer;
begin
  for j := 1 to m do
    begin
      if B[n, j] <> 0 then  for i := 1 to n do  B[i, j] := B[i, j]/B[n, j]
        else Writeln('В ', j, ' столбце - деление на ноль!');
    end;  
end;
 
var
  B : Matrix;
  n, m : integer;
 
begin
  ClrScr;
  EnterMatrix(B, n, m);
  ClrScr;
  Writeln('Исходная матрица: ');
  PrintMatrix(B, n, m);
  Writeln('Новая матрица: ');
  EditMatrix(B, n, m);
  PrintMatrix(B, n, m);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.05.2013, 12:49

Массив: Разделить элементы каждого столбца заданной матрицы на последний элемент столбца.
Разделить элементы каждого столбца заданной матрицы на последний элемент столбца. Полученную...

Двумерные массивы. Разделить элементы каждого столбца на последний элемент столбца
Уважаемые, нужна помощь. Дано матрицу Т размером 6х5. Разделить элементы каждого столбца на...

Разделить элементы каждого столбца матрицы на последний его элемент
Преобразовать двумерный массив (4 х 4), разделивши елементы каждого столбца на последний елемент...

Разделить элементы каждого столбца матрицы на максимальный элемент этого столбца
Дан массив целых чисел. Разделить элементы каждого столбца матрицы на максимальный элемент этого...


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

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

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