Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 01.10.2014
Сообщений: 13
1

Написать процедуру и функцию для сложения и вычитания вещественных матриц

08.10.2014, 06:49. Показов 971. Ответов 1
Метки нет (Все метки)

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

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.10.2014, 06:49
Ответы с готовыми решениями:

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

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

Функция для сложения и вычитания вещественных матриц
Помогите пожалуйста с задачами. Никогда с такими не сталкивался поэтому нужна помощь. Буду...

Написать функции сложения, умножения и вычитания квадратных матриц, и вычислить с их помощью выражение
Написать функции для сложения, умножения и вычитания квадратных матриц. Используя составленные...

1
Модератор
64058 / 47473 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
08.10.2014, 07:12 2
Лучший ответ Сообщение было отмечено keSh_ как решение

Решение

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
const nmax=20;
var n,m:byte;
type mas=array[1..nmax,1..nmax] of real;
 
procedure Vvod(var a:mas);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to m do
a[i,j]:=9*random;
end;
 
procedure Vyvod(a:mas;c:string);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:5:2);
 writeln;
 end;
end;
procedure Optia(a,b:mas;k:byte;var c:mas);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to m do
if k=1 then c[i,j]:=a[i,j]+b[i,j]
else c[i,j]:=a[i,j]-b[i,j]
end;
 
var a,b,c:mas;
begin
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
Vvod(a);
Vvod(b);
Vyvod(a,'A');
Vyvod(b,'B');
Optia(a,b,1,c);
Vyvod(c,'C=A+B');
Optia(a,b,2,c);
Vyvod(c,'C=A-B');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.10.2014, 07:12

Написать процедуру сложения матриц.
ребят нужна помощь Задачи по программированию. Задача решается на двух языках. Задача 7....

Написать процедуру для сложения, умножения квадратных матриц N*N, и умножения матрицы на вектор
Написать процедуру для сложения, умножения квадратных матриц N*N, и умножения матрицы на вектор

Написать процедуру для суммирования матриц. Ошибка при передаче массива в функцию
Помогите пожалуйста! Дано задание: Написать процедуру для суммирования матриц. С ее помощью...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.