Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
1 / 1 / 0
Регистрация: 19.12.2008
Сообщений: 51
1

Матрица с целыми элементами.

07.05.2009, 13:30. Просмотров 466. Ответов 3
Метки нет (Все метки)

Выручайте люди!!!!!!!!!!!1


Разработать алгоритм и программу решения задачи с использованием библиотечного модуля пользователя, в которой получить новую матрицу путем деления всех элементов матрицы размером 4х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
Unit MyUn;
Interface
 Type
 matr=array[1..4,1..4] of integer;
 //const m=4; n=4;
Var
p:integer;
Procedure Vvod(var a:matr;m,n:integer);
Procedure Obr(a:matr;m,n,max,t:integer;var s:longint;var p:longint);
Procedure Vyvod(a:matr;m,n,i,j:longint; max:real);
Implementation
 
Procedure Vvod(var a:matr;m,n:integer);
var
i,j:integer;
begin
 
randomize;
for i:=1 to m do
for j:=1 to n do
begin
a[i,j]:=random(20);
 write(a[i,j]:5);
 end;
end;
Procedure Obr(a:matr;max,t,m,n:integer; var s:longint; var p:longint);
var
i,j:integer;
begin
for i:=1 to m do
for j:=1 to n do
max:=abs(a[1,1]);
begin
if a[i,j]>max then
t:=a[i,j];
a[i,j]:=max;
max:=t;
end;
begin
for i:=1 to m do
for j:=1 to n do
a[i,j]:=a[i,j] div max;
end;
end;
Procedure Vyvod(a:matr;m,n,i,j:longint; max:real);
begin
writeln('otvet:');
for i:=1 to m do
for j:=1 to n do
readln;
end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.05.2009, 13:30
Ответы с готовыми решениями:

Матрица с вещественными элементами
Дана матрица, элементами которой являются вещественные числа. Создать одномерный массив, элементами...

Матрица, определение столбцов с возрастающими элементами
В данной матрице (взять из файла .txt путь к ней E:\mat.txt) определите количество столбцов, у...

Задана прямоугольная матрица А размера m*n. Сформировать вектор S, элементами которого являются суммы строк исходной матрицы А...
Задана прямоугольная матрица A размера m*n. Сформировать вектор S, элементами которого являются...

Матрица. Заменить нулями все отрицательные элементы этой матрицы, если они не являются элементами главной диагонали
Дана целочисленная квадратная матрица порядка n(n=4).заменить нулями все отрицательные элементы...

3
2920 / 841 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
07.05.2009, 13:57 2
Pascal
1
2
3
4
5
6
7
8
9
[quote=Jereme;155794]
for i:=1 to m do 
for j:=1 to n do 
max:=abs(a[1,1]);
 begin
 if a[i,j]>max then t:=a[i,j];
a[i,j]:=max; 
max:=t; 
end; [/quote]
надо заменить на код
Pascal
1
2
3
4
5
max:=abs(a[1,1]);
for i:=1 to m do 
for j:=1 to n do 
 if abs(a[i,j])>abs(max) then max:=a[i,j];
end;
0
Модератор
60173 / 45316 / 31273
Регистрация: 18.05.2008
Сообщений: 108,837
07.05.2009, 14:00 3
Pascal
1
2
3
4
5
6
7
Procedure Vyvod(a:matr;m,n,i,j:longint; max:real);
begin
writeln('otvet:');
for i:=1 to m do
for j:=1 to n do
readln;
end;
Очень крутая процедура, интересно что она делает?
0
2920 / 841 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
07.05.2009, 14:02 4
да что то с процедурами не так их надо чуть переработать
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.05.2009, 14:02

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дана матрица действительных чисел A(n,m). Получить одномерный массив D, элементами которого являются максимальные значения из каждой строки исходной матрицы.
Помогите)))

Дан массив a(n) с целыми элементами
Дан массив a(n) с целыми элементами. Переписать его в массив и таким образом, чтобы в массиве и...

Квадратная матрица с элементами ниже главной диагонали=1
Нужно задать двумерный массив (квадратную матрицу) и сделать так, чтобы выводились все элементы...

Матрица: арифметические действия с элементами, замена элемента
Дана матрица А(5,4) 1. Найти новый одномерный массив В из минимальных элементов каждой строки...


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

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

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