Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
Seprente
0 / 0 / 0
Регистрация: 30.03.2017
Сообщений: 6
#1

Определить, есть ли в данной матрице столбец, в котором имеются одинаковые элементы - Free Pascal

03.04.2017, 13:09. Просмотров 261. Ответов 7
Метки нет (Все метки)

Дан двумерный массив размером n*m, заполненный случайными числами. Определить, есть ли в данном массиве столбец, в котором имеются одинаковые элементы.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.04.2017, 13:09
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить, есть ли в данной матрице столбец, в котором имеются одинаковые элементы (Free Pascal):

Определить, есть ли в массиве столбец, в котором имеются одинаковые элементы - Pascal
Дан двумерный массив размером n x m (которые вводятся с клавиатуры), заполненный случайными числами. Определить, есть ли в данном массиве...

Определить, есть ли в данном массиве столбец, в котором имеются одинаковые элементы - Pascal
Дан двумерный массив размером n x m, заполненный случайными числами. Определить, есть ли в данном массиве столбец, в котором имеются...

Есть ли в матрице столбец, в котором нет элементов, меньше заданного G? - Pascal
Заданна прямоугольная матрица (в некоторых задачах задан дополнительный массив чисел). Составить алгоритм и программу, Которая вводит и...

Определите, есть ли в данной матрице строка, в которой все элементы принадлежат промежутку - Free Pascal
Создайте и обработайте двумерный динамический массив. Задана матрица А. Определите, есть ли в данной матрице строка, в которой все...

Поменяйте в матрице местами 3-й столбец и столбец, в котором находится первый максимальный элемент - Pascal
Дан двумерный массив. Поменяйте местами 3-й столбец и столбец, в котором находится первый максимальный элемент. Если максимальный элемент...

Определить столбец матрицы, в котором все элементы расположены в порядке возрастания их значений - Free Pascal
Разработка программ с несколькими процедурами Здравствуйте помогите решить задачу. В заданной прямоугольной матрице определить столбец, в...

7
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3839 / 2826 / 1942
Регистрация: 05.06.2014
Сообщений: 13,841
04.04.2017, 09:13 #2
Определить, есть ли в массиве столбец, в котором имеются одинаковые элементы
0
VladimirD
74 / 74 / 38
Регистрация: 30.12.2015
Сообщений: 224
04.04.2017, 09:47 #3
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
program Project1;
var
i,j,n,m:integer;
result:boolean;
arr:array [1..50,1..50] of integer;
begin
 
write('pls enter n ');
readln(n);
write('pls enter m ');
readln(m);
for i:=0 to n-1 do
begin
    for j:=0 to m-1 do
    begin
        arr[i,j]:=random(10);
        write(arr[i,j],' ');
    end;
writeln;
end;
 
for j:=0 to m-1 do
begin
    result:=true;
    for i:=0 to n-1 do
        if arr[i,j]<>arr[0,j] then
          begin
            result:=false;
            break;
          end;
    if result=true then
    begin
    write('matrix has a column with the same elements ');
    writeln (j+1);
    end;
end;
end.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3749 / 2446 / 1307
Регистрация: 22.11.2013
Сообщений: 6,794
04.04.2017, 12:21 #4
VladimirD,
а вы какую задачку решали, точно ту, что в первом сообщении темы?
Определить, есть ли в матрице столбец, состоящий из одинаковых элементов -- это не совсем то, что в задании.


Где-то умирает маленький котёнок, когда делают так:
Pascal
1
2
3
if result=true then
if result=true=true then
if result=true=true=true then
Пожалейте котят.
0
VladimirD
74 / 74 / 38
Регистрация: 30.12.2015
Сообщений: 224
04.04.2017, 15:38 #5
bormant, про котят понял ))
И про решение, у меня если все элементы столбца одинаковы
Учусь на ошибках
0
Cyborg Drone
Модератор
5491 / 3100 / 1287
Регистрация: 17.08.2012
Сообщений: 10,020
04.04.2017, 20:09 #6
Можно сделать так:
Pascal
22
23
24
25
26
27
28
29
30
31
  for j := 0 to m - 1 do
    begin
      for i := 0 to n - 1 do
        begin
          result := arr[i, j] <> arr[0, j];
          if not result then break
        end;
      if result then writeln('matrix has a column with the same elements ', j + 1)
   end
end.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3749 / 2446 / 1307
Регистрация: 22.11.2013
Сообщений: 6,794
05.04.2017, 00:33 #7
Cyborg Drone,
это решение другой задачи, которую пока никто не задавал.
0
Cyborg Drone
Модератор
5491 / 3100 / 1287
Регистрация: 17.08.2012
Сообщений: 10,020
05.04.2017, 01:53 #8
А, за VladimirD повёлся... Типа, пример показал. А у него ещё там и вылет за границы массива имеется... Ладно, запишем в тренаж.
0
05.04.2017, 01:53
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.04.2017, 01:53
Привет! Вот еще темы с ответами:

дан двумерный массив. определить: есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элементов - Pascal
дан двумерный массив. определить: есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элементов

Определить элементы целочисленного массива, в записи которых есть ровно 2 одинаковые цифры - Pascal
Определить элементы целочисленного массива, в записи которых есть ровно 2 одинаковые цифры и занести их во второй массив, специально для...

Определить есть ли отрицательные элементы в матрице - Pascal
Парни помогите с задачей! Дана целочисленная матрица А(m*n). Определить есть ли отрицательные элементы в матрице А, и если есть, то...

Определить, есть ли в матрице повторяющиеся элементы (использовать цикл с предусловием) - Free Pascal
Дан двумерный массив. Определить есть ли в нем повторяющиеся элементы. (Использовать цикл с предусловием)


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

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

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