Заменить диагональные элементы

@RVCSGO · Регистрация: 15.10.2015

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

Заменить диагональные элементы полученной матрицы W(3,3)наибольшим элементом массива . Оформить подпрограмму выполнения указанных действий над массивом B(m,m).

@SW Developer · 08.06.2016, 16:26

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
uses  Crt;
const n=3;
      int=100;
      high = 20;
      low  = -20;
type  massiv=array[1..int, 1..int] of integer;
var   W, B : massiv;
      m    : byte;
      maxim_el : integer;
 
Procedure In_Mas(var mas:massiv; phight, plow:integer; const size:byte);
          var i, j : byte;
          Begin
               Randomize;
               for i:=1 to size do
                   for j:=1 to size do
                       mas[i,j]:=plow+Random(phight-plow+1);
          End;
 
Procedure Out_Mas(const mas:massiv; const size:byte);
          var i, j : byte;
          Begin
               for i:=1 to size do
               begin
                    for j:=1 to size do
                        Write(mas[i,j]:4);
                    WriteLn;
               end;
          End;
          
Function Max_el(const mas:massiv; const size:byte):integer;
          var i, j : byte;
              max  : integer;
          Begin
               max:= mas[1,1];
               for i:=1 to size do
                    for j:=1 to size do
                         if mas[i,j]>max then max:=mas[i,j];
               Max_el:=max;
          End;
 
 
Procedure Change(var mas:massiv; const size:byte; const m_el:integer);
          var i, j : byte;
          Begin
               for i:=1 to size do
                    for j:=1 to size do
                    begin
                        if i=j then mas[i,j]:=m_el;
                        if (i=size-j+1) then mas[i,j]:=m_el;
                    end;
          End;
 
          
BEGIN
     ClrScr;
     In_Mas(W, high, low, n);
     WriteLn('W:');
     Out_Mas(W, n);
     maxim_el:= Max_el(W, n);
     WriteLn('Максимальный элемент массива W = ', maxim_el);
     Change(W, n, maxim_el);
     WriteLn('New W:');
     Out_Mas(W, n);
     
     repeat
           Write('Введите размер массива В, не больше ', int, ': ');
           ReadLn(m);
     until m in [2..int];
 
     In_Mas(B, high, low, m);
     WriteLn('B:');
     Out_Mas(B, m);
     maxim_el:= Max_el(B, m);
     WriteLn('Максимальный элемент массива B = ', maxim_el);
     Change(B, m, maxim_el);
     WriteLn('New B:');
     Out_Mas(B, m);
 
END.

@ZX Spectrum-128 · 08.06.2016, 21:18

Взято отсюда:
Заменить в матрице диагональные элементы нулем

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
program Project1;
 
uses crt;
 
const
  size = 5;
 
var
  w: array [1..size, 1..size] of integer;
  i, j: integer;
 
procedure maxdiag(x: integer);
var
  max, i, j, k: integer;
begin
  max := w[1, 1];
  for i := 1 to x do 
    for j := 1 to x do 
      if w[i, j] > max then
        max := w[i, j];
  for k := 1 to x do 
    w[k, k] := max;
end;
 
begin
  randomize;
  
  for i := 1 to size do 
  begin
    for j := 1 to size do 
    begin
      w[i, j] := 1 + random(9);
      write(w[i, j], ' ');
    end;
    writeln();
  end;
  writeln();
  
  maxdiag(size);
  
  for i := 1 to size do 
  begin
    for j := 1 to size do 
    begin
      write(w[i, j], ' ');
    end;
    writeln();
  end;
  
  readln();
end.

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа 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. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@RVCSGO 0 / 0 / 0 Регистрация: 15.10.2015 Сообщений: 21

	Заменить диагональные элементы 08.06.2016, 15:05. Показов 2061. Ответов 2 Метки нет (Все метки) Заменить диагональные элементы полученной матрицы W(3,3)наибольшим элементом массива . Оформить подпрограмму выполнения указанных действий над массивом B(m,m). 0

Заменить диагональные элементы

Решение