Сформировать вектор z размерностью n, состоящей из максимальных элементов строк матрицы

@Степанова · Регистрация: 18.01.2014

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

по заданной матрице А размерностью n*m сформировать вектор z размерностью n, состоящей из максимальных элементов строк матрици. Помогите нужен срочно ответ!!!

@APALoff · 22.01.2014, 12:00

Pascal
1
2
3
4
5
6
7
8
9
10
For k:=1 to n do
 For i:=1 to m-1 do
  For j:=j+1 to m do
    If A[k,j]>A[k,i] then
    Begin
       tmp:=A[k,j];
       A[k,j]:=A[k,i];
       A[k,i]:=temp;
    End;
For k:=1 to n do z[k]:=A[k,1];

@Степанова · 22.01.2014, 12:03 **[ТС]**

можно весь код программы от начала до конца?

@APALoff · 22.01.2014, 12:15

Сообщение от Степанова

можно весь код программы от начала до конца?

Напишу целиком код в обмен на Ваше сообщение, где будет расписано что такое и зачем это нужно в Паскале раздел описания переменных и констант и каких типов бывают переменные (3-4 типа).

@Степанова · 22.01.2014, 12:16 **[ТС]**

Раздел описания CONST позволяет ввести в программу идентификаторы, являющиеся синонимами (представителями) определенных значений. Описание константы представляет собой пару "идентификатор - значение", разделителем пары служит символ "=".

Синтаксис описания констант:

CONST
ИмяКонстанты1 = Значение1;
ИмяКонстанты2 = Значение2;

или

ИмяКонстанты = ЗначениеВыражения;

Примеры описания констант:

CONST
Min = 0; { константа - целое число }
Max = 100;{ константа - целое число }
e = 2.7; { константа - вещественное число }
SpecChar = '\'; {константа - символ }
HelpStr = 'Нажмите клавишу F1'; {константа - строка }
OK = True; { логическая константа "истина" }

Обратите внимание, что тип константы не указывается никоим образом. Он определяется автоматически при анализе значения константы.

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

CONST
Interval = Max - Min + 1;
e2 = e*e;
BigHelpStr = HelpStr + ' для подсказки';

В выражениях могут использоваться все математические операции (+, -, /, *, div, mod), логические операции (not, or, and, xor) и операции отношения.

Описанные ранее константы можно использовать для построения индексов массивов, например:

CONST
N = 100;
VAR
V : array[1..N] of Byte;

Описание переменных

Перейти к: | Константы | Типизированные константы | Описание типов |
Переменные вводятся в программу для хранения и передачи данных внутри нее. Все переменные, которые предполагается использовать в программе должны, прежде всего, быть определены в разделе описания переменных. Описание переменных начинается со служебного слова VAR, вслед за которым располагается последовательность самих определений переменных. Определение переменной заключается в указании ее имени (идентификатора) и типа. Имя и тип разделяются двоеточием. После объявления и описания переменной должен стоять символ ";". Концом блока описания будет начало какого-либо другого блока программы или описание процедур и функций.

Синтаксис описания переменных:

VAR
ИмяПеременной1 : ИмяТипа1;
ИмяПеременной2 : ИмяТипа2;
. . .
ИмяПеременнойN : КонструкцияТипа;

или

VAR
ИмяПеременной1,
ИмяПеременной2,
ИмяПеременной3 : ИмяТипа;

Имя типа может быть именем стандартного типа языка или введенного программистом в предшествующем блоке описания типов TYPE.

Однотипные переменные могут перечисляться через запятую перед объявлением их типа.

Примеры описания переменных:

VAR
X : Real; { вещественная переменная }
i, j, k : Integer; { три целочисленных переменных }
T : MyType; { переменная определенного ранее типа MyType }
D : 1..10; { целочисленная переменная ограниченного типа }
M : array[1..5] of Byte; { переменная типа "массив" }
Data : RECORD
X, Y : Byte;
TextStr : String { переменная тпиа "запись" }
END;

@APALoff · 22.01.2014, 12:38

Мда, в следующий раз буду что нибудь посложнее задавать...
Теоретически Вы ответили наверное правильно... НО практически - это не Ваш ответ, а копи-паст... и он не показывает то, насколько хорошо Вы усвоили данный материал - если бы усвоили, то вопросов "написать полностью" не последовало бы...

Сейчас выдам почти полный код...

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

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
Const
  n = 4;
  m = 6;
Var
  A : array[1..n,1..m] of Integer;
  Z : array[1..n] of Integer;
  i,j,k,tmp : Integer;
Begin
For i:=1 to n do
 For j:=1 to m do A[i,j]:=Random(200)-100;
For k:=1 to n do
 For i:=1 to m-1 do
  For j:=j+1 to m do
    If A[k,j]>A[k,i] then
    Begin
       tmp:=A[k,j];
       A[k,j]:=A[k,i];
       A[k,i]:=tmp;
    End;
For k:=1 to n do
Begin
  z[k]:=A[k,1];
  Writeln(z[k]);
End;
end.

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

Сообщение от Степанова

TextStr : String { переменная тпиа "запись" }

это строковая переменная, а запись начинается на пару строчек выше. - вот что значит просто СКОПИПАСТИТЬ

Добавлено через 11 минут
Опечатка в 13-ой строке:

Сообщение от APALoff

For j:=j+1 to m do

Правильно будет так: For j:=i+1 to m do

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Степанова 0 / 0 / 0 Регистрация: 18.01.2014 Сообщений: 7

	Сформировать вектор z размерностью n, состоящей из максимальных элементов строк матрицы 22.01.2014, 11:27. Показов 1521. Ответов 5 Метки нет (Все метки) по заданной матрице А размерностью n*m сформировать вектор z размерностью n, состоящей из максимальных элементов строк матрици. Помогите нужен срочно ответ!!! 0

@Степанова 0 / 0 / 0 Регистрация: 18.01.2014 Сообщений: 7
	22.01.2014, 12:03 [ТС]
	можно весь код программы от начала до конца? 0

@Степанова 0 / 0 / 0 Регистрация: 18.01.2014 Сообщений: 7
	22.01.2014, 12:16 [ТС]
	Раздел описания CONST позволяет ввести в программу идентификаторы, являющиеся синонимами (представителями) определенных значений. Описание константы представляет собой пару "идентификатор - значение", разделителем пары служит символ "=". Синтаксис описания констант: CONST ИмяКонстанты1 = Значение1; ИмяКонстанты2 = Значение2; или ИмяКонстанты = ЗначениеВыражения; Примеры описания констант: CONST Min = 0; { константа - целое число } Max = 100;{ константа - целое число } e = 2.7; { константа - вещественное число } SpecChar = '\'; {константа - символ } HelpStr = 'Нажмите клавишу F1'; {константа - строка } OK = True; { логическая константа "истина" } Обратите внимание, что тип константы не указывается никоим образом. Он определяется автоматически при анализе значения константы. Турбо Паскаль дает возможность определять константы как значения выражений из чисел, некоторых арифметических функций языка и ранее определенных констант. Так приведенный выше список констант можно продолжить CONST Interval = Max - Min + 1; e2 = ee; BigHelpStr = HelpStr + ' для подсказки'; В выражениях могут использоваться все математические операции (+, -, /, , div, mod), логические операции (not, or, and, xor) и операции отношения. Описанные ранее константы можно использовать для построения индексов массивов, например: CONST N = 100; VAR V : array[1..N] of Byte; Описание переменных Перейти к: \| Константы \| Типизированные константы \| Описание типов \| Переменные вводятся в программу для хранения и передачи данных внутри нее. Все переменные, которые предполагается использовать в программе должны, прежде всего, быть определены в разделе описания переменных. Описание переменных начинается со служебного слова VAR, вслед за которым располагается последовательность самих определений переменных. Определение переменной заключается в указании ее имени (идентификатора) и типа. Имя и тип разделяются двоеточием. После объявления и описания переменной должен стоять символ ";". Концом блока описания будет начало какого-либо другого блока программы или описание процедур и функций. Синтаксис описания переменных: VAR ИмяПеременной1 : ИмяТипа1; ИмяПеременной2 : ИмяТипа2; . . . ИмяПеременнойN : КонструкцияТипа; или VAR ИмяПеременной1, ИмяПеременной2, ИмяПеременной3 : ИмяТипа; Имя типа может быть именем стандартного типа языка или введенного программистом в предшествующем блоке описания типов TYPE. Однотипные переменные могут перечисляться через запятую перед объявлением их типа. Примеры описания переменных: VAR X : Real; { вещественная переменная } i, j, k : Integer; { три целочисленных переменных } T : MyType; { переменная определенного ранее типа MyType } D : 1..10; { целочисленная переменная ограниченного типа } M : array[1..5] of Byte; { переменная типа "массив" } Data : RECORD X, Y : Byte; TextStr : String { переменная тпиа "запись" } END; 0