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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 4.80
Cлавиk
15 / 15 / 0
Регистрация: 30.04.2010
Сообщений: 33
#1

Есть ли в матрице столбец, в котором ровно три одинаковых элемента - Turbo Pascal

01.05.2010, 17:46. Просмотров 1258. Ответов 6
Метки нет (Все метки)

Помогите пожалуста написать программу. Дан двумерный массив размерностью n*m заполненный случайными числами.Определить,есть ли в данном массиве столбец,в котором имееться ровно три одинаковых элемента.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.05.2010, 17:46
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Есть ли в матрице столбец, в котором ровно три одинаковых элемента (Turbo Pascal):

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

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

Определить, есть ли в данной матрице столбец, в котором все элементы четны и положительны - Turbo Pascal
Дан двумерный массив размером МxN заполненный случайным образом. Определите, есть ли в данном массиве столбец, в котором все элементы четны...

Двумерный массив. В матрице найти столбец, в котором произведение минимального элемента на максимальный больше заданной величина A - Turbo Pascal
В матрице найти столбец, в котором произведение минимального элемента на максимальный больше заданной величина A. Разделить элементы строк...

Функции придать значение True, если в матрице есть два одинаковых элемента - Turbo Pascal
Задали матрицы Z, V, G размерности (3х4). Составить программу, в которой с помощью функции придать значение True, если в матрице есть два...

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

6
AI\EKCAH^P
104 / 101 / 20
Регистрация: 18.05.2009
Сообщений: 201
01.05.2010, 19:29 #2
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
program slavik;
uses crt;
var
a:array[1..100,1..100] of integer;
i,j,kol,n,m,k:integer;
begin
  clrscr;
  randomize;
  write('введите колличество строк     n ');readln(n);
  write('введите колличество столбцов  m ');readln(m);
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(3)-2;
      write(a[i,j]:3);
    end;
    writeln;
  end;
  k:=1;
  kol:=0;
  for j:=1 to n do
  begin
    for i:=1 to m do
    begin
      if a[k,j]=a[i,j] then
      begin
        kol:=kol+1;
      end;
    end;
    textcolor(11);
    if kol=3 then writeln('в ',j,' столбце ровно три элемента ');
    textcolor(7);
    k:=k+1;
    kol:=0;
  end;
   readln;
end.
1
Cлавиk
15 / 15 / 0
Регистрация: 30.04.2010
Сообщений: 33
05.05.2010, 20:40  [ТС] #3
AI\EKCAH^P,эта програмка не всегда выводит столбцы в котором ровно три одинаковых элемента,я никак немогу найти ошибку подскажи пожалуста что делать.
1
Ivan123
12 / 12 / 4
Регистрация: 15.12.2008
Сообщений: 32
Завершенные тесты: 2
05.05.2010, 21:01 #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
28
29
30
31
32
33
34
35
var
matr: array [1..100,1..100] of integer;
k,i,j,count,m,n:integer;
begin
write('Число строк ');
readln(n);
write('Число столбцов ');
readln(m);
randomize;
 
for i:=1 to n do
  begin
  for j:=1 to m do
    begin
    matr[i,j]:=random(3)+1;
    write(matr[i,j], ' ');
    end;
  writeln;
  end;
for j:=1 to m do
  for i:=1 to n-2 do
    begin
    count:=1;
        for k:=i+1 to n do
          if matr[i,j]=matr[k,j] then
            inc(count);
        if count=3 then 
          begin
          writeln('в ',j,' столбце есть три одинаковых элемента');
          break;
          end;
    end;
  
readln;  
end.
Проверяй
2
Cлавиk
15 / 15 / 0
Регистрация: 30.04.2010
Сообщений: 33
05.05.2010, 21:36  [ТС] #5
Ivan123 в столбце должо быть ровно 3 одинаковых элемента.
1
AI\EKCAH^P
104 / 101 / 20
Регистрация: 18.05.2009
Сообщений: 201
10.05.2010, 18:53 #6
Cлавиk, Вроде всегда выводит столбцы ,где три одинаковых элемента
0
Cлавиk
15 / 15 / 0
Регистрация: 30.04.2010
Сообщений: 33
17.05.2010, 21:49  [ТС] #7
Помогите пожалуста написать программу. Дан двумерный массив размерностью n*m заполненный случайными числами.Определить,есть ли в данном массиве столбец,в котором имееться ровно три одинаковых элемента.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program q;
uses crt;
var
a:array[1..100,1..100] of integer;
i,j,kol,n,m,k:integer;
begin
  clrscr;
  randomize;
  write('введите колличество строк     n ');readln(n);
  write('введите колличество столбцов  m ');readln(m);
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(3)-2;
      write(a[i,j]:3);
1
17.05.2010, 21:49
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.05.2010, 21:49
Привет! Вот еще темы с ответами:

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

Дана целочисленная матрица А(10,10). Если на главной диагонали матрицы есть хотя бы два одинаковых элемента, то найти в матрице индексы минимального э - Pascal
Дана целочисленная матрица А(10,10). Если на главной диагонали матрицы есть хотя бы два одинаковых элемента, то найти в матрице индексы...

В вещественной матрице обнулить столбец в котором наибольшее количество НЕ нулевых элементов - Turbo Pascal
Помогите решить вот такую задачу. В вещественной матрице обнулить столбец в котором наибольшее количество НЕ нулевых элементов.

Дана целочисленная (?) матрица размера N*M, в которой имеются ровно 2 одинаковых элемента. Найти индексы этих элементов. - Turbo Pascal
Дана целочисленная (?) матрица размера N*M, в которой имеются ровно 2 одинаковых элемента. Найти индексы этих элементов. Заранее...


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

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

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