Побочная диагональ и нули. Исправьте ошибку.

30.01.2010, 00:18. **Показов** 883. **Ответов** 2

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

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

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
Program Labor4;
Uses Crt;
Const  Nmax = 30;
Type
   Matrix = array[1..Nmax,1..Nmax] of real;
Var
  i,j,l,k,
  n,
  jmin : byte;
  jnul : byte;
  inul : byte;
  imin : byte;
  ch : char;
  Amin,
  Buf,
  Trace : real;
  A : Matrix;
  F : text;
Procedure WaitEscape;
Var  ch : char;
Begin
 Repeat
   ch:=ReadKey;
 Until ord(ch)=27;
End ;
Procedure ReadMatrix;
Var  i,j : byte;
Begin
 Reset(F);
 Read(F,n);
 For i:=1 to n do
   For j:=1 to n do
     Read(F,a[i,j]);
 Close(F);
End ;
Procedure ScreenMatrix;
Var i,j,k : byte;
Begin
 For i:=1 to n do
   Begin
     k:=0;
     For j:=1 to n do
       Begin
         Inc(k);
         If k<5 then
           Write(a[i,j]:8:2,'   ')
         Else
           Begin
             k:=0;
             Writeln(a[i,j]:8:2)
           End
       End;
     If k>0 then Writeln;
  End;
End;
Begin
 Assign(F,'Matrix.dat');
 ReadMatrix;
 Writeln('           ishodnaya matrica  n = ',n);
 ScreenMatrix;
 writeln('Push "Esc" to contine');
 WaitEscape;
 For i:=1 to n do
   Begin
     For j:=n downto n-(i-1) do
      If a[i,j]=0 then
       Begin
        inul:=i; {zapomnili i s 0 v stroke}
        amin:=a[inul,1];
        jmin:=1;
         for j:=1 to n do
          if (a[inul,j]<>0) and (a[inul,j]<=amin) then
           begin
            amin:=a[inul,j];
            jmin:=j;
           end;
          a[inul,j]:=a[inul,jmin];
        End;
    End;
 Writeln('           preobrazovannaya matrica');
 ScreenMatrix;
 writeln('Push "Esc" to exit');
 WaitEscape;
End.

@Puporev · 30.01.2010, 09:57

С какого угара у Вас текстовый файл имеет расширение .dat?

31.01.2010, 10:10

В задании было так написано. Чем вас не устраивает расширение .dat ?

Нашел ошибку:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
  Begin
        inul:=i; {zapomnili i s 0 v stroke}
        jnul:=j; {j ноля}
        amin:=a[inul,jnul]; {принимаем за минимум сам ноль иначе если первый ел-т в строке будет ноль,  то ноль заменится на ноль- бессмысленно}
         for j:=1 to n do
          if (a[inul,j]<>0) and (a[inul,j]<amin) then
           begin
            amin:=a[inul,j];
            jmin:=j;
           end;
          a[inul,j]:=a[inul,jmin];
        End;

Добавлено через 41 секунду
Прога все равно работает неправильно, ищем дальше.

Добавлено через 21 час 42 минуты
Вдруг кому-то пригодится.

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
98
Program Labor4;
Uses Crt;
Const  Nmax = 30;
Type
   Matrix = array[1..Nmax,1..Nmax] of real;
Var
  i,j,l,k,
  n,t,
  jmin : byte;
  jnul : byte;
  inul : byte;
  imin : byte;
  ch : char;
  Amin,
  Buf,
  Trace : real;
  A : Matrix;
  F : text;
Procedure WaitEscape;
Var  ch : char;
Begin
 Repeat
   ch:=ReadKey;
 Until ord(ch)=27;
End ;
Procedure ReadMatrix;
Var  i,j : byte;
Begin
 Reset(F);
 Read(F,n);
 For i:=1 to n do
   For j:=1 to n do
     Read(F,a[i,j]);
 Close(F);
End ;
Procedure ScreenMatrix;
Var i,j,k : byte;
Begin
 For i:=1 to n do
   Begin
     k:=0;
     For j:=1 to n do
       Begin
         Inc(k);
         If k<5 then
           Write(a[i,j]:8:2,'   ')
         Else
           Begin
             k:=0;
             Writeln(a[i,j]:8:2)
           End
       End;
     If k>0 then Writeln;
  End;
End;
Begin
 Assign(F,'Matrix.dat');
 ReadMatrix;
 Writeln('           ishodnaya matrica  n = ',n);
 ScreenMatrix;
 writeln('Push "Esc" to contine');
 WaitEscape;
 For i:=1 to n do
  For j:=1 to n do
   if i+j>n+1 then
     Begin
      If a[i,j]=0 then
       Begin
        inul:=i; {zapomnili i s 0 v stroke}
          For k:=1 to n do
             if a[inul,k]<>0  then     {íàçíà÷èëè ìèíèìóìîì êàêîåòî ÷èñëî <>0}
              begin
               Amin:=a[inul,k];
               jmin:=k
              end
           else
             inc(t); {ñ÷åò÷èê íóëåâûõ ºëåìåíòîâ}
        if t=n then  {ñîîáùåíèå î íóëåâîé ñòðîêå è çàâåðøåíèå ïðîãðàìû}
         begin
         writeln(inul,'-àÿ ñòðîêà íóëåâàÿ');
         break
         end;
         begin
         for j:=1 to n do
          if (a[inul,j]<>0) and (a[inul,j]<amin) then    {ïîèñê ìèíèìóìà}
           Begin
            amin:=a[inul,j];
            jmin:=j;
           End;
          a[inul,j]:=a[inul,jmin];
         End;
        End;
     End;
 Writeln('           preobrazovannaya matrica');
 ScreenMatrix;
 writeln('Push "Esc" to exit');
 WaitEscape;
End.

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	30.01.2010, 09:57
	С какого угара у Вас текстовый файл имеет расширение .dat? 0