Рома992
1

Выполнение операций сложения, вычитания и умножения над квадратными матрицами целых чисел

20.11.2014, 22:24. Показов 579. Ответов 0
Метки нет (Все метки)

Разработать программу, которая обеспечивает выполнение операций сложения, вычитания и умножения над квадратными матрицами целых чисел. Выбор выполняемой операции осуществляет пользователь. операции должен быть в виде функции, т.е. три функции

Добавлено через 1 час 50 минут
Вот я написал программу, но мне нужны в программе 3 подпрограммы functioun, т.е. для каждой операции. Помогите, плиз. Заранее спасибо.
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
program Matrix;
uses crt;
var
  A, B, C: array[1..10, 1..10] of integer;
  R, x, i, j, n: integer;
  z: char;
   Begin
  clrscr;
write('размер матрицы NxN (N<=10): '); readln(n);
    Write(' Ввод матрицы A:');
    for i := 1 to n do
    begin
      writeln;
      for j := 1 to n do
      begin
        write('a[', i, '', j, ']='); Readln(A[i, j]);
      end;
    end;
    writeln;
    Write(' Ввод матрицы B:');
    for i := 1 to n do
    begin
      writeln;
      for j := 1 to n do
      begin
        write('b[', i, '', j, ']=');  Readln(B[i, j]);
      end;
    end;  clrscr;
    writeln;
    write(' Матрица A: ');
    for i := 1 to n do
    begin
      writeln;
      for j := 1 to n do
      begin
        write(A[i, j]:3, ' ');
      end;
    end;      writeln;
    write(' Матрица B: ');
    for i := 1 to n do
    begin
      writeln;
      for j := 1 to n do
      begin
        write(B[i, j]:3, ' ');
      end;
    end;
    writeln;
    writeln;
    begin
      writeln;
      write(' выбор операции ( + - * ): '); readln(z);
    end;
    case z of
      '+':
        begin
          for i := 1 to n do
          begin
            for j := 1 to n do
              C[i, j] := A[i, j] + B[i, j]; end;
          writeln;
          for i := 1 to n do
          begin
            for j := 1 to n do
              Write(C[i, j]:5);
            Writeln;
          end;
        end;
      '-':
        begin
          for i := 1 to n do
          begin
            for j := 1 to n do
              C[i, j] := A[i, j] - B[i, j];  end;
          writeln;
          for i := 1 to n do
          begin
            for j := 1 to n do
              Write(C[i, j]:5);
            Writeln;
          end;
        end;
      '*':
        begin
          for j := 1 to n do
            for i := 1 to n do
            begin
              R := 0;
              for x := 1 to n do
                r := R + A[j, x] * B[x, i];
              C[i, j] := R;
            end;   writeln;
          for j := 1 to n do
          begin
            for i := 1 to n do
              Write(C[i, j]:5);
            Writeln;
          end;    end;
    else writeln( 'Ошибка Ввода!'); end;
 readkey; end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2014, 22:24
Ответы с готовыми решениями:

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

Выполнение операций сложения, вычитания и умножения над матрицами целых чисел
Вобщем нужно разработать проект, который обеспечивает выполнение операций сложения, вычитания и...

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

Выполнение операций сложения, вычитания и умножения матриц
Нужно создать программу для экзамена! Задание: Напишите программу, выполняющую операции...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.11.2014, 22:24
Помогаю со студенческими работами здесь

Перегрузка операций сложения/умножения вычитания 16-ричных чисел
Выполнить перезагрузку перечисленных операций, закрепив за ними соответствующий функциональный...

Класс для выполнения операций сложения, вычитания и умножения комплексных чисел
Условие: Составить описание класса для представления комплексных чисел. Обеспечить выполнение...

Программа умножения двух целых чисел с использованием команд сложения, вычитания, сдвига
Программа умножения двух целых чисел с использованием команд сложения, вычитания, сдвига. (TASM) ...

Определить количество операций сложения, вычитания и умножения в выражении
Помогите пожалуйста решить задачу по программированию в ТР7 Определить общее колличество...

Посчитать количесвто операций сложения,вычитания, умножения, сранвения при расчете экспоненты
По поводу экспаненты. Стоит задача посчитать количесвто операций сложения,вычитания, умножения,...

Вычислить значение выражения, используя не более восьми операций умножения, сложения и вычитания
Даны целые числа x и y. Программа, используя только операции умножения, сложения и вычитания,...


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

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

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