Какие строки имеют искомое число,а какие нет

@Dariaa · Регистрация: 11.12.2010

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

Нужно выполнить обработку элементов прямоугольной матрицы А,имеющей N строк и М столбцов.все элементы имеют целый тип.дано целое число H.определить,какие строки имеют хотя бы одно такое число ,а какие не имеют.

Я написала программу, но она не работает,не могу понять почему. Причем при выводе строк,которые имеют число все нормально,как добавляю кусок чтобы найти те,которые не имеют-сразу ерунда какая-то начинается. Посмотрите,пожалуйста,что не так

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
 Program Otchet;
 uses crt;
Type mas1=array[1..100] of integer;
     mas2=array[1..100,1..100] of integer;
 
Var f,d,n,m,h,i,j:integer;
    a:mas2;
    yes,no:mas1;
Begin
      clrscr;
      writeln('vvedite n,m');
      read(n,m);
      for i:=1 to n do
      for j:=1 to m do
      a[i,j]:=random(50)+1;
       for i:=1 to n do
      for j:=1 to m do
      begin
      write(a[i,j]:4);
      if j=m then writeln;
        end;
         writeln('vvedite h');
        read(h);
        d:=0;
        for i:=1 to n do
        for j:=1 to m do
        if a[i,j]=h then
           begin
           d:=d+1;
           yes[d]:=i;
         end;
         f:=0;
        for i:=1 to n do
        for j:=1 to m do
        if a[i,j]<>h then
           begin
           f:=f+1;
           no[f]:=i;
           end;
         if d<>0 then
         begin
         writeln('stroki soder chislo');
         for i:=1 to d do
         write(yes[i]:3);
         writeln;
         writeln('stroki ne  soder chislo');
         for i:=1 to f do
         write(no[i]:3);
         writeln;
         end
         else writeln('ni odna stroka ne sodergit chislo');
         readkey;
 
         end.

Добавлено через 1 час 36 минут
ммм,переделала, тут точно не правильно. но и в переделанной не работает

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
 Program Otchet;
 uses crt;
Type mas1=array[1..100] of integer;
     mas2=array[1..100,1..100] of integer;
 
Var f,d,n,m,h,i,j:integer;
    a:mas2;
    yes,no:mas1;
Begin
      clrscr;
      writeln('vvedite n,m');
      read(n,m);
      for i:=1 to n do
      for j:=1 to m do
      a[i,j]:=random(50)+1;
       for i:=1 to n do
      for j:=1 to m do
      begin
      write(a[i,j]:4);
      if j=m then writeln;
        end;
         writeln('vvedite h');
        read(h);
        d:=0;
        for i:=1 to n do
        for j:=1 to m do
        if a[i,j]=h then
           begin
           d:=d+1;
           yes[d]:=i;
           end;
         f:=0;
        for i:=1 to n do
        for j:=1 to m do
        if a[i,j]<>h then
           begin
           f:=f+1;
           no[f]:=i;
           end;
         if d<>0 then
         begin
         writeln('stroki soder chislo');
         for i:=1 to d do
         write(yes[i]:3);
         writeln
         end
         else writeln('ni odna stroka ne sodergit chislo');
         if f<>0 then
         begin
         writeln('stroki ne  soder chislo');
         for i:=1 to f do
         write(no[i]:3)
         end
         else writeln('vse stroki sodergat chislo');
 
         end.

Grey Warden · 11.12.2010, 21:46

Обязательно размеры матрицы вводить во время исполнения программы?

@Dariaa · 11.12.2010, 22:18 **[ТС]**

ну вроде бы да....

Grey Warden · 12.12.2010, 13:00

Вот работающий вариант программы. Я немного подправил твою вторую программу.

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
Program Otchet;
uses crt;
Type mas1=array[1..100] of integer;
     mas2=array[1..100,1..100] of integer;
 
Var f,d,n,m,h,i,j:integer;
    a:mas2;
    yes,no:mas1;
    flag:boolean;
Begin
      randomize;
      clrscr;
      flag:=false;
      writeln('vvedite n,m');
      read(n,m);
      for i:=1 to n do
      for j:=1 to m do
      a[i,j]:=random(50)+1;
       for i:=1 to n do
      for j:=1 to m do
      begin
      write(a[i,j]:4);
      if j=m then writeln;
        end;
         writeln('vvedite h');
        read(h);
        d:=0;
        for i:=1 to n do
        begin
        for j:=1 to m do
        if (a[i,j]=h)and(flag=false) then
           begin
           d:=d+1;
           yes[d]:=i;
           flag:=true;
           end;
        flag:=false;
        end;
         f:=1;
         j:=0;
        if d<>0 then
            for i:=1 to n do
          begin
            if i<>yes[f] then
            begin
                j:=j+1;
        no[j]:=i;
            end
                else
                F:=f+1;
        end else
            for i:=1 to n do
          begin
            no[i]:=i;
            j:=j+1;
          end;
 
         if d<>0 then
         begin
           if d=n then writeln('vse stroki soderjat chislo h') else
           begin
             writeln('stroki soder chislo');
             for i:=1 to d do
               write(yes[i]:3);
           end;
           writeln;
         end;
 
         if j<>0 then
            begin
            if j>=n then writeln('ni odna stroka ne soderjit chislo h') else
            begin
                  writeln('stroki ne soder chislo');
              for i:=1 to j do
                write(no[i]:3)
            end;
          end;
    readkey;
end.

Чтобы числа при случайной генерации каждый раз были разные надо в самом начале программы писать команду randomize.

Добавлено через 1 минуту
И еще. Чтобы программа не записывала одну и ту же строку по несколько раз я добавил логическую переменную flag.

@Dariaa · 12.12.2010, 16:28 **[ТС]**

ой,спасибо большое!!!! мне теперь осталось блох-схему как-то сделать по этой программе. она вообще тут большая получится?

Добавлено через 29 минут
поможете ее?...

@SuPeR XaKer · 12.12.2010, 16:37

Что то страшное вы написали.

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
Uses
 CRT;
var
 B:array [1..10,1..10] of integer;
 k,m,i,j,h:integer;
 t:boolean;
begin
 write('Ââåäèòå ðàçìåð ìàòðèöû ÊõÌ: ');
 readln(k,m);
 randomize;
 writeln('ìàòðèöa: ');
 for i:=1 to k do
 begin
  for j:=1 to m do
  begin
   b[i,j]:=random(10)-3;
   write(b[i,j]:3);
  end;
  writeln;
 end;
 writeln;
 readln(h);
 for i:=1 to k do
 begin
  t:=false;
  for j:=1 to m do
   if b[i,j]=h then
    t:=true;
   if t then
    writeln('Â ñòðîêå ',i,' åñòü ýòî ÷èñëî')
   else
    writeln('Â ñòðîêå ',i,' íåò ýòîãî ÷èñëà');
  end;
readkey
end.

@Dariaa · 12.12.2010, 17:12 **[ТС]**

Сообщение от SuPeR XaKer

if t then

что значит эта строка?

@SuPeR XaKer · 12.12.2010, 17:19

если t истина (т.е. число есть в строке) то

@Dariaa · 12.12.2010, 17:53 **[ТС]**

извините,а можно я сюда картинку выложу,где я блок схему нарисовала ,вы посмотрите так или нет?

@SuPeR XaKer · 12.12.2010, 17:58

Dariaa вот держите.

@Dariaa · 12.12.2010, 19:06 **[ТС]**

спасибо,вы мне ОЧЕНЬ помогли!!! :dance3:

Grey Warden · 12.12.2010, 19:34

Сразу не подумал, что можно будет вывести номера строк во время цикла. Но для больших массивов это ведь заполнит экран кучей сообщений. Хотя моя программа реально занимает больше памяти.

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

Grey Warden 7 / 9 / 1 Регистрация: 10.12.2010 Сообщений: 48
	11.12.2010, 21:46
	Обязательно размеры матрицы вводить во время исполнения программы? 0

@Dariaa 0 / 0 / 0 Регистрация: 11.12.2010 Сообщений: 11
	11.12.2010, 22:18 [ТС]
	ну вроде бы да.... 0

@Dariaa 0 / 0 / 0 Регистрация: 11.12.2010 Сообщений: 11
	12.12.2010, 16:28 [ТС]
	ой,спасибо большое!!!! мне теперь осталось блох-схему как-то сделать по этой программе. она вообще тут большая получится? Добавлено через 29 минут поможете ее?... 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,876
	12.12.2010, 17:19
	если t истина (т.е. число есть в строке) то 0

@Dariaa 0 / 0 / 0 Регистрация: 11.12.2010 Сообщений: 11
	12.12.2010, 17:53 [ТС]
	извините,а можно я сюда картинку выложу,где я блок схему нарисовала ,вы посмотрите так или нет? 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,876
	12.12.2010, 17:58
	Dariaa вот держите. Миниатюры 0

@Dariaa 0 / 0 / 0 Регистрация: 11.12.2010 Сообщений: 11
	12.12.2010, 19:06 [ТС]
	спасибо,вы мне ОЧЕНЬ помогли!!! :dance3: 0

Grey Warden 7 / 9 / 1 Регистрация: 10.12.2010 Сообщений: 48
	12.12.2010, 19:34
	Сразу не подумал, что можно будет вывести номера строк во время цикла. Но для больших массивов это ведь заполнит экран кучей сообщений. Хотя моя программа реально занимает больше памяти. 0