Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
VNgorod
0 / 0 / 0
Регистрация: 04.01.2015
Сообщений: 6
#1

Составить программу подсчета количества элементов матрицы, удовлетворяющих условию - Turbo Pascal

04.01.2015, 18:39. Просмотров 619. Ответов 2
Метки нет (Все метки)

Дана вещественная матрица А(3,4). Составить программу подсчета количества элементов матрицы, удовлетворяющих условию р1<=a(i,j)<=p2. Значения р1 и р2 задаются самостоятельно.
http://www.cyberforum.ru/turbo-pascal/thread1218057.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.01.2015, 18:39
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Составить программу подсчета количества элементов матрицы, удовлетворяющих условию (Turbo Pascal):

Составить программу подсчета количества элементов массива, совпадающих с минимальным элементом
ввести двумерный массив A(N,N). Составить программу подсчета количества...

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

Расчет суммы или количества элементов массива, удовлетворяющих некоторому условию
5. Дан массив целых чисел. Выяснить, верно ли, что сумма элементов, которые...

Расчет суммы или количества элементов массива, удовлетворяющих некоторому условию
Дан массив целых чисел. Найти сумму нечетных элементов;

Расчет суммы или количества элементов массива, удовлетворяющих некоторому условию
6.4) Дан массив целых чисел. Найти сумму элементов, кратных заданному числу;

2
erl27
892 / 741 / 831
Регистрация: 06.09.2013
Сообщений: 1,561
04.01.2015, 20:04 #2
Лучший ответ Сообщение было отмечено VNgorod как решение

Решение

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
uses
  crt;
 
const
  m = 3;
  n = 4;
  
var
  A: array[1..m, 1..n] of real;
  i, j, Q: byte;
  p1, p2: real;
  
begin
  ClrScr;
  writeln('Введите p1, p2:');
  readln(p1, p2);
  Q := 0;
  randomize;
  for i := 1 to m do begin
    for j := 1 to n do begin
      a[i, j] := 200 * random - 100;
      write(a[i, j]:8:3);
      if (a[i, j] >= p1) and (a[i, j] <= p2) then inc(Q)
    end;
    writeln
  end;
  writeln;
  writeln('Количество: ', Q);
  readln
end.
0
VNgorod
0 / 0 / 0
Регистрация: 04.01.2015
Сообщений: 6
04.01.2015, 20:13  [ТС] #3
Спасибо друг
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.01.2015, 20:13
Привет! Вот еще темы с решениями:

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

Составить программу поиска чисел, удовлетворяющих условию
Здравствуйте! помогите пожалуиста решить задачу=((( Некоторые пятизначные...

Составить программу вычисления среднего арифметического элементов матрицы А(6Х3), удовлетворяющих условиям /а/≥10
Составить программу вычисления среднего арифметического элементов матрицы...

Найти количество элементов матрицы, удовлетворяющих условию
Дана матрица a=\left(...


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

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

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