Определить сколько элементов массива входит в диапазон (a,b)

@Илюха12345 · Регистрация: 01.06.2012

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

ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Задан двумерный массив целых чисел. Напишите программу которая определит, сколько элементов массива входит в диапазон (a,b) где a и b - числа которые пользователь вводит с клавиатуры. в случае если такого диапазона чисел нет в массиве- вывести соответствующее сообщение.

@Alteisen · 02.06.2012, 16:32

Pascal

program erwt;
const e=5;                     {Поменяйте, что бы изменить размер массива}
      w=6;
var m: array [1..e,1..w] of integer;
    a,b,c,n,k: integer;
begin
write('ввод от ');read(n);
write('ввод до ');read(k);
for a := 1 to e do begin       {Заполнение массива случайными элементами}
for b := 1 to w do begin       {и его вывод на экран}
m[a,b] := Random(99)+1;
if m[a,b]>9 then write(m[a,b],' ') else write(m[a,b],'  ');
end;
writeln();
end;
writeln();
{---------------------------}  {Начало обработки данных}
for a := 1 to e do
for b := 1 to w do
if m[a,b]>=n then
if m[a,b]<=k then c:=c+1;
if c <> 0 then writeln('количество найденных элементов: ',c) else
writeln('в заданном диапазоне элементы не найдены');
end.

@Илюха12345 · 02.06.2012, 17:12 **[ТС]**

я написал так и программа вылетает после ввода чисел. что не так?

Pascal

uses  SysUtils;
 
const e=5;
      w=6;
var m: array [1..e,1..w] of integer;
    a,b,c,n,k: integer;
begin
write('vvedi chislo ot');read(n);
write('vvedi chislo do');read(k);
for a := 1 to e do begin
for b := 1 to w do begin
m[a,b] := Random(99)+1;
if m[a,b]>9 then write(m[a,b],' ') else write(m[a,b],'  ');
end;
writeln;
end;
writeln;
for a := 1 to e do
for b := 1 to w do
if m[a,b]>=n then
if m[a,b]<=k then c:=c+1;
if c <> 0 then writeln('kol-vo naidennuh elementov: ',c) else
writeln('v zadannom diapazone elementu ne naidenu');
end.

@ermolay · 02.06.2012, 17:42

1. не совсем понял, вернее совсем не понял, зачем эта строчка?

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

if m[a,b]>9 then write(m[a,b],' ') else write(m[a,b],' *');

2. в задании не указывается, что массив должен быть 5х6, поэтому более правильно будет, чтобы пользователь сам вводил размеры массива..

как то так..

Pascal

const
  nmax=100;
 
var
  m: array [1..nmax, 1..nmax] of integer;
  i, j, c, n, k, e, w: integer;
 
begin
  write('Vvedite razmeri massiva: ');
  readln(e,w);
  write('vvedi nachalo diapazona: ');read(n);
  repeat
    write('vvedi konec diapazona: ');read(k);
  until k>n;
  for i := 1 to e do 
  begin
    for j := 1 to w do 
    begin
      m[i, j] := Random(99) + 1;
      write(m[i, j]:4);
    end;
    writeln;
  end;
  writeln;
  for i := 1 to e do
    for j := 1 to w do
      if m[i, j] >= n then
        if m[i, j] <= k then c := c + 1;
  if c <> 0 then writeln('kol-vo naidennuh elementov: ', c) else
    writeln('v zadannom diapazone elementu ne naidenu');
  readln;
end.

@Илюха12345 · 02.06.2012, 18:07 **[ТС]**

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

@ermolay · 02.06.2012, 18:37

попробуйте это

Pascal

const
  nmax=100;
 
var
  m: array [1..nmax, 1..nmax] of integer;
  i, j, c, n, k, e, w: integer;
 
begin
  randomize;
  write('Vvedite razmeri massiva: ');
  readln(e,w);
  write('vvedi nachalo diapazona: ');readln(n);
  repeat
    write('vvedi konec diapazona: ');readln(k);
  until k>n;
  for i := 1 to e do 
  begin
    for j := 1 to w do 
    begin
      m[i, j] := Random(99) + 1;
      write(m[i, j]:4);
    end;
    writeln;
  end;
  writeln;
  
  for i := 1 to e do
    for j := 1 to w do
      if m[i, j] >= n then
        if m[i, j] <= k then c := c + 1;
  if c <> 0 then writeln('kol-vo naidennuh elementov: ', c) else
    writeln('v zadannom diapazone elementu ne naidenu');
  readln;
end.

Добавлено через 26 секунд
изначально только код подправил - не проверяя..

@Alteisen · 02.06.2012, 19:20

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

1. не совсем понял, вернее совсем не понял, зачем эта строчка?
Сообщение от Alteisen
if m[a,b]>9 then write(m[a,b],' ') else write(m[a,b],' *');

Для красивого вывода строки, так сказать кустарный аналог вашего write(m[i, j]:4);

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

2. в задании не указывается, что массив должен быть 5х6, поэтому более правильно будет, чтобы пользователь сам вводил размеры массива..

Ваш упрек не уместен, в задании сказано, что массив уже задан, а пользователь должен задавать только диапазон. Если вы считаете, что моего аргумента не достаточно, скажите, почему вы ограничили размер массива только 100, а не скажем 1000? Вдруг пользователь введет 8000, а программа не будет работать или даже выдаст ошибку ввода? Что пользователю помешает гневно потребовать объяснений? Ставьте ограничения..
Чтобы вам не резало глаза...

Pascal

program erwt;
const e=5;
      w=5;
var m: array [1..e,1..w] of integer;
    a,b,c,n,k: integer;
begin
write('vvedi nachalo diapazona: ');read(n);
repeat
write('vvedi konec diapazona: ');read(k);
until k>n;
for a:=1 to e do begin
for b:=1 to w do begin
m[a,b] := Random(99) + 1;
write(m[a,b]:4);
end;
writeln;
end;
writeln;
for a:=1 to e do
for b:=1 to w do
if m[a,b] >= n then
if m[a,b] <= k then c:=c+1;
if c <> 0 then writeln('kol-vo naidennuh elementov: ', c) else
writeln('v zadannom diapazone elementu ne naidenu');
end.

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

Сообщение от Илюха12345

я написал так и программа вылетает после ввода чисел. что не так?

Думаю, что виноват:

Pascal

1 2	uses SysUtils;

Проверьте, всё ли работает с crt; у меня нет модуля SysUtils, поэтому проверить не могу.

@ermolay · 02.06.2012, 19:31

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

вылетает после ввода чисел

после read нужно ставить readln или сразу вместо read - readln
форум - турбо паскаль, значит в конце тоже нужно установить readln;

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

1. не совсем понял, вернее совсем не понял, зачем эта строчка?

в коде илюхи не было звездочки, то есть после then и после else шли абсолютно одинаковые конструкции, вашу звездочку не заметил, не обессудьте..

@Илюха12345 · 04.06.2012, 15:21 **[ТС]**

а что обозначает
m[a,b] := Random(99) + 1;
почему не просто m[a,b] := Random(99)

Добавлено через 22 минуты
а если со знаком минус
m[a,b] := Random(99) - 1;

@Илюха12345 0 / 0 / 0 Регистрация: 01.06.2012 Сообщений: 45
		1
	Определить сколько элементов массива входит в диапазон (a,b) 02.06.2012, 15:44. Показов 2260. Ответов 8 Метки нет (Все метки) ПОМОГИТЕ ПОЖАЛУЙСТА!!! Задан двумерный массив целых чисел. Напишите программу которая определит, сколько элементов массива входит в диапазон (a,b) где a и b - числа которые пользователь вводит с клавиатуры. в случае если такого диапазона чисел нет в массиве- вывести соответствующее сообщение. 0

@Илюха12345 0 / 0 / 0 Регистрация: 01.06.2012 Сообщений: 45
	02.06.2012, 18:07 [ТС]	5
	эта программа вылетает и можно ли сделать так что бы выбранный случайно массив выводился на экран 0

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	02.06.2012, 19:31	8
	Сообщение от Alteisen вылетает после ввода чисел после read нужно ставить readln или сразу вместо read - readln форум - турбо паскаль, значит в конце тоже нужно установить readln; Сообщение от Alteisen 1. не совсем понял, вернее совсем не понял, зачем эта строчка? в коде илюхи не было звездочки, то есть после then и после else шли абсолютно одинаковые конструкции, вашу звездочку не заметил, не обессудьте.. 1

@Илюха12345 0 / 0 / 0 Регистрация: 01.06.2012 Сообщений: 45
	04.06.2012, 15:21 [ТС]	9
	а что обозначает m[a,b] := Random(99) + 1; почему не просто m[a,b] := Random(99) Добавлено через 22 минуты а если со знаком минус m[a,b] := Random(99) - 1; 0

Опции темы