Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Удалить повторяющиеся строки из входного файла и записать в выходной https://www.cyberforum.ru/ pascalabc-net/ thread1270821.html
Суть задания: удалить повторяющиеся строки из входного файла и записать в выходной, также записав исходные данные Условия: использовать массив string, текстовые файлы и процедуры. const p =...
Актуальность ObjectABC PascalABC.NET
Добрый день. Пишу курсовую работу. Преподователь хочет, чтобы я добавил немного информации про актульность класса ObjectABC. В сети ничего не нашел, а о pascal'e знаю мало, так как многое не...
PascalABC.NET Определить профессию, которую имеют большинство сотрудников Как определить профессию, которую имеют большинство сотрудников? const n=10; v=6; type zap=record fam:string; str:string; vst:array of real; ... https://www.cyberforum.ru/ pascalabc-net/ thread1270242.html PascalABC.NET Найти максимальный и минимальный элементы на главной диагонали матрицы, и поменять эти строки местами При помощи случайных чисел вести матрицу размером 15х15 . Найти максимальный и минимальный элементы на главной диагонали , и поменять эти строки местами . Вывести на экран исходную матрицу... https://www.cyberforum.ru/ pascalabc-net/ thread1270198.html
PascalABC.NET Определить, принадлежит ли точка с данными координатами заштрихованной части плоскости
Составить программу, определяющую принадлежит ли точка с координатами (x;y) заштрихованной части плоскости. Координаты точки ввести с клавиатуры. через if
PascalABC.NET Определить, являются ли цифры данного трехзначного числа N членами арифметической прогрессии Составить программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае. Цифры данного трехзначного числа N являются членами арифметической... https://www.cyberforum.ru/ pascalabc-net/ thread1270170.html
PascalABC.NET Рекурсия 27. https://www.cyberforum.ru/ pascalabc-net/ thread1270110.html Вычислить и вывести на экран в виде таблицы значения функции PascalABC.NET
Вычислить и вывести на экран в виду таблицы значения функции, заданной графически, на интервале от х(нач) до х(кон) с шагом dx. Интервал и шаг вводить с клавиатуры. Таблицу снабдить заголовком и...
PascalABC.NET Изменить значения переменных по правилу При заданных X1, X2, …, Xn, Y1, Y2, …, Yn и Z1, Z2, …, Zn получить новые значения этих элементов, последовательно рассматривая тройки (Xi, Yi, Zi): Xi следует задать наименьшее из этих значений, Zi... https://www.cyberforum.ru/ pascalabc-net/ thread1270026.html PascalABC.NET Определить принадлежит ли точка заштрихованной области https://www.cyberforum.ru/ pascalabc-net/ thread1269725.html
Помогите написать программу, пожалуйста. Определить принадлежит ли точка A(x,y) заштрихованной области.
Задать цвет фона PascalABC.NET
Как в pascal abc.net задать цвет фона GetBkColor не работает
PascalABC.NET Ввести вектор и нормировать его https://www.cyberforum.ru/ pascalabc-net/ thread1269481.html
При помощи случайных чисел вести вектор А=(a1,a2,...,an), n=10. Нормировать его, то есть получить вектор B с элементами b_i=\frac{a_i}{\sqrt{\sum_{i=1}^{n}a_i^2}}\; ,\; i=1,2,\dots,n На экран...
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
08.10.2014, 07:12 0

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

08.10.2014, 07:12. Показов 984. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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.


Вернуться к обсуждению:
Написать процедуру и функцию для сложения и вычитания вещественных матриц PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.10.2014, 07:12
Готовые ответы и решения:

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

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

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

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.10.2014, 07:12

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

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

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

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

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