Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
29 / 29 / 3
Регистрация: 11.02.2012
Сообщений: 339

Определить, имеются ли среди столбцов прямоугольной целочисленной матрицы такие, которые составлены из попарно различных чисел

22.02.2012, 09:37. Показов 1227. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Определить, имеются ли среди столбцов прямоугольной целочисленной матрицы такие, которые составлены из попарно различных чисел.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
22.02.2012, 09:37
Ответы с готовыми решениями:

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

Подсчитать количество столбцов заданной матрицы размером 20*20, которые составлены из попарно различных чисел
Т.е. соседние числа в каждом столбике не должны быть равны. Задача сводится к поиску равных элементов в каждом столбце. Примерно знаю как...

Массив: Подсчитать количество столбцов, которые составлены из попарно различных чисел.
Необходимо сделать код программы для этого условия: Дана целочисленная матрица размера nxn.Подсчитать количество столбцов,которые...

4
 Аватар для ermolay
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
22.02.2012, 13:27
я понял задание так - рассмотреть соседние столбцы и попарные элементы в них, есть ли среди пар одинаковые.. Если правильно понял - то вот решение:

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
const
  n=10;
var
  a: array[1..n,1..n] of integer;
  i,j,k: integer;
begin
  randomize;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(9)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
 
  for j:=1 to n-1 do
  begin
    k:=0;
    for i:=1 to n do
    begin
      if a[i,j]=a[i,j+1] then inc(k);
    end;
    if k=0 then writeln('v ',j,' i ',j+1, ' stolbah net odinakovih elementov')
      else writeln('v ',j,' i ',j+1, ' stolbah odinakovie elementi est')
  end;
  readln;
end.
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
22.02.2012, 13:33
Цитата Сообщение от ermolay Посмотреть сообщение
рассмотреть соседние столбцы
нет, имеется ввиду столбцы вида
1
2
3
-1
-2
-3
0
 Аватар для ermolay
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
22.02.2012, 13:58
Довольно таки мутная формулировка.

Цитата Сообщение от Puporev Посмотреть сообщение
нет, имеется ввиду столбцы вида
1
2
3
-1
-2
-3
Такой столбец можно было назвать с попарно различными по знаку числами

решить можно примерно так навскидку (в пределах столбца):

Pascal
1
2
3
4
5
6
7
for i:=1 to n-1 do
for j:=n downto i+1
if a[j-1]+a[j]=0 then 
begin
boo:=true 
break;
end;
хотя по моему по формулировке больше подходит такой столбец:

1
2
1
1
2
2
1
2

здесь еще проще - включить счетчик различных чисел, и если превысит 2 - значит не удовлетворяет..
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
22.02.2012, 14:35
Да, не то я ляпнул
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
22.02.2012, 14:35
Помогаю со студенческими работами здесь

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

Определить, имеются ли среди элементов побочной диагонали заданной целочисленной матрицы A(N,N) числа, равные нулю.
Определить, имеются ли среди элементов побочной диагонали заданной целочисленной матрицы A(N,N) числа, равные нулю.

Определить, имеются ли среди элементов целочисленной матрицы, лежащих ниже главной диагонали, отрицательные числа
дана целочисленная матрица A(N, N). определить, имеются ли среди её элементов, лежащих ниже главной диагонали, отрицательные числа.

Найти количество столбцов матрицы, составленных из попарно различных элементов
Дан массив A. Найти количество столбцов, составленных из попарно различных элементов.

Определить количество столбцов не содержащих ни одного нулевого элемента в целочисленной прямоугольной матрице
Дана целочисленная прямоугольная матрица. Определить количество столбцов не содержащих ни одного нулевого элемента. Характеристикой...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru