Переделать программу с использованием процедур

@nedoStudent · Регистрация: 17.05.2015

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

Нужна срочная помощь ! Сдеалал курсовую еще неделю назад ,программа работает ,приношу на проверку а меня рубят и требуют следующие "нужно задание матрицы, транспонирование, перестановку строк и скалярное произведение в процедуры переделать"(его слова). Решил не спорить ,у самого ничего не выходит,помогите ,комрады!

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
Program TheMatrix;
Uses crt;
var a:array [0..127,0..127] of integer;
i,j,d,b,c,e,f,N,p,proizv,matr: integer;
chislo: char;
Begin
clrscr;
WriteLn(‘Введите размер квадратной матрицы:’);
ReadLn(N);
for i:=0 to N-1 do
for j:=0 to N-1 do
begin
a[i,j]:=random(100);
end;
for i:=0 to N-1 do
begin
for j:=0 to N-1 do
Write(a[i,j]:N-1);
WriteLn;
end;
WriteLn(‘Введите число:’);
WriteLn(‘1-перестановка двух строк’);
WriteLn(‘2-транспонирование матрицы относительно побочной диагонали’);
WriteLn(‘3-скалярное произведение заданного столбца и строки’);
ReadLn(chislo);
case chislo of
‘1’:begin
WriteLn(‘Введите номера строк:’);
ReadLn(b,c);
for j:=0 to N-1 do
begin
d:=a[b-1,j];
a[b-1,j]:=a[c-1,j];
a[c-1,j]:=d;
end;
WriteLn(‘Результат равен:’);
for i:=0 to N-1 do
begin
for j:=0 to N-1 do
write(a[i,j]:N-1));
WriteLn;
end;
ReadLn;
end;
‘2’: begin
for i:=0 to N-1 do
for j:=0 to N-1 do
begin
matr:=a[j,i];
a[j,i]:=a[i,j];
a[i,j]:=matr;
end;
WriteLn(‘Результат транспонирования:’);
for i:=0 to N-1 do
begin
for j:=0 to N-1 do
Write(a[j,i]:N-1);
WriteLn;
end;
ReadLn;
end;
‘3’: begin
WriteLn(‘Введите номер строки и столбца:');
ReadLn(e,f);
proizv:=0;
for i:=0 to N-1 do
proizv:=proizv+a[e-1,i]*a[i,f-1];
Write(‘Скалярное произведение равно:’,proizv);
ReadLn;
end;
end;
End.

@ZX Spectrum-128 · 19.05.2015, 19:58

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
Program TheMatrix;
Uses
  crt;
type
  matrix=array [0..127,0..127] of integer;
var
  a:matrix;
  i,j,d,b,c,e,f,N,p,proizv,matr: integer;
  chislo: char;
 
procedure creatematrix(var x:matrix);
begin
  WriteLn('Введите размер квадратной матрицы:');
  ReadLn(N);
  for i:=0 to N-1 do
    for j:=0 to N-1 do
      begin
        x[i,j]:=random(100);
      end;
  for i:=0 to N-1 do
    begin
      for j:=0 to N-1 do
        Write(x[i,j]:N-1);
      WriteLn;
    end;
end;
 
procedure Change(var x:matrix);
begin
  WriteLn('Введите номера строк:');
  ReadLn(b,c);
  for j:=0 to N-1 do
    begin
      d:=x[b-1,j];
      x[b-1,j]:=x[c-1,j];
      x[c-1,j]:=d;
    end;
  WriteLn('Результат равен:');
  for i:=0 to N-1 do
    begin
      for j:=0 to N-1 do
        write(x[i,j]:N-1);
      WriteLn;
    end;
end;
 
procedure Trans(var x:matrix);
begin
  for i:=0 to N-1 do
    for j:=0 to N-1 do
      begin
        matr:=x[j,i];
        x[j,i]:=x[i,j];
        x[i,j]:=matr;
      end;
  WriteLn('Результат транспонирования:');
  for i:=0 to N-1 do
    begin
      for j:=0 to N-1 do
        Write(a[j,i]:N-1);
      WriteLn;
    end;
end;
 
procedure Pr(x:matrix);
begin
  WriteLn('Введите номер строки и столбца:');
  ReadLn(e,f);
  proizv:=0;
  for i:=0 to N-1 do
    proizv:=proizv+x[e-1,i]*x[i,f-1];
  Write('Скалярное произведение равно:',proizv);
end;
 
Begin
  clrscr;
  creatematrix(a);
WriteLn('Введите число:');
WriteLn('1-перестановка двух строк');
WriteLn('2-транспонирование матрицы относительно побочной диагонали');
WriteLn('3-скалярное произведение заданного столбца и строки');
ReadLn(chislo);
case chislo of
'1':begin
      Change(a);
      ReadLn;
    end;
'2': begin
       ReadLn;
       Trans(a);
     end;
'3': begin
       pr(a);
       ReadLn;
     end;
end;
End.

@nedoStudent · 19.05.2015, 20:16 **[ТС]**

Спасибо большое !

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@nedoStudent 0 / 0 / 0 Регистрация: 17.05.2015 Сообщений: 7
	19.05.2015, 20:16 [ТС]
	Спасибо большое ! 0