Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Определить наибольшее количество элементов в возрастающей серии Дана числовая последовательность целых чисел, содержащая N элементов. Определить: наибольшее количество элементов в возрастающей серии элементов; https://www.cyberforum.ru/ pascal/ thread1694796.html	Написать коды функций "readln" или "writeln" Pascal Доброго времени суток,я создал эту тему для того что бы вы писали коды на паскаль "readln" или "writeln".Только можно уже созданые программы.
Pascal В третий файл записать сначала четные элементы первого файла, а затем — нечетные Помогите с этой задачкой,заранее спасибо. Вообщем надо создать 2 типизированных файла из целых чисел в диапазоне . В третий файл записать сначала четные элементы первого файла,а затем - нечетные второго и выполнить построчный вывод файлов на экран. https://www.cyberforum.ru/ pascal/ thread1694768.html	Pascal Дубликация строки содержащей максимальный элемент Товарищи программисты! Срочно нуждаюсь в вашей помощи! Спасайте, пожалуйста! Дана матрица размера M x N. Продублировать строку матрицы, содержащую ее максимальный элемент. Как сделать чтоб матрицу читал из input.txt, и записало результат в output.txt? program Matrix70; var j,i,JJ,M,N,II:integer; a: array of real; begin writeln('Введите числа M (M<=10) и N (N<=10)'); read(M); readln(N); https://www.cyberforum.ru/ pascal/ thread1694724.html
Pascal Сформировать квадратную матрицу и подсчитать сумму заданных элементов Буду очень благодарна. Дано чётное натуральное n>9 и целое k. Создать квадратную матрицу порядка n, где элементы случайные числа. Вычислить сумму элементов, отмеченных синим цветом (в примере n=6). * * * k k k * * * k k k * * * k k k k k k * * *	Pascal Найти сумму и произведение элементов K-го столбца данной матрицы Очень срочно! Помогите пожалуйста!!! Есть задание: Дана матрица размера M × N в файле данных и целое число K (1 ≤ K ≤ N), введенное с клавиатуры. Найти сумму и произведение элементов K-го столбца данной матрицы и разместить в файле результата. И есть программа. Что и где нужно изменить чтобы Матрица считывалась из файла А, а потом ответ записывался в файл Б? program Matrix18; var ... https://www.cyberforum.ru/ pascal/ thread1694584.html
Pascal Нужны материалы для изучения языка https://www.cyberforum.ru/ pascal/ thread1694531.html Всем доброго времени суток,я новичок и не могу найти или код или нормальную ссылку на обучение.Если кто может оставить в комментариях код и инструкцию.Спасибо и пока!	Вычислить доход по вкладу Pascal В банк вкладываются деньги на N месяцев под ставку 60% годовых. Написать программу, которая вычислит причитающуюся вам через N месяцев сумму. Добавлено через 14 минут Уже решил...может пригодиться кому const proc = 1.60; var i, n : Byte; p : Real; begin
Pascal Какое минимальное расстояние должен проплыть Халк чтобы выбраться из бассейна на бортик? https://www.cyberforum.ru/ pascal/ thread1694419.html Халк плавал в бассейне размером N и M метров и устал. в этот момент он обнаружил, что находится на расстоянии X метров от одного из длинных бортиков (не обязательно от ближайшего) и Y метров от одного из коротких бортиков. Какое минимальное расстояние должен проплыть Халк чтобы выбраться из бассейна на бортик? Формат входных данных 4 натуральных числа: n, m, x, y (n<>m) , разделенные пробелами....	Pascal Заполнить циферблат числами по кругу https://www.cyberforum.ru/ pascal/ thread1694339.html Уважаемые участники форума. Решите, пожалуйста, задачу о циферблате Заполним циферблат по кругу числами от Nmin до Nmax. Написать всепаскалевскую программу, которая при задании произвольного числа циферблата, в том числе дробного, возвращает его антипод. Спасибо
Кобыланды батыр Pascal Враги Кобыланды батыра угнали его коня – Тайбурыл. На третий день он выяснил, что его коня заперли в высокой каменной крепости у которого есть каменный дверь с кодовым замком. На двери четверостишие в алфавите латыни из «input.txt», которая обновляется каждые четыре секунды. На двери надпись – «Кто успеет посчитать количество букв «k» в последнем слове каждой строчки и ввести в соответствуюшие...	Pascal Шаровые молнии Во время битвы Флэш кидает в профессора Зума шаровую молнию. Чтобы создать новую молнию, ему потребуется X секунд. Сколько шаровых молний он сможет выпустить в Зума за N минут и M секунд. Формат входных данных: Даны целые числа X, N, M (1 ≤ X, N ≤ 1000, 0 ≤ M <60). Формат выходных данных: В единственной строке вывести количество шаровых молний https://www.cyberforum.ru/ pascal/ thread1694304.html

a1d4r

44 / 44 / 66

Регистрация: 22.07.2015

Сообщений: 191

26.03.2016, 22:33 [ТС]

Найдите количество седловых точек заданной матрицы - Pascal - Ответ 8939412

26.03.2016, 22:33. Показов 3016. Ответов 7

Метки (Все метки)

Ответ

bormant, Inc(s,r[i]=c[j]) - вероятно Inc(s,ord(r[i]=c[j]))?

Добавлено через 5 минут
Увы, 22 теста из 33, хотя все идеально

Добавлено через 9 минут
2 2
1 2
3 4
Ответ 1

Добавлено через 6 минут
Еще один контрпример:
3 4
1 2 3 1
0 5 5 1
1 5 3 1
ответ 4

Добавлено через 4 минуты
Собственно я нашел свою ошибку

В моем решение выше поменял два знака на обратные и accepted

Добавлено через 2 минуты
bormant, а чтобы прошло ваше решение нужно поменять i и j в местах сравнения с единицей.

Добавлено через 2 минуты

Pascal

var
  n, m, i, j, s, k: longint;
  b, c: array[1..750] of integer;
begin
  read(n, m);
  for i := 1 to n do
    for j := 1 to m do
    begin
      read(k);
      if (j = 1) or (b[i] > k) then b[i] := k;
      if (i = 1) or (c[j] < k) then c[j] := k
    end;
  for i := 1 to n do
    for j := 1 to m do
      s := s + ord(b[i] = c[j]);
  write(s)
end.

Вернуться к обсуждению:
Найдите количество седловых точек заданной матрицы Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.03.2016, 22:33

Готовые ответы и решения:

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

Найти количество седловых точек матрицы
Задана матрица, содержащая N строк и M столбцов. Седловой точкой этой матрицы назовем элемент,...

Для заданной целой матрицы размером (M*N) напечатать индексы всех ее седловых точек
Элемент матрицы назовем седловой точкой, если он является наименьшим в своей строке и...

Для заданной целой матрицы размером 10×15 напечатать индексы всех ее седловых точек
Элемент матрицы назовем седловой точкой, если он является наименьшим в своей строке и одновременно ...

	26.03.2016, 22:33

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

26.03.2016, 22:33

Помогаю со студенческими работами здесь

Определите положение всех седловых точек матрицы и их количество, переставьте строки матрицы относительно побочной диагонали
Помогите, пожалуйста, решить задачу в паскале: Дана целочисленная матрица: 1) определите...

В заданной целочисленной матрице 6x6 вывести индексы всех ее седловых точек
В заданной целочисленной матрице 6x6 вывести индексы всех ее седловых точек (элемент матрицы...

Вернуть индексы всех седловых точек матрицы
Товарищи программисты помогите мне пожалуйста решить одну задачку. Завтра мне надо сдавать зачёт, а...

Номера строк и столбцов седловых точек матрицы
не могу решить задачи, не чего не понимаю помогите пожалуйста(((( 1)составьте программу вычисления...

Наверх