Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
18 / 1 / 0
Регистрация: 29.04.2011
Сообщений: 33
1

В заданной матрице подсчитать и вывести на экран количество элементов, попадающих в заданный интервал [a,b] и значения этих элементов

05.05.2011, 12:57. Просмотров 1142. Ответов 4
Метки нет (Все метки)


В заданной матрице подсчитать и вывести на экран количество элементов, попадающих в заданный интервал [a,b] и значения этих элементов.

Пожалуйста помогите написать!

 Комментарий модератора 
Дублирование тем запрещено правилами форума (п. 3.4). Не плодите одинаковых тем.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.05.2011, 12:57
Ответы с готовыми решениями:

Подсчитать и вывести на экран количество элементов матрицы, попадающих в заданный интервал
3. Напишите программу, которая в заданной матрице A подсчитывает и выводит на экран количество...

Подсчитать количество элементов массива, не попадающих в заданный интервал
Замечание. Задачи из данного пункта решить двумя способами, используя одномерный массив, а затем...

Подсчитать количество элементов массива, не попадающих в заданный интервал
дана последовательность целых чисел.подсчитать количество элементов не попадающих в заданный...

Функция-шаблон. Подсчитать количество элементов, не попадающих в заданный интервал
#include <iostream> using namespace std; template <typename X> void vvod(X **a, int n, int m) {...

4
4116 / 991 / 191
Регистрация: 09.04.2009
Сообщений: 4,225
05.05.2011, 13:04 2
Pascal
1
2
3
4
5
6
7
for i:=1 to n do 
   for j:=1 to m do // esli matrica dvymerna
      if (z[i]{[i,j] esli matrica dvymerna}>=a) and (z[i]{[i,j] esli matrica dvymerna}<=b) then begin
         writeln(z[i]{[i,j] esli matrica dvymerna});
         kolichestvo:=kolichestvo+1;
      end;
writeln(kolichestvo);
как то так
2
18 / 1 / 0
Регистрация: 29.04.2011
Сообщений: 33
05.05.2011, 13:16  [ТС] 3
Цитата Сообщение от Jazon_deenAlt Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
for i:=1 to n do 
   for j:=1 to m do // esli matrica dvymerna
      if (z[i]{[i,j] esli matrica dvymerna}>=a) and (z[i]{[i,j] esli matrica dvymerna}<=b) then begin
         writeln(z[i]{[i,j] esli matrica dvymerna});
         kolichestvo:=kolichestvo+1;
      end;
writeln(kolichestvo);
как то так
Спасибо! а как это всё собрать??
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  i,j,n,m,z: integer;
begin
 
 for i:=1 to n do
   for j:=1 to m do // esli matrica dvymerna
      if (z[i]{[i,j] esli matrica dvymerna}>=a) and (z[i]{[i,j] esli matrica dvymerna}<=b) then begin
         writeln(z[i]{[i,j] esli matrica dvymerna});
         kolichestvo:=kolichestvo+1;
      end;
writeln(kolichestvo);
  end.
0
4116 / 991 / 191
Регистрация: 09.04.2009
Сообщений: 4,225
05.05.2011, 13:27 4
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
uses crt;
var
i,j,a,b,n,m,kolichestvo:integer;
z:array[1..100,1..100] of integer;
begin
writeln('vvedite rozmernost massiva');
readln(n,m);
randomize;
for i:=1 to n do begin
   for j:=1 to m do begin
      z[i,j]:=random(199)-99;
      write(z[i,j]:4);
   end;
   writeln;
end;
writeln;
writeln('vvedite a i b');
readln(a,b);
for i:=1 to n do
   for j:=1 to m do
      if (z[i,j]>=a) and (z[i,j]<=b) then begin
         writeln(z[i,j]);
         kolichestvo:=kolichestvo+1;
      end;
writeln('takih chisel ',kolichestvo);
readln;
end.
2
18 / 1 / 0
Регистрация: 29.04.2011
Сообщений: 33
05.05.2011, 14:03  [ТС] 5
Цитата Сообщение от Jazon_deenAlt Посмотреть сообщение
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
uses crt;
var
i,j,a,b,n,m,kolichestvo:integer;
z:array[1..100,1..100] of integer;
begin
writeln('vvedite rozmernost massiva');
readln(n,m);
randomize;
for i:=1 to n do begin
   for j:=1 to m do begin
      z[i,j]:=random(199)-99;
      write(z[i,j]:4);
   end;
   writeln;
end;
writeln;
writeln('vvedite a i b');
readln(a,b);
for i:=1 to n do
   for j:=1 to m do
      if (z[i,j]>=a) and (z[i,j]<=b) then begin
         writeln(z[i,j]);
         kolichestvo:=kolichestvo+1;
      end;
writeln('takih chisel ',kolichestvo);
readln;
end.
БОЛЬШОЕ СПАСИБО!!! )
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.05.2011, 14:03

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

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

Вывести на экран номера всех элементов, не попадающих в заданный интервал
Дана последовательность целых чисел. Вывести на экран номера всех элементов, не попадающих в...

Вывести на экран номера всех элементов массива не попадающих в заданный интервал
Вывести на экран номера всех элементов не попадающих в заданный интервал

Вывести на экран номера всех элементов массива, не попадающих в заданный интервал
вывести на экран номера всех элементов, не попадающих в заданный интервал. Решить используя...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.