Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Julia1247
0 / 0 / 0
Регистрация: 16.12.2009
Сообщений: 2
1

в процедуре составить вектор номеров столбцов, в которых есть хотя бы один уникальный элемент

20.12.2009, 11:21. Просмотров 400. Ответов 0
Метки нет (Все метки)

Задание : в процедуре составить вектор номеров столбцов, в которых есть хотя бы один уникальный элемент;

Основная программа:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
unik_elem.pas
uses
   unik;
var
   a:matrix;
   b:vector;
   i,j,m,n,z:integer;
begin
   write('vvedite razmer matr:');
   read(m,n);
   write('vvedite element matr:');
   For i:=1 to m do
      For j:=1 to n do
         read(a[i,j]);
   readln;
   p(m,n,a,z,b);
   write('vector nomerov stb б unik elem:');
   For j:= 1 to z do
      write(b[j],' ');
   readln;
end.
Подпрограмма:

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
unik.pas
unit unik;
interface
   type
      vector=array[1..100] of integer;
      matrix=array[1..100,1..100] of integer;
   procedure p(m,n:integer; var a:matrix; var z:integer; var b:vector);
implementation
    procedure p(m,n:integer; var a:matrix; var z:integer; var b:vector);
    var i,j,k,l:integer;
    Begin
       z:=0;
       For j:=1 to n do
       begin
          k:=0;
          For i:=1 to m do
             For l:=1 to m do
                If a[i,j]<>a[l,j] then inc(k);
          If k>0 then
          begin
             z:=z+1;
             b[z]:=j;
          end;
       end;
     end;
end.
программа работает неправильно в случае, если ввести столбец
1
1
2
2

как это исправить?
помогите пожалуйста

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

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.12.2009, 11:21
Ответы с готовыми решениями:

Найти количество столбцов матрицы, в которых есть хотя бы один нулевой элемент
Найти количество столбцов матрицы Y(8,6), в которых есть хотя бы один нулевой...

Сформировать вектор D, состоящий из номеров строк, содержащих хотя бы один отрицательный элемент
выполнить с использованием процедуры ввод и вывод массивов и других данных не...

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

Двумерный массив. Составить вектор из номеров столбцов, в которых все элементы упорядочены по невозрастанию значений.
Пожалуйста,помогите! как можно скорее, сама, увы, бессильна( надо написать...

Определить номера строк массива, в которых есть хотя бы один элемент, равный 10.
помогите плиз решить задачку Дан целочисленный массив А. Определить...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.12.2009, 11:21

Из целочисленной матрицы A(n x m) получить вектор элементами которого будут TRUE , если в соответствующей строке есть хотя бы один ненулевой элемент
Из целочисленной матрицы A(n x m) получить вектор элементами которого будут...

Создание вектора из номеров строк матрицы, где есть хотя бы один числовой палиндром
Описать тип-объект MATRIX (матрица произвольной размерности M*N) и его методы:...

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


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

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

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