Unit Matrix

@fmf-27 · 25.11.2009, 11:39. **Показов** 4765. **Ответов** 26

Студворк — интернет-сервис помощи студентам

Необходимо сделать модуль выполняюший 5 операций над матрицами(сложение,умножение на скаляр, транспонирование и т.д. любые пять). Зарание спасибо.

@fmf-27 · 25.11.2009, 21:34 **[ТС]**

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
unit matrix;{имя модуля, должно совпадать с именем файла *.pas}
interface
const max=20;
type matr=array[1..max,1..max] of integer;
procedure VvMtr(var mt:matr;var x:byte);
procedure VyvMtr(var mt:matr;x:byte;c:string);
procedure UmChMtr(var mt:matr;x:byte;k:integer);
procedure Sum(var m1:matr;m2:matr;x:byte);
procedure Razn(var m1:matr;m2:matr;x:byte);
implementation
procedure VvMtr;{создание матрицы}
var i,j:byte;
begin
for i:=1 to x do
for j:=1 to x do
mt[i,j]:=random(10)+1;
end;
procedure VyvMtr;{вывод матрицы на экран}
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to x do
 begin
  for j:=1 to x do
  write(mt[i,j]:4);
  writeln;
 end;
writeln;
end;
procedure UmChMtr;
var i,j:byte;
begin
for i:=1 to x do
for j:=1 to x do
mt[i,j]:=mt[i,j]*k;
end;
procedure Sum;
var i,j:byte;
begin
for i:=1 to x do
for j:=1 to x do
m1[i,j]:=m1[i,j]+m2[i,j];
end;
procedure Razn;
var i,j:byte;
begin
for i:=1 to x do
for j:=1 to x do
m1[i,j]:=m1[i,j]-m2[i,j];
end;
end.

вот нашел код на вашем форуме но он почемуто не работает пишет неизвестная переменная X поправьте плз

Добавлено через 1 минуту
программа

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
program matricy;
uses crt,matrix;{подключаем модуль}
var a,b,c:matr;
    n:byte;
    k,m:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы от 2 до ',max,' =');
readln(n);
until n in [2..max];
VvMtr(a,n);
VvMtr(b,n);
VvMtr(c,n);
VyvMtr(a,n,'A:');
VyvMtr(b,n,'B:');
VyvMtr(c,n,'C:');
readkey;
write('Введите первое число для умножения k=');
readln(k);
write('Введите второе число для умножения m=');
readln(m);
UmChMtr(a,n,k);
VyvMtr(a,n,'k*A:');
UmChMtr(b,n,m);
VyvMtr(b,n,'m*B:');
readkey;
Razn(a,b,n);
VyvMtr(a,n,'(A*k-B*m):');
readkey;
Sum(a,c,n);
VyvMtr(a,n,'k*A-m*B+C:');
readkey
end.

@Puporev · 25.11.2009, 21:43

fmf-27, А что ты только модуль содрал, а где программа? Или Вы считаете, что модуль и сам работать будет?

@fmf-27 · 26.11.2009, 11:45 **[ТС]**

вот программа

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
program matricy;
uses crt,matrix;{подключаем модуль}
var a,b,c:matr;
    n:byte;
    k,m:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы от 2 до ',max,' =');
readln(n);
until n in [2..max];
VvMtr(a,n);
VvMtr(b,n);
VvMtr(c,n);
VyvMtr(a,n,'A:');
VyvMtr(b,n,'B:');
VyvMtr(c,n,'C:');
readkey;
write('Введите первое число для умножения k=');
readln(k);
write('Введите второе число для умножения m=');
readln(m);
UmChMtr(a,n,k);
VyvMtr(a,n,'k*A:');
UmChMtr(b,n,m);
VyvMtr(b,n,'m*B:');
readkey;
Razn(a,b,n);
VyvMtr(a,n,'(A*k-B*m):');
readkey;
Sum(a,c,n);
VyvMtr(a,n,'k*A-m*B+C:');
readkey
end.

@Puporev · 26.11.2009, 11:52

fmf-27, Ну и что у Вас не работает? Это вроде моя программа и у меня, а также человека ее заказавшего, все работало нормально.

@fmf-27 · 26.11.2009, 12:24 **[ТС]**

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
unit matrix;{имя модуля, должно совпадать с именем файла *.pas}
interface
const max=20;
type matr=array[1..max,1..max] of integer;
procedure VvMtr(var mt:matr;var x:byte);
procedure VyvMtr(var mt:matr;x:byte;c:string);
procedure UmChMtr(var mt:matr;x:byte;k:integer);
procedure Sum(var m1:matr;m2:matr;x:byte);
procedure Razn(var m1:matr;m2:matr;x:byte);
implementation
procedure VvMtr;{создание матрицы}
var i,j:byte;
begin
for i:=1 to x do 
for j:=1 to x do
mt[i,j]:=random(10)+1;
end;
procedure VyvMtr;{вывод матрицы на экран}
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to x do
 begin
  for j:=1 to x do
  write(mt[i,j]:4);
  writeln;
 end;
writeln;
end;
procedure UmChMtr;
var i,j:byte;
begin
for i:=1 to x do [B][COLOR="Red"]ВОТ ЗДЕСЬ[/COLOR][/B]
for j:=1 to x do
mt[i,j]:=mt[i,j]*k;
end;
procedure Sum;
var i,j:byte;
begin
for i:=1 to x do
for j:=1 to x do
m1[i,j]:=m1[i,j]+m2[i,j];
end;
procedure Razn;
var i,j:byte;
begin
for i:=1 to x do
for j:=1 to x do
m1[i,j]:=m1[i,j]-m2[i,j];
end;
end.

Запускаю программу пишет "Ошибка неизвестеный индефикатор X" и выводит модуль если обьявить в var переменную x то потом пишет что mt и с неизвестные

@Puporev · 26.11.2009, 14:46

fmf-27, Если Вы что-то споганили в коде, то зря. Вот я скопировал отсюда модуль и программу, никаких ошибок нет.

@fmf-27 · 26.11.2009, 20:03 **[ТС]**

Спасибо а можно сделать так чтобы в паскале делались все операции а не в .exe? а то мне врятли поверят что я сам это сделал =)

@Puporev · 26.11.2009, 20:46

А как это в Паскале? Все и так в Паскале делается. Вы вообще о чем?

@fmf-27 · 27.11.2009, 07:17 **[ТС]**

ну чтобы не exe файл запускать а в самом паскале нажать F9(выполнить программу) и результаты чтбы были во встроеном окне.

@Puporev · 27.11.2009, 07:41

fmf-27, Так ты так и делай, выкинь вообще .exe, он каждый раз заново создается. А нажимать нужно Ctrl+F9. Если даже этого не знаешь, то никто тебе не поверит, что ты модуль написал. Ты вообще еще ни разу не запускал программы, а значит еще ни одну и не написал.

@fmf-27 · 27.11.2009, 10:17 **[ТС]**

так вот и с этого моя тема начиналась, что без exe файла модуль не работает т.к. не указаны переменные. Если их указать в в вар то выдает ошибку в программе.

@Puporev · 27.11.2009, 10:21

fmf-27, Модуль отдельно от программы работать не может, а программа без модуля.
Нужно создать .pas файл с текстом модуля, затем его сохранить точно с тем же именем, что и название модуля. После этого нажать Ctrl+F9, выйдет окно, откомпилировать?, жмете ОК. У Вас появился файл модуля с расширением .tpu. Сейчас в разделе Uses программы пишете имя модуля. Все, можете по Ctrl+F9 запускать программу, на экране будет результат.

@fmf-27 · 27.11.2009, 10:53 **[ТС]**

сделал всё так как вы сказали и всё равно не получается. Нажимаю F9 паскаль пишет невозмоно запустить модуль и не про какую компиляцию не говарит.

@Puporev · 27.11.2009, 10:57

fmf-27, Сдавайтесь в армию добровольно, ибо Вы необучаемы в принципе.

@fmf-27 · 27.11.2009, 11:11 **[ТС]**

может потому что у меня pascal abc?

@Puporev · 27.11.2009, 11:37

Сообщение от fmf-27

может потому что у меня pascal abc?

А сразу это нельзя было написать? Конечно в АВС совсем по другому пишутся модули, и этот не пойдет. Я в АВС не пишу.

@fmf-27 · 27.11.2009, 11:38 **[ТС]**

всё ясно

@Puporev · 27.11.2009, 11:39

fmf-27, Я и так проверил. Я же говорю, что в АВС совсем другая структура модулей, отличная от Турбо Паскаля и Делфи. Я ее не знаю.

@Inadequate · 27.11.2009, 11:41

Puporev, а вот это то о чем я вчера говорил надо оставить один turbo...
fmf-27, для Вас никто специально скачивать ничего и устанавливать не будет... Вот Ваш модуль, но о рядах РА всё таки подумайте, далеко с такими знаниями Вы не уедете...

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
unit
  matrix;
const
  max=20;
type
  matr=array[1..max,1..max] of integer;
{процедура ввода матрицы}
procedure VvMtr(var mt:matr;var x:byte);
var
  i,j:byte;
begin
  for i:=1 to x do
    for j:=1 to x do
      mt[i,j]:=random(10)+1;
end;
{процедура вывода матрицы}
procedure VyvMtr(var mt:matr;x:byte;c:string);
var
  i,j:byte;
begin
  writeln('Њ*ваЁж* ',c);
  for i:=1 to x do
  begin
    for j:=1 to x do
      write(mt[i,j]:4);
    writeln;
  end;
  writeln;
end;
{процедура умножения}
procedure UmChMtr(var mt:matr;x:byte;k:integer);
var
  i,j:byte;
begin
  for i:=1 to x do
    for j:=1 to x do
      mt[i,j]:=mt[i,j]*k;
end;
{процедура суммы}
procedure Sum(var m1:matr;m2:matr;x:byte);
var
  i,j:byte;
begin
  for i:=1 to x do
    for j:=1 to x do
      m1[i,j]:=m1[i,j]+m2[i,j];
end;
{процедура разности}
procedure Razn(var m1:matr;m2:matr;x:byte);
var
  i,j:byte;
begin
  for i:=1 to x do
    for j:=1 to x do
      m1[i,j]:=m1[i,j]-m2[i,j];
end;
end.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@fmf-27 Заблокирован

	Unit Matrix 25.11.2009, 11:39. Показов 4765. Ответов 26 Метки нет (Все метки) Необходимо сделать модуль выполняюший 5 операций над матрицами(сложение,умножение на скаляр, транспонирование и т.д. любые пять). Зарание спасибо. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	25.11.2009, 21:43
	fmf-27, А что ты только модуль содрал, а где программа? Или Вы считаете, что модуль и сам работать будет? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	26.11.2009, 11:52
	fmf-27, Ну и что у Вас не работает? Это вроде моя программа и у меня, а также человека ее заказавшего, все работало нормально. 0

@fmf-27 Заблокирован
	26.11.2009, 20:03 [ТС]
	Спасибо а можно сделать так чтобы в паскале делались все операции а не в .exe? а то мне врятли поверят что я сам это сделал =) 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	26.11.2009, 20:46
	А как это в Паскале? Все и так в Паскале делается. Вы вообще о чем? 0

@fmf-27 Заблокирован
	27.11.2009, 07:17 [ТС]
	ну чтобы не exe файл запускать а в самом паскале нажать F9(выполнить программу) и результаты чтбы были во встроеном окне. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	27.11.2009, 07:41
	fmf-27, Так ты так и делай, выкинь вообще .exe, он каждый раз заново создается. А нажимать нужно Ctrl+F9. Если даже этого не знаешь, то никто тебе не поверит, что ты модуль написал. Ты вообще еще ни разу не запускал программы, а значит еще ни одну и не написал. 0

@fmf-27 Заблокирован
	27.11.2009, 10:17 [ТС]
	так вот и с этого моя тема начиналась, что без exe файла модуль не работает т.к. не указаны переменные. Если их указать в в вар то выдает ошибку в программе. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	27.11.2009, 10:21
	fmf-27, Модуль отдельно от программы работать не может, а программа без модуля. Нужно создать .pas файл с текстом модуля, затем его сохранить точно с тем же именем, что и название модуля. После этого нажать Ctrl+F9, выйдет окно, откомпилировать?, жмете ОК. У Вас появился файл модуля с расширением .tpu. Сейчас в разделе Uses программы пишете имя модуля. Все, можете по Ctrl+F9 запускать программу, на экране будет результат. 1

@fmf-27 Заблокирован
	27.11.2009, 10:53 [ТС]
	сделал всё так как вы сказали и всё равно не получается. Нажимаю F9 паскаль пишет невозмоно запустить модуль и не про какую компиляцию не говарит. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	27.11.2009, 10:57
	fmf-27, Сдавайтесь в армию добровольно, ибо Вы необучаемы в принципе. 1

@fmf-27 Заблокирован
	27.11.2009, 11:11 [ТС]
	может потому что у меня pascal abc? 0

@fmf-27 Заблокирован
	27.11.2009, 11:38 [ТС]
	всё ясно 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	27.11.2009, 11:39
	fmf-27, Я и так проверил. Я же говорю, что в АВС совсем другая структура модулей, отличная от Турбо Паскаля и Делфи. Я ее не знаю. 1