Получить новую матрицу путём деления всех элементов исходной матрицы на её максимальной по модулю элемент

@Yo-R1k · Регистрация: 30.03.2013

Студворк — интернет-сервис помощи студентам

Задание.
Дана прямоугольная матрица. Получить новую матрицу путём деления всех элементов исходной матрицы на её максимальной по модулю элемент.
Необходима программа в Delphi.

Kodzaev · 30.03.2013, 18:35

Delphi
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
32
33
34
35
36
37
38
39
40
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  x: Array [1..100,1..100] of Real;
  i,j,n,m: Byte;
  max: Real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  Write('Введите размеры матрицы: ');
  Readln(n,m);
  Randomize;
  For i:=1 to n do
  begin
    For j:=1 to m do
    begin
      x[i,j]:=21*Random-10;
      If Abs(x[i,j])>Abs(max) Then
      max:=x[i,j];
      Write(x[i,j]:7:2);
    end;
    Writeln;
  end;
  Writeln('MAX= ',max:2:2);
  Writeln('Новая матрица:');
  For i:=1 to n do
  begin
    For j:=1 to m do
    begin
      x[i,j]:=x[i,j]/max;
      Write(x[i,j]:7:2);
    end;
    Writeln
  end;
  Readln
end.

@Yo-R1k · 30.03.2013, 18:41 **[ТС]**

Огромное спасибо!

@Yo-R1k · 30.03.2013, 18:46 **[ТС]**

Ошибка выходит.

Kodzaev · 30.03.2013, 21:22

Это консольное приложение. Выберите File -> New -> Other -> Console Application, вставьте код и запустите.

Новые блоги и статьи Все статьи Все блоги /
Как украсить новогоднюю елку с Q# и Qiskit EggHead 24.06.2025 Что может быть необычнее, чем применить законы квантовой механики для украшения новогодней елки? Пока другие развешивают обычные гирлянды, я решил объединить свою страсть к квантовым вычислениям с. . .	Системы нулевого доверия на C# UnmanagedCoder 24.06.2025 Традиционная архитектура безопасности работает по принципу средневекового замка: создаём высокие стены вокруг корпоративной сети, укрепляем ворота межсетевыми экранами и системами обнаружения. . .	Снова не мой путь. Циклическое среднее, я обеими руками за проверку условия, в ракурсе данной задачи - циклическое среднее в топку. Hrethgir 24.06.2025 Привет. Такой вопрос - нужно выводить среднее математическое между двумя направлениями, интервал значений которых может лежать в диапазоне одного оборота по кругу. Проблема заключается в том, что. . .	Деплой Flask приложения py-thonny 23.06.2025 За годы работы с Flask я натыкался на одни и те же грабли достаточно часто, чтобы наконец научится их обходить. И сегодня хочу поделится опытом, который сбережет вам немало нервных клеток. Начнем с. . .	WebAssembly и контейнеры в .NET Aspire для оркестрации распределенных архитектур ArchitectMsa 23.06.2025 Я наблюдаю, как WebAssembly (или просто WASM) постепенно выходит за рамки своего первоначального предназначения — исполнения кода на стороне браузера. Теперь эта технология проникает в серверную. . .
Непрерывная интеграция для пакета Python Mr. Docker 22.06.2025 Было 4 часа утра пятницы, когда я выпустил новую версию нашей внутренней библиотеки для обработки данных. Релиз 0. 5. 2 содержал небольшой фикс для обработки дат в ISO формате, что может пойти не так?. . .	Продвинутый ETL на C# из OLTP БД в хранилище stackOverflow 22.06.2025 Работая в сфере корпоративной аналитики, я постоянно сталкиваюсь с одним и тем же - нужны чистые, структурированные и, главное, свежие данные. Без них современные аналитические системы, машинное. . .	Мастер-класс по микросервисам на Node.js Reangularity 21.06.2025 Node. js стал одной из самых популярных платформ для микросервисной архитектуры не случайно. Его неблокирующая однопоточная модель и событийно-ориентированный подход делают его идеальным для. . .	Управление Arduino из WPF приложения Wired 21.06.2025 Зачем вообще связывать Arduino с WPF-приложением? Казалось бы, у Arduino есть собственная среда разработки, своя экосистема, свои способы управления. Однако при создании серьезных проектов. . .	Звёздная пыль kumehtar 20.06.2025 Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .

@Yo-R1k 0 / 0 / 0 Регистрация: 30.03.2013 Сообщений: 3

	Получить новую матрицу путём деления всех элементов исходной матрицы на её максимальной по модулю элемент 30.03.2013, 18:07. Показов 1510. Ответов 4 Метки нет (Все метки) Задание. Дана прямоугольная матрица. Получить новую матрицу путём деления всех элементов исходной матрицы на её максимальной по модулю элемент. Необходима программа в Delphi. 0

@Yo-R1k 0 / 0 / 0 Регистрация: 30.03.2013 Сообщений: 3
	30.03.2013, 18:41 [ТС]
	Огромное спасибо! 0

@Yo-R1k 0 / 0 / 0 Регистрация: 30.03.2013 Сообщений: 3
	30.03.2013, 18:46 [ТС]
	Ошибка выходит. Миниатюры 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	30.03.2013, 21:22
	Это консольное приложение. Выберите File -> New -> Other -> Console Application, вставьте код и запустите. 1

Опции темы

Получить новую матрицу путём деления всех элементов исходной матрицы на её максимальной по модулю элемент

Решение