ошибка в двумерном массиве.

@ravisante · Регистрация: 24.04.2010

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

неправильно считает промежуток в котором должны быть элементы матрицы.
сосчитать количество элементов матрицы,принадлежащих промежутку [-10;1).считает неправильное количество тех самых элементов.скорее всего запуталась в составных операторах и где то забыла begin.буду очень благодарна.

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
var
c:array[1..2,1..3] of real;
i,j:integer;
k,a1,a2,count:byte;
pr:real;
begin
   writeln('vvedite matrizy 2x3');
   for i:=1 to 2 do
   for j:=1 to 3 do
   read(c[i,j]);
   writeln;
   writeln('vvedite ь №строки');
   readln(k);
    [I]repeat
   writeln('vvedite a1 & a2');
   readln(a1,a2);
    until a1<=a2;[/I]
  for i:=1 to 2 do
        begin
        count:=0;
        pr:=1;
          for j:=1 to 3 do
              [B]begin[/B]
             pr:=pr*c[k,j];
             [I]if ((c[i,j])>=a1) and ((c[i,j])<a2) then[/I]
             count:=count+1;
              [B]end;
              end;[/B]
  writeln('количество  v promejytke=',count);
  writeln('proizvedenie',k,'stroki = ',pr:0:5);
  readln
  end.

@Artishok · 13.05.2010, 00:50

кол-во элементов принадлежащих промежутка

Pascal
1
2
3
4
for i:=1 to 2 do begin
for j:=1 to 3 do
 if (c[i,j]>-10) and (c[i,j]<1) then
inc(count);

и вы вроде по-строчно их ищете

@кот Бегемот · 13.05.2010, 00:53

Если не считать некоторых мелочей, всё было нормально, эта работает, попробуйте:

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
var
c:array[1..2,1..3] of real;
i,j:integer;
k,a1,a2,count:byte;
pr:real;
begin
   writeln('vvedite matrizy 2x3');
   for i:=1 to 2 do
   for j:=1 to 3 do
   read(c[i,j]);
   writeln;
   writeln('vvedite ь stroky');
   readln(k);
    repeat
   writeln('vvedite a1 & a2');
   readln(a1,a2);
    until a1<=a2;
  for i:=1 to 2 do
        begin
        count:=0;
        pr:=1;
          for j:=1 to 3 do
              begin
             pr:=pr*c[k,j];
             if ((c[i,j])>=a1) and ((c[i,j])<a2) then
             count:=count+1;
              end;
              end;
  writeln('kolichestvo  v promejytke=',count);
  writeln('proizvedenie ',k,' stroki = ',pr:0:5);
  readln
  end.

@ravisante · 13.05.2010, 01:03 **[ТС]**

Спасибо огромное.

Добавлено через 9 минут

Сообщение от Artishok

кол-во элементов принадлежащих промежутка
Код Pascal
1
2
3
4
for i:=1 to 2 do begin
for j:=1 to 3 do
if (c[i,j]>-10) and (c[i,j]<1) then
inc(count);
и вы вроде по-строчно их ищете

действительно,по строкам.точнее по столбцам.считывает элементы только первого столбца.что делать не подскажете?

@Artishok · 13.05.2010, 01:13

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
var
  c: array[1..2, 1..3] of real;
  i, j: integer;
  k, a1, a2, count: byte;
  pr: real;
 
begin
  writeln('vvedite matrizy 2x3');
  for i := 1 to 2 do
    for j := 1 to 3 do
      read(c[i, j]);
  writeln;
    for i := 1 to 2 do 
  begin
    for j := 1 to 3 do
      write(c[i, j], ' ');
    writeln;
  end;
  writeln('vvedite ь stroky');
  readln(k);
  repeat
    writeln('vvedite a1 & a2');
    readln(a1, a2);
  until a1 <= a2;
  for i := 1 to 2 do
  begin
    count := 0;
    pr := 1;
    for j := 1 to 3 do
    begin
      pr := pr * c[k, j];
      if ((c[i, j]) >= a1) and ((c[i, j]) < a2) then
        count := count + 1;
    end;
    writeln('кол-во элементов',' ',i,'-строки ', count);
  end;
  writeln('proizvedenie ', k, ' stroki = ', pr:0:5);
  readln
end.

посмотрите так.и всё-таки элементы из нужного вам промежутка вы ищете по-строчно.

@ravisante · 13.05.2010, 01:20 **[ТС]**

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

@Artishok · 13.05.2010, 01:26

считает элементы входящие в промежуток и находящиеся в i-той строке
для столбца немного другой цикл

@ravisante · 13.05.2010, 01:31 **[ТС]**

Сообщение от Artishok

for i := 1 to 2 do begin count := 0; pr := 1; for j := 1 to 3 do begin pr := pr * c[k, j]; if ((c[i, j]) >= a1) and ((c[i, j]) < a2) then count := count + 1;

и столбец и строка.мне кажется что begin мешает.или я просто на ночь совсем не варю

Добавлено через 2 минуты
допустим я ввела матрицу
-4 3 -2
-1 6 1

и в количестве элементов,принадлежащих [-10;1) выдается количество=2...

@кот Бегемот · 13.05.2010, 01:31

А так?

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
var
c:array[1..2,1..3] of real;
i,j:integer;
k,a1,a2,count:byte;
pr:real;
begin
   writeln('vvedite matrizy 2x3');
   for i:=1 to 2 do
   for j:=1 to 3 do
   read(c[i,j]);
   writeln;
   writeln('vvedite ь stroky');
   readln(k);
    repeat
   writeln('vvedite a1 & a2');
   readln(a1,a2);
    until a1<=a2;
  count:=0;
  for i:=1 to 2 do
        begin
           pr:=1;
          for j:=1 to 3 do
              begin
             pr:=pr*c[k,j];
             if ((c[i,j])>=a1) and ((c[i,j])<a2) then
             count:=count+1;
              end;
              end;
  writeln('kolichestvo  v promejytke=',count);
  writeln('proizvedenie ',k,' stroki = ',pr:0:5);
  readln
  end.

@Artishok · 13.05.2010, 01:33

Pascal
1
2
3
4
5
6
7
8
9
10
11
  for i := 1 to 2 do //Цикл размером в кол-во строк
  begin
    count := 0; //обнуляем переменную
    pr := 1;
    for j := 1 to 3 do //кол-во столбцов
    begin
      pr := pr * c[k, j]; //ищем произведение элементов строки К
      if ((c[i, j]) >= a1) and ((c[i, j]) < a2) then //если в промежутке то....но именно строки i!
        count := count + 1;
    end;
    writeln('кол-во элементов',' ',i,'-строки ', count); //цикл для i-ой строки закончился выводим номер и результат.

@кот Бегемот · 13.05.2010, 01:34

Artishok, count вынеси за цикл, сброс идёт в цикле

@Artishok · 13.05.2010, 01:36

но если вообще для всей матрицы то надо так как это сделано у кот'а Бегемот'а

Добавлено через 1 минуту
кот Бегемот, у нее поставлен count так что получается ищутся элементы отдельно для каждой строки

@кот Бегемот · 13.05.2010, 01:39

но ей ведь надо общее количество, или выводить на печать по строкам
там вообще и с произведением наворочено, она его считает, сбрасывает и снова считает

@Artishok · 13.05.2010, 01:46

неудачно реализован алгоритм

@ravisante · 13.05.2010, 01:47 **[ТС]**

все отлично ребят!!!!спасибо вам,главное я сама поняла.

Новые блоги и статьи Все статьи Все блоги /
Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .	Взаимодействие Python с REST API py-thonny 27.03.2025 REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .	sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .

@ravisante 0 / 0 / 0 Регистрация: 24.04.2010 Сообщений: 24
	13.05.2010, 01:03 [ТС]
	Спасибо огромное. Добавлено через 9 минут Сообщение от Artishok кол-во элементов принадлежащих промежутка Код Pascal 1 2 3 4 for i:=1 to 2 do begin for j:=1 to 3 do if (c[i,j]>-10) and (c[i,j]<1) then inc(count); и вы вроде по-строчно их ищете действительно,по строкам.точнее по столбцам.считывает элементы только первого столбца.что делать не подскажете? 0

@ravisante 0 / 0 / 0 Регистрация: 24.04.2010 Сообщений: 24
	13.05.2010, 01:20 [ТС]
	все равно считает элемент водящих в промежуток только из первого столбца. все равно спасибо большое,а меня впереди ждет интересная ночь 0

@Artishok ЧакЭ одобряЭ 285 / 284 / 86 Регистрация: 27.12.2009 Сообщений: 1,767
	13.05.2010, 01:26
	считает элементы входящие в промежуток и находящиеся в i-той строке для столбца немного другой цикл 0

@ravisante 0 / 0 / 0 Регистрация: 24.04.2010 Сообщений: 24
	13.05.2010, 01:31 [ТС]
	Сообщение от Artishok for i := 1 to 2 do begin count := 0; pr := 1; for j := 1 to 3 do begin pr := pr * c[k, j]; if ((c[i, j]) >= a1) and ((c[i, j]) < a2) then count := count + 1; и столбец и строка.мне кажется что begin мешает.или я просто на ночь совсем не варю Добавлено через 2 минуты допустим я ввела матрицу -4 3 -2 -1 6 1 и в количестве элементов,принадлежащих [-10;1) выдается количество=2... 0

@кот Бегемот Платежеспособный зверь 8959 / 4384 / 1652 Регистрация: 28.10.2009 Сообщений: 11,629
	13.05.2010, 01:34
	Artishok, count вынеси за цикл, сброс идёт в цикле 0

@Artishok ЧакЭ одобряЭ 285 / 284 / 86 Регистрация: 27.12.2009 Сообщений: 1,767
	13.05.2010, 01:36
	но если вообще для всей матрицы то надо так как это сделано у кот'а Бегемот'а Добавлено через 1 минуту кот Бегемот, у нее поставлен count так что получается ищутся элементы отдельно для каждой строки 0

@кот Бегемот Платежеспособный зверь 8959 / 4384 / 1652 Регистрация: 28.10.2009 Сообщений: 11,629
	13.05.2010, 01:39
	но ей ведь надо общее количество, или выводить на печать по строкам там вообще и с произведением наворочено, она его считает, сбрасывает и снова считает 0

@Artishok ЧакЭ одобряЭ 285 / 284 / 86 Регистрация: 27.12.2009 Сообщений: 1,767
	13.05.2010, 01:46
	неудачно реализован алгоритм 0

@ravisante 0 / 0 / 0 Регистрация: 24.04.2010 Сообщений: 24
	13.05.2010, 01:47 [ТС]
	все отлично ребят!!!!спасибо вам,главное я сама поняла. 0