Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
6 / 4 / 2
Регистрация: 03.02.2019
Сообщений: 102

Седловые точки

24.05.2019, 23:06. Показов 1689. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите понять в чем ошибка, пожалуйста, пишет ожидался порядковый тип в цикле по l
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
 
var n,p,m,i,j,min,max,imin,jmax : integer; 
a: array [1..20,1..20] of integer;
    l:array [1..20,1..20] of integer;
begin write ('n = '); readln(n);
      write ('m = '); readln(m);
    for i:= 1 to m do
    for j:= 1 to n do
    begin
    // write('Введите A =[',i,',',j,']:  ');
    read(a[i,j]);
    end;
 p:=0;
 for i:=1 to m do begin
 a[i,1]:=min;
 imin:=1;
 for j:=1 to n do begin
 if a[i,j]<min then begin
                    min:=a[i,j];
                    imin:=j;
                    end;
                   end;
 for l:=1 to m do begin 
 if a[l,jmax]>a[imin,j] then begin
                             p:=1;
                             end;
                   end;
 if p=0 then write(' No needed elements ')
 else write ('  ',imin,'  ',jmax);
                     end;
 end.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
24.05.2019, 23:06
Ответы с готовыми решениями:

Седловые точки
В 21 строке пишет, что индекс вне границ массива Помогите исправить ошибки, пожалуйста var n,p,{m,}i1,j1,i,j,min,max,i2 : integer; ...

Седловые точки матрицы
Элемент матрицы назовем седловой точкой, если он является наименьшим в своей строке и одновременно наибольшим в своем столбце или,...

Найти седловые точки матрицы
Для матрицы размером NxM вывести на экран все ее седловые точки. Элемент матрицы называется седловой, если он является наименьшим в своей...

1
Почетный модератор
 Аватар для Puporev
64316 / 47612 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
25.05.2019, 08:34
Лучший ответ Сообщение было отмечено AveTomoe как решение

Решение

Pascal
1
2
 for l:=1 to m do begin
 if a[l,jmax]>a[imin,j] then begin
Здесь в качестве счетчика цикла используется l, объявленная как массив
Pascal
1
l:array [1..20,1..20] of integer;
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
25.05.2019, 08:34
Помогаю со студенческими работами здесь

Для матрицы размером NxM вывести на экран все ее седловые точки
Для матрицы размером NxM вывести на экран все ее седловые точки. Элемент матрицы называется седловой точкой, если он является наименьшим в...

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

Подпрограммы. Для точки на плоскости найти расстояние от точки до начала координат
Для точки на плоскости с заданными координатами (x,y) найти расстояние l от точки до начала координат, а также длину окружности и площадь...

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

Найти расстояние от точки (x; y) на плоскости до ближайшей точки единичного круга - Pascal ABC
Прошу помочь разобраться в данной теме. Как вообще решать данного типа задачи? Даны координаты точки на плоскости (x; y). Надо найти...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru