Нужна блок схема для двумерного массива

@REsad34 · Регистрация: 20.01.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
73
program Project2;
const k=10;
{$APPTYPE CONSOLE}
 
Var
FlagCh, FlagKr, FlagM : Boolean;
a: array[1..k, 1..k] of integer;
g,l,m,i,j, n: integer;
 
Begin
m :=0;
l :=0;
 
Writeln;
Writeln('Vvedite a');
readln(g);
Writeln;
 
writeln ('Massive');
for i:=1 to k do begin
  for j:=1 to k do begin
    a[i,j]:=round(random(k)-5);
    write(a[i,j],' ');
end;
writeln('');
end;
for i:=1 to k do begin
  for j:=1 to k do begin
    if (a[i][j]mod 2 = 0)then 
    FlagCh :=true;
    if (a[i][j]mod 6 <> 0)or (a[i][j]mod g <> 0)then 
    
FlagKR :=true;
    if (a[i][j]> 0)then 
    FlagM :=true;
  end;
  
end;
writeln;
if (FlagCh=True)then
begin
writeln('Est` stroka iz nechetnih elementov');
 
end
else
 
begin if (i=k)then
FlagCh:=false ;
  writeln ('Net stroki iz nechetnih elementov ')
end;
if (FlagM=True)then
begin
writeln('Est` stroka iz otritscatel`nih elementov');
end
else 
begin if (i=k)then
  FlagM:=false ;
  writeln ('Net stroka iz otritscatel`nih elementov ')
end;
if (FlagKr=True)then
begin
write(' Est` stroka iz elementov kratnih ');
write(g);
writeln(' ili 6');
end
else
begin if (i=k)then begin
     FlagKr:=false ;
  write ('Net stroki iz elementov kratnih ');
  write(g);
  writeln(' ili 6'); 
end;
end.

@Lethal Ghost · 24.01.2015, 03:04

Под Винду есть Fceditor.
Рисует не плохие схемки, на основе кода паскаля/C++.

@bormant · 24.01.2015, 11:57

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

Добавлено через 18 минут
Проверка вида "все элементы строки матрицы соответствуют условию" выглядит наподобие такого:

Pascal
1
2
3
isOk=True;
for j:=1 to k do
  if not условие(a[i,j]) then isOk:=False;

или такого:

Pascal
1
2
3
4
5
isOk=True;
for j:=1 to k do
  if not условие(a[i,j]) then begin
    isOk:=False; Break;
  end;

Соответственно, проверка "в матрице есть строка, соответствующая условию" может выглядеть так:

Pascal
1
2
3
4
5
6
for i:=1 to k do begin
  isOk:=True;
  for j:=1 to k do
    if not условие(a[i,j]) then isOk:=False;
  if isOk then Break;
end;

или так:

Pascal
1
2
3
4
5
6
7
8
for i:=1 to k do begin
  isOk:=True;
  for j:=1 to k do
    if not условие(a[i,j]) then begin
      isOk:=False; Break;
    end;
  if isOk then Break;
end;

Random(число) округлять при помощи Round не надо, результат и так целый.

Добавлено через 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
{
Определить, есть ли в матрице:
- строка из нечетных элементов,
- строка из отрицательных элементов,
- строка из элементов, кратных 6 или введенному числу.
}
const
  m=10; n=10; LIM1=-12; LIM2=25; W=4;
  NY: array [Boolean] of String[5] = ('нет','есть');
var
  a: array [1..m,1..n] of Integer;
  d, i, j: Integer;
  hasO, hasK, hasN: Boolean;
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=LIM1+Random(LIM2);
      Write(a[i,j]:W);
    end; WriteLn;
  end;
  repeat
    Write('Введите делитель: '); ReadLn(d);
  until d>0;
  for i:=1 to m do begin
    hasO:=True;
    for j:=1 to n do if not Odd(a[i,j]) then hasO:=False;
    if hasO then Break;
  end;
  for i:=1 to m do begin
    hasN:=True;
    for j:=1 to n do if a[i,j]>=0 then hasN:=False;
    if hasN then Break;
  end;
  for i:=1 to m do begin
    hasK:=True;
    for j:=1 to n do
      if (a[i,j] mod d<>0) and (a[i,j] mod 6<>0) then hasK:=False;
    if hasK then Break;
  end;
  WriteLn('Строка из нечетных: ',NY[hasO]);
  WriteLn('Строка из отрицательных: ',NY[hasN]);
  WriteLn('Строка из кратных 6 или ',d,': ',NY[hasK]);
end.

Добавлено через 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
const
  m=10; n=10; LIM1=-12; LIM2=25; W=4;
  NY: array [Boolean] of String[5] = ('нет','есть');
 
type
  TCondFunc = function(a: Integer): Boolean;
 
var
  a: array [1..m,1..n] of Integer;
  d, i, j: Integer;
 
function HasLine(cond: TCondFunc): Boolean;
var has: Boolean;
begin
  for i:=1 to m do begin
    has:=True;
    for j:=1 to n do
      if not cond(a[i,j]) then begin has:=False; Break; end;
    if has then Break;
  end;
  HasLine:=has;
end;
{$F+}
function IsOdd(a: Integer): Boolean;
begin IsOdd:=Odd(a); end;
function IsNeg(a: Integer): Boolean;
begin IsNeg:=a<0; end;
function IsMult(a: Integer): Boolean;
begin IsMult:=(a mod 6=0) or (a mod d=0); end;
 
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=LIM1+Random(LIM2); Write(a[i,j]:W);
    end; WriteLn;
  end;
  repeat Write('Введите делитель: '); ReadLn(d); until d>0;
  WriteLn('Строка из нечетных: ',NY[HasLine(IsOdd)]);
  WriteLn('Строка из отрицательных: ',NY[HasLine(IsNeg)]);
  WriteLn('Строка из кратных 6 или ',d,': ',NY[HasLine(IsMult)]);
end.

Новые блоги и статьи Все статьи Все блоги /
И решил я переделать этот ноут в машину для распределенных вычислений Programma_Boinc 09.11.2025 И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .	Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.	Новая зверюга volvo 07.11.2025 Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .	Инференс ML моделей в Java: TensorFlow, DL4J и DJL Javaican 05.11.2025 Python захватил мир машинного обучения - это факт. Но когда дело доходит до продакшена, ситуация не так однозначна. Помню проект в крупном банке три года назад: команда data science натренировала. . .	Mapped types (отображённые типы) в TypeScript Reangularity 03.11.2025 Mapped types работают как конвейер - берут существующую структуру и производят новую по заданным правилам. Меняют модификаторы свойств, трансформируют значения, фильтруют ключи. Один раз описал. . .
Адаптивная случайность в Unity: динамические вероятности для улучшения игрового дизайна GameUnited 02.11.2025 Мой знакомый геймдизайнер потерял двадцать процентов активной аудитории за неделю. А виновником оказался обычный генератор псевдослучайных чисел. Казалось бы - добавил в карточную игру случайное. . .	Протоколы в Python py-thonny 31.10.2025 Традиционная утиная типизация работает просто: попробовал вызвать метод, получилось - отлично, не получилось - упал с ошибкой в рантайме. Протоколы добавляют сюда проверку на этапе статического. . .	C++26: Read-copy-update (RCU) bytestream 30.10.2025 Прошло почти двадцать лет с тех пор, как производители процессоров отказались от гонки мегагерц и перешли на многоядерность. И знаете что? Мы до сих пор спотыкаемся о те же грабли. Каждый раз, когда. . .	Изображения webp на старых x32 ОС Windows XP и Windows 7 Argus19 30.10.2025 Изображения webp на старых x32 ОС Windows XP и Windows 7 Чтобы решить задачу, использовал интернет: поисковики Google и Yandex, а также подсказки Deep Seek. Как оказалось, чтобы создать. . .	Passkey в ASP.NET Core identity stackOverflow 29.10.2025 Пароли мертвы. Нет, серьезно - я повторяю это уже лет пять, но теперь впервые за это время чувствую, что это не просто красивые слова. В . NET 10 команда Microsoft внедрила поддержку Passkey прямо в. . .

@Lethal Ghost 1 / 1 / 1 Регистрация: 07.10.2013 Сообщений: 13
	24.01.2015, 03:04
	Под Винду есть Fceditor. Рисует не плохие схемки, на основе кода паскаля/C++. 0

Опции темы