Исправление программы

25.04.2013, 19:33. **Показов** 969. **Ответов** 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
Program Pascal13;
uses crt;
Label 10;
var B,BP: array [1..8,1..8] of integer;
       S: array [1..8] of integer;
       I,J,K,sum: integer;
begin
clrscr;
for I := 1 to 8 do begin
for J := 1 to 8 do begin
B[I,J] := RANDOM (300) - 75;
write (B[I,J]:5);end;
writeln; end;
for I := 1 to 8 do begin
K:=0;sum:=0;
for J := 1 to 8 do begin
If B[I,J]> 0 then goto 10;
If B[I,J] mod 2<>0 then goto 10;
K:=K + 1;
sum:=sum+B[I,J];
S[I]:=sum;
BP[I,J]:=B[I,J];
writeln(' B[',I,',',J,']=',BP[I,J]:4);
writeln(' sum[',i,']=',S[I]:3);
10:end;
end;
end.

при запуске программы получаются подобные ответы:

83 160 -2 46 7 33 73 -30
162 11 4 102 196 -33 48 165
119 205 200 204 142 172 89 58
76 88 -14 189 51 184 69 69
197 125 -42 53 -20 33 23 95
93 149 31 158 -63 108 79 64
53 94 128 165 -12 218 -49 118
189 -71 136 25 90 -55 114 147
B[1,3]= -2
sum[1]= -2
B[1,8]= -30
sum[1]=-32
B[4,3]= -14
sum[4]=-14
B[5,3]= -42
sum[5]=-42
B[5,5]= -20
sum[5]=-62
B[7,5]= -12
sum[7]=-12

Как нужно исправить программу чтобы в суммах писалась только конечный результат для каждой строки?

@Mawrat · 27.04.2013, 15:22

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
const
  M = 8;
var
  B: array [1..M,1..M] of integer;
  S: array [1..M] of integer;
  I,J,sum: integer;
begin
  Randomize;
  for I := 1 to M do begin
    for J := 1 to M do begin
      B[I,J] := Random(17) - 8;
      write(B[I,J]:5);
    end;
    writeln;
  end;
  for I := 1 to M do begin
    sum:=0;
    for J := 1 to M do
      if (B[I,J] <= 0) and (B[I,J] mod 2 = 0) then
        sum:=sum+B[I,J];
    S[I]:=sum;
    writeln(' sum[',i,']=',S[I]:3);
  end;
 
  Readln;
end.

Замечу по поводу использования меток (Label). Их надо применять, только если это действительно обосновано. Если надо пропустить итерацию цикла с определённого места, то может быть применён оператор Continue:

Pascal
1
2
3
4
5
for i := 1 to M do begin
  ...
  if X = 0 then Continue;
  ...
end;

Если требуется досрочно выйти из цикла, применяется оператор Break;

Pascal
1
2
3
4
5
for i := 1 to M do begin
  ...
  if X = 0 then Break;
  ...
end;

Для выхода из вложенных циклов можно применить переменную логического типа и Break:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  B : Boolean;
...
begin
...
  B := False;
  for i := 1 to M do begin
    for j := 1 to M do begin
    ...
      B := X = 0;
      if B then Break;
    ...
    end;
    if B then Break;
  end;
...

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник 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 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .