С Новым годом! Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/15: Рейтинг темы: голосов - 15, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 31.10.2013
Сообщений: 3

Отпечатать номер каждой строки матрицы, элементы которой имеют совпадающие значения

31.10.2013, 16:01. Показов 2850. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите написать следующую программу, пожалуйста, если есть время ещё, то прокомментируйте все детали кода, чтобы понятно было последнему чайнику, а если время и на алгоритм найдется... Спасибо заранее. Задача:

Для матрицы из 2 столбцов и 10 строк отпечатать номер каждой строки, элементы которой имеют совпадающие значения, и число таких строк.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
31.10.2013, 16:01
Ответы с готовыми решениями:

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

Отпечатать номер каждой строки матрицы, в которой не менее 2 элементов имеют нулевое значение
Составить алгоритм и программу для решения задачи. И собственно задача. Для матрицы из 3 столбцов и 6 строк отпечатать номер каждой...

Вывести номер каждого столбца матрицы, элементы которого имеют совпадающие значения
1. Дана таблица 2*10. Вывести номер каждого столбца, элементы которого имеют совпадающие значения.

7
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
31.10.2013, 16:08
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var
  m : array [1..10,1..2] of Integer;
  i.n : Byte;
Begin
...
  n:=0;
  For i:=1 to 10 do
    If m[i,1]=m[i,2] then
    Begin
      Writeln('строка',i);
      Inc(n);
    End;
  Writeln('Всего строк с совпадающими элементами: ',n);
End.
0
0 / 0 / 0
Регистрация: 31.10.2013
Сообщений: 3
31.10.2013, 16:10  [ТС]
А что на 5-й строке "..."? Я чайник просто...
0
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
31.10.2013, 16:16
Цитата Сообщение от Vedoisy Посмотреть сообщение
А что на 5-й строке "..."? Я чайник просто...
Надо "додумать" и "дописать"... например задать начальные значения массива... а чтобы получилось все как надо - предварительно почитать любой учебник по Паскалю, чтобы не быть "чайником".

Ну либо дождаться "доброго самаритянина", который посетит эту тему, почитает, вникнет и сделает "доброе" дело, выложив полный код программы... оставив вас в категории "чайников"...
0
 Аватар для Algoritmer
159 / 98 / 25
Регистрация: 07.03.2013
Сообщений: 513
Записей в блоге: 1
31.10.2013, 16:20
APALoff, надо так:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var
  m : array [1..10,1..2] of Integer;
  i.n : Byte;
Begin
...
  n:=0;
  For i:=1 to 10 do
    If m[i,1]=m[i,2] then
    Begin
      Writeln('строка',i);
      Inc(n);
      continue;
    End;
  Writeln('Всего строк с совпадающими элементами: ',n);
End.
Иначе если в строке больше чем два совпадения, она будет отпечатана больше 1-го раза
0
0 / 0 / 0
Регистрация: 31.10.2013
Сообщений: 3
31.10.2013, 16:22  [ТС]
Это конечно здорово, только мне в таком то случае нужно перестать быть чайником меньше, чем за 5 часов. Это возможно?
0
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
31.10.2013, 16:26
Цитата Сообщение от Algoritmer Посмотреть сообщение
APALoff, надо так:
Иначе если в строке больше чем два совпадения, она будет отпечатана больше 1-го раза
Не согласен. Строка массива - это 2 элемента - как в них может быть больше одного совпадения?

Добавлено через 2 минуты
Цитата Сообщение от Vedoisy Посмотреть сообщение
Это конечно здорово, только мне в таком то случае нужно перестать быть чайником меньше, чем за 5 часов. Это возможно?
5 часов более чем достаточно, чтобы узнать про операторы цикла, операторы ввода и операторы вывода!
Лень сокращает это период до нескольких минут, которых конечно же не хватит ни на что.
0
 Аватар для Algoritmer
159 / 98 / 25
Регистрация: 07.03.2013
Сообщений: 513
Записей в блоге: 1
31.10.2013, 16:51
Цитата Сообщение от APALoff Посмотреть сообщение
Не согласен. Строка массива - это 2 элемента - как в них может быть больше одного совпадения?
да, действительно. Не учел этот момент
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
31.10.2013, 16:51
Помогаю со студенческими работами здесь

Для матрицы из 3 столбцов и 6 строк отпечатать номер каждой строки, в которой второй элемент меньше среднего
для матрицы из 3 столбцов и 6 строк отпечатать номер каждой строки, в которой второй элемент меньше среднего арифметического элементов этой...

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

Отпечатать номер каждой строки, оба элемента которых имеют нулевые значения и число таких строк
Может кто нибудь сможет написать одну из этих прог!) Текст задания: 1). Для матрицы из 2 столбцов и 10 строк отпечатать номер...

Отпечатать номер каждой строки, в которой значение ее наибольшего элемента оказалось больше заданной величины
для матрицы из 7 строк и 3 столбцов отпечатать номер каждой строки , вв которой значение ее наибольшего элемента оказалось больше заданной...

Для каждой строки матрицы, номер которой кратен 4, найти среднее арифметическое элементов
Дана матрица размера M×N. Для каждой строки матрицы номер которой кратен 4 найти среднее арифметическое ее элементов. Условный оператор...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути
Programma_Boinc 01.01.2026
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru