Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.06.2017, 10:21   #1
Andrit
Пользователь
 
Регистрация: 31.05.2017
Сообщений: 16
По умолчанию Найти наименьший элемент матрицы и напечатать соответствующую строку - PascalABC.NET

Дано матрицу размерности M x N. Числа вводятся с помощью генератора случайных чисел в диапазоне от -50 до 50. Найти наименьший элемент матрицы и напечатать соответствующую строку.
Andrit вне форума Ответить с цитированием
Старый 07.06.2017, 18:09   #2
Plague
Забанен
Форумчанин Подтвердите свой е-майл
 
Аватар для Plague
 
Регистрация: 01.11.2006
Сообщений: 420
По умолчанию

Код:
begin
  var (m,n):=ReadInteger2;
  var a:=MatrRandomInteger(m,n,-50,50);
  a.Println;
  var b:=a.Cols.MinBy(i->i.Min);
  Println('Minimum = ',b.Min);
  var k:=b.ToArray.IndexMin;
  Print('Row №',k,':');
  a.Row(k).Println;
end.
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
Plague вне форума Ответить с цитированием
Старый 12.06.2017, 21:38   #3
Andrit
Пользователь
 
Регистрация: 31.05.2017
Сообщений: 16
По умолчанию Найти наименьший элемент матрицы- PascalABC.NET

Дано матрицу размерности M x N. Числа вводятся с помощью генератора случайных чисел в диапазоне от 50 до 50. Найти наименьший элемент матрицы и напечатать соответствующую строку.
у меня есть половина программы, помогите доделать
min:= -51;
if a[i,j] < min
then begin
min:= a[i,j];
min_i:=i;
end;
Andrit вне форума Ответить с цитированием
Старый 13.06.2017, 09:11   #4
Andrit
Пользователь
 
Регистрация: 31.05.2017
Сообщений: 16
По умолчанию

у меня пишет, что вместо скобок должен быть идентификатор
Andrit вне форума Ответить с цитированием
Старый 13.06.2017, 09:56   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от Andrit Посмотреть сообщение
у меня пишет, что вместо скобок должен быть идентификатор
точно. у меня тоже так пишет.
Причина этого в том, что у Вас (как и у меня) устаревшая версия PascalABC.NET.
см. например,
http://pascalabc.net/chto-novogo
Цитата:
[01.06.17] Версия 3.2.0.1463
Добавление сборок из репозитория NuGet в проектах (экспериментальная возможность)
Добавлена стандартная функция Log(r: real)- синоним Ln
Реализовано кортежное присваивание var (a,b) := (1,2)
Произведен рефакторинг таблицы символов
Добавлена стандартная функция PascalABCVersion
Реализовано присваивание nil типу Nullable
Добавлен стандартный модуль Speech
Узлы синтаксического дерева теперь сериализуются в xml
Инсталлятор проверяет, запущен ли PascalABC.NET
В GraphABC добавлена статус-строка (свойство StatusBar)
Введена f.Readln для текстовых файлов
Введены a.Fill для одномерных и двумерных массивов
Добавлены методы Transform ConvertAll для матриц
В стандартный модуль добавлен описатель %GAC% для поиска dll только в %GAC%

[25.03.17] Версия 3.2.0.1415

Добавлены методы расширения SetRow, SetCol, ElementsByRow, ElementsByCol, ElementsWithIndexes для матриц
Добавлены стандартные функции ReadMatrInteger, ReadMatrReal
....

если возникает вопрос, что же делать, чтобы программа заработала.
то вариантов несколько.
первый. Скачать новую версию PascalABC.NET
второе. Переписать программу без использования этих нововведений.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 13.06.2017, 13:02   #6
Andrit
Пользователь
 
Регистрация: 31.05.2017
Сообщений: 16
По умолчанию

У меня самый новый
Andrit вне форума Ответить с цитированием
Старый 13.06.2017, 13:56   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от Andrit Посмотреть сообщение
У меня самый новый
не верю.
меню "Помощь" - "О программе" - сделайте скриншот и покажите его на форуме.

Тогда почему у меня работает?
pabcnet.png

ну и ещё.

Вы для чего вообще пытаетесь получить код решения на форуме?
Это Вам для учёбы надо?
А чему Вы собираетесь научиться, если Вы не понимаете, что за код Вам дают и что он делает?
Напишите/исправьте программу так, чтобы она работала.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 13.06.2017, 19:18   #8
Andrit
Пользователь
 
Регистрация: 31.05.2017
Сообщений: 16
По умолчанию

Заработало, спасибо
Andrit вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
найти наименьший элемент матрицы X (15,20) и записать нули в ту строку и столбец , где он находится anuta1995 Помощь студентам 2 24.12.2013 07:33
Найти наименьший элемент в каждой строке матрицы и упорядочить строки по возрастанию этих элементов winrey Паскаль, Turbo Pascal, PascalABC.NET 1 21.10.2012 15:20
Найти наибольший и наименьший элемент в каждой строке матрицы. Отсортировать... (Паскаль) Tifa Помощь студентам 0 27.01.2011 23:07
Дана квадратная матрица n-го порядка. Найти наименьший/нимбольший элемент матрицы. Напечатать его индексы Vadim123456 Помощь студентам 3 01.05.2010 15:27
найти наибольший и наименьший элемент матрицы B(N x M) и поменять их местами поЛотЕнчик_просТо Общие вопросы C/C++ 2 13.05.2009 12:17