М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
coolmaVIP
coolmaVIP
08.04.2023 12:02 •  Информатика

Вмассиве а[1..n,1..n] определить номера строки и столбца какой-нибудь седловой точки. некоторый элемент массива называется седловой точкой, если он является одновременно наименьшим в своей строке и наибольшим в своем столбце

👇
Ответ:
zar26
zar26
08.04.2023
Const
  n = 6; // число строк
  m = 6; // число столбцов

var
  a: array[1..n, 1..m] of integer;  // основной массив
  Rext: array[1..n, 1..2] of integer; // номера столбцов с min и max в строках
  Cext: array[1..2, 1..m] of integer; // номера строк с min и max в столбцах
  i, j, amin, amax: integer;

begin
  // заполняем массив А случайными числами
  Randomize;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(100) - 50;
      write(a[i, j]:4);
    end;
    writeln;
  end;
  // Заполняем массив Rext n x 2
  for i := 1 to n do
  begin
    amin := 10000;  //заведомо больше a[i,j]
    amax := -10000; //заведомо меньше a[i,j]
    for j := 1 to m do
    begin
      if amin > a[i, j] then begin
        amin := a[i, j]; Rext[i, 1] := j
      end;
      if amax < a[i, j] then begin
        amax := a[i, j]; Rext[i, 2] := j
      end
    end;
  end;
  // Заполняем массив Cext 2 x m
  for j := 1 to m do
  begin
    amin := 10000;  //заведомо больше a[i,j]
    amax := -10000; //заведомо меньше a[i,j]
    for i := 1 to n do
    begin
      if amin > a[i, j] then begin
        amin := a[i, j]; Cext[1, j] := i
      end;
      if amax < a[i, j] then begin
        amax := a[i, j]; Cext[2, j] := i
      end
    end
  end;
  writeln;
  // Ищем седловые точки
  writeln('*** Седловые точки ***');
  for i := 1 to n do
  begin
    j := Rext[i, 1];
    if Cext[2, j] = i then
      write('[', i, ',', j, '] ')
    else begin
      j := Rext[i, 2];
      if Cext[1, j] = i then
        write('[', i, ',', j, '] ')
    end
  end;
  writeln
end.

Тестовое решение
Исходный массив
  10  25  38  38
  45  32  42  36
 -39  -6   9  48
 -25 -37  40  30

*** Седловые точки ***
[2,2]
4,4(16 оценок)
Ответ:
verinikamusia
verinikamusia
08.04.2023
Const
  N = 5;
var
  i, j: integer;
  a: array[1..N, 1..N] of integer;
  min, max: array[1..N] of integer;
begin
  writeln('Исходный массив: ');
  for i := 1 to N do begin
    for j := 1 to N do begin
      a[i, j] := Random(10);
      write(a[i, j] : 3);
      if (j = 1) or (max[i] > a[i, j]) then max[i] := a[i, j];
      if (i = 1) or (min[j] < a[i, j]) then min[j] := a[i, j];
    end;
    writeln;
  end;
  writeln('Седловые точки: ');
  for i := 1 to N do
    for j := 1 to N do
      if max[i] = min[j] then writeln('[', i, '; ', j, ']');
end.
4,6(19 оценок)
Открыть все ответы
Ответ:
віка20052
віка20052
08.04.2023

Python 3.7

import re

import string

def clrStr(strng: str) -> str:

   return re.sub(r' +', ' ', re.sub(rf'[{string.punctuation}]|\n', '', strng))

raw_string = input()

clean_string = clrStr(raw_string)

print(max(clean_string.split(' '), key = lambda p: len(p)))

И никаких велосипедов с перебором всего списка слов в цикле.

Объяснение:

Да, я специально решил эту задачу не так, как просят в условии. Ведь в условии вам максимально разжевали подход к решению. Но, стоит заметить, что по дурацки. Питоньи списки можно перебирать циклом вида for item in list, не обращаясь к исходному списку по индексам. Так же функция max() может принимать аргумент key, который является функцией, с которой интерпретатор будет выбирать максимум из указанного списка.

4,4(100 оценок)
Ответ:
Angelinaburgano
Angelinaburgano
08.04.2023

Держи

Объяснение:

1) Blender

2) Профессиональное cвободное и открытое программное обеспечение для создания трёхмерной компьютерной графики, включающее в себя средства моделирования, скульптинга, анимации, симуляции, рендеринга, постобработки и монтажа видео со звуком, компоновки с узлов», а также создания 2D-анимаций. В настоящее время пользуется большой популярностью среди бесплатных 3D-редакторов в связи с его быстрым стабильным развитием и технической поддержкой.

3) Для создания трёхмерной компьютерной графики

4) 1. Зайти в Мой компьютер > Правой кнопкой мыши — Свойства Компьютера .

   2. Далее вкладка «Дополнительно» > «Переменные среды»

   3.  Создать новую переменную среду

   4. Называем переменную CYCLES_OPENCL_TEST. Значение переменной ставим: NONE.

Все пишем с большой буквы!

Нажимаем ОК во всех предыдущих окнах и запускаем наш любимый блендер!

5) Самая большая преграда для новичков и для переходящих с других программ. Еще большей преградой он становится тогда, когда человек захочет пересесть на другой 3d пакет! Освоившись в блендере, человек осознает его преимущества и неохотно переходит на другие пакеты, а иногда просто физически не может. Именно уникальность интерфейса всех пугает.

Концепция интерфейса.

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

* В блендере активно используются горячие клавишы для повышения скорости работы.

* Интерфейс отрисовывается при

* Каждое окно может быть изменено на любой тип.

Интерфейс состоит из многих основных составляющих: Окна, заголовки, контексты, панели, вкладки, кнопки, движки, переключатели и т. д. Обо всём этом мы и будем говорить.

6) Прямоугольная система координат — прямолинейная система координат с взаимно перпендикулярными осями на плоскости или в пространстве. Наиболее простая и поэтому часто используемая система координат. Х axis Красный, Y axis Зеленый, Z axis Синий.

4,8(45 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ