Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Перемножение сцепленных матриц https://www.cyberforum.ru/ delphi-beginners/ thread3155.html
Короче такая задача: Даны матрицы A(n,k), B(k,m). Умножить матрицы. Необходимо сделать тремя способами: 1. Исходные данные в TStringGrid (Для данной задачи 2 таких объекта: матрица1, матрица2 как я...
Как перемешивать строки, отображаемые в RadioGroup? Delphi
Я пишу тест на Delphi. Подскажите как сделать так, что бы правильный ответ в RadioGroup располагался по-разному, и как сделать что бы программа знала место нахождение ответа, который меняет свое...
Рекурсия, решение Судоку Delphi
Прежде чем посмеяться - сначала выслушайте. Решил заморочиться с программкой, которая будет решать судоку (3x3). Сначала сделал простенько - после ввода условий она, при наведении на пустую клетку,...
Delphi Перевод кодов символов формата Unicode в строку Здравствуйте, всем! Собственно суть проблемы. Используя Delphi 7 пишу некоторую программу. Возникла задача, с которой не могу никак справиться. Есть строка вида:... https://www.cyberforum.ru/ delphi-beginners/ thread2917.html
Delphi Сортировка в ShellListView https://www.cyberforum.ru/ delphi-beginners/ thread2774.html
У кого-нибудь имеется сортировка в ShellListView? И ли скиньте ссылку. В хелпе на данную тему нету ничего. Заранее благодарен!
Помогите мне найти исходники игры "парные картинки" Delphi
Помогите мне создать игру парные картинки или найти исходники!
Delphi Скопировать лист Excel через Delphi
Все уже перерыл, ни одно решение не работает. Пробовал это решение: procedure TForm1.Button1Click(Sender: TObject); var Excel: Variant; begin Excel:=CreateOleObject('Excel.Application');...
Delphi Как сделать снимок экрана? Подскажите, пожалуйста: 1) как через Delphi7 сделать снимок экрана? 2) почему когда при попытке выполнить Image1.Picture.LoadFromFile('1.jpg') получаю сообщение "unknown picture file extension... https://www.cyberforum.ru/ delphi-beginners/ thread2602.html
Delphi Сколько раз среди данных символов встречается символ + и сколько раз символ * (Паскаль -> Дельфи) https://www.cyberforum.ru/ delphi-beginners/ thread2516.html
Всем привет. Я ещё только начинаю рабоатаь в Делфи. Помогите пожалуйста переделать задачу на Паскале в Делфи. Задача такая:Даны натуральное число n, s1,…,sn. Подсчитать: а) Сколько раз среди...
Delphi Дана действительная матрица m на n. Найти сумму наибольших значений элементов её строк Помогите пожалуйста. Очень вас прошу. Я вообще сегодня первый раз написала программу на Delphi(сложить 2 числа). А надо решить вот такую. Дана действительная матрица m на n. Найти сумму наибольших... https://www.cyberforum.ru/ delphi-beginners/ thread2487.html
185 / 0 / 1
Регистрация: 22.10.2007
Сообщений: 24
22.10.2007, 11:50 0

В каждой строке матрицы выбрать элемент с наименьшим значением

22.10.2007, 11:50. Показов 2748. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено как решение

Решение

Один из вариантов:

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
const n=8;{количество строк}
       m=10;{количество столбцов}
Var a: array [1..n,1..m] of real;{данная матрица}
    i,j,k,l,v:integer;
    minj,maxi:real;
BEGIN
{заполнение матрицы произвольными положительными действительными числами от 0 до 99}
randomize;
For i:=1 to n do
 For j:=1 to m do
   a[i,j]:=random(100);
maxi:=-1;{так как все числа положительные (мы сами так заполнили)}
For i:=1 to n do begin
 minj:=a[i,1];{предположим что первый элемент каждой i-ой строки минимальный}
 For j:=2 to m do
  {сравниваем все остальные элементы строки с уже найденным минимальным}
  If a[i,j]<minj then begin{если он меньше уже найденного то}
                     minj:=a[i,j];{он минимальный}
                     v:=j;{сохраняем его номер столбца}
                    end;
{проверяем только что полученный элемент на максимум}
 If minj>maxi then begin{если верно то сохраняем его и его индексы}
                   k:=i;
                   l:=v;
                   maxi:=minj;
                 end;
end;
{Выводим искомый элемент и его индексы хоть в едите хоть в лабеле}
 
END.
Вот как-то так . Не ну мож есь ышо короче на скору руку вроде так.

Вернуться к обсуждению:
В каждой строке матрицы выбрать элемент с наименьшим значением
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.10.2007, 11:50

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

В каждой строке матрицы выбрать элемент с наименьшим значением
Дана матрица порядка n*m, все элементы которой различны. В каждой строке выбирается элемент с...

В каждой строке матрицы выбрать элемент с наименьшим значением
Парни плз умляю помогите с зада4ей: Дана действительная матрица n*m, все элементы которой...

В каждой строке матрицы выбрать элемент с наименьшим значением
Помогите написать программу Дана действительная матрица размером n x m, все элементы которой...

В каждой строке матрицы выбрать элемент с наименьшим значением
дана действ. матрица размерностью mxn, все элементы которой различны. В каждой строке выбирается...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.