Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Посчитать побитовое исключающее или чисел https://www.cyberforum.ru/ delphi-beginners/ thread1974311.html
Андрей любит массивчики . А еще он любит играть с ними и считать разные циферки. Однажды у него появился массивчик целых чисел A длины n. И решил Андрей выбрать три(возможно одинаковых) индекса i,j,k, а потом взять и посчитать побитовое исключающее или чисел A,A, A. Андрей даже придумал название для своей операции – 3XOR. После того, как эйфория прошла, он задумался, а что будет, если взять ...
Экспорт из Excel в массив - Array type required Delphi
Доброго времени суток, уважаемые форумчане! // глобальные var Form1 : TForm1; Ap : OleVariant; FileName : String; ArrData : array of Extended;
Delphi Рекурсивная функция вычисления корня уравнения f(x)=0 https://www.cyberforum.ru/ delphi-beginners/ thread1974233.html
Написать рекурсивную функцию вычисления корня уравнения х + 5*(х-3)=0 на заданном интервале и с точностью e. Функция f задается в исходном коде программы, числа a, b и е задаются в консоли.
Delphi Перевод в другую систему счесления Здравствуйте, кто может помочь подкорректировать код программы (как вы уже поняли код не мой), я редактировал но у меня вечно какие-нибудь ошибки выходят, так вот на основе этих трех функций, которые позволяют переводить в другие меры исчисления, нужно отредактировать исходник что представлен ниже, и его так же желательно сократить (просто почти 10 тыс. строк, это как то многовато), заранее... https://www.cyberforum.ru/ delphi-beginners/ thread1974214.html
Заменить Edit на Label Delphi
Как заменить кнопки edit 5,6,7 на label. Ведь, если просто удалить Edit и вставить label, то будут выдавать ошибки. Заранее благодарю за ответ
Delphi SaVCL и длинный SQL запрос https://www.cyberforum.ru/ delphi-beginners/ thread1974183.html
Строка запроса получается слишком длинным (>255 символов) и код на данном этапе не компилируется SaDsReport.QuerySQL := 'station,f_dateround(''' + scale + ''',datetime), avg(davl_output), avg(davl_input), max(energy_1), max(energy_2), max(energy_3), max(energy_4), max(energy_5), max(energy_6), max(energy_7), max(energy_8), max(pump_tok_1), max(pump_timework_1), sum(pump_startn_1),...
Delphi Числа Каталана В общем и целом, нужно delphi, потому что Console Appliccation моя версия не понимает. С паскаля не получится) https://www.cyberforum.ru/ delphi-beginners/ thread1974178.html Открыть новую форму на месте старой Delphi
У меня есть виртуальная клавиатура, я перехожу на новую форму, го она открывается в другом месте. Как Ее заставить открываться на месте старой формы?
Delphi сохранение картинок procedure TForm1.btn2Click(Sender: TObject); var b,c,d,t:string; w:TPicture; begin img3.Picture.Bitmap:=capturescreenrect(Bounds(72,32,97,img1.Height+img2.Height+img4.Height)); //соединение картинок скриншотом Getspecialpath; //путь к "моим документам" работает точно c:='\game\players'; b:=a+c; //a - сам путь к "моим документам" ForceDirectories(b); d:='\'+edt1.text+'.bmp'; https://www.cyberforum.ru/ delphi-beginners/ thread1974150.html Delphi Маркированный список RichEdit https://www.cyberforum.ru/ delphi-beginners/ thread1974127.html
Пытаюсь сделать списки в RichEdit,списки создаются,но не получается отключить список. RichEdit1.Paragraph.Numbering:=nsNone // Не работает,не получается Прошу помочь с условием,чтобы при нажатии кнопки список вкл и откл.
Delphi Определить максимальный элемент массива и элемент, являющийся максимальным без учета этого элемента
Дан массив b, заполненный с клавиатуры. Определить максимальный элемент массива и элемент, являющийся максимальным без учета этого элемента. Пытался с кода паскаль сделать, но не работает
Delphi Можете ли вы мне, объяснить каждую строчку. "Зачем?" и "для чего?". Спасибо! https://www.cyberforum.ru/ delphi-beginners/ thread1974073.html
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm)
225 / 80 / 35
Регистрация: 01.04.2017
Сообщений: 182
04.05.2017, 19:09 0

Найти минимальный элемент среди элементов, лежащих на главной диагонали. - Delphi - Ответ 10401851

04.05.2017, 19:09. Показов 2107. Ответов 1
Метки (Все метки)

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

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
var
  a: array [0 .. 2, 0 .. 2] of LongInt;
  i, j, min: LongInt;
begin
  for i := 0 to 2 do
    for j := 0 to 2 do
      a[i, j] := StrToInt(StringGrid1.Cells[i, j]);
 
  min := High(LongInt);
  for i := 0 to 2 do
    if a[i, i] < min then
      min:=a[i, i];
 
  Label1.caption := inttostr(min);
end;


Вернуться к обсуждению:
Найти минимальный элемент среди элементов, лежащих на главной диагонали. Delphi
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.05.2017, 19:09
Готовые ответы и решения:

максимальный среди элементов, лежащих ниже побочной диагонали, и минимальный среди элементов, лежащих выше главной диагонали.
Здравствуйте. Необходимо найти максимальный среди элементов, лежащих ниже побочной диагонали, и...

Найти минимальный среди элементов, лежащих выше главной диагонали
Добрый день, уважаемые форумчане. У меня возникли сложности с матрицами.. Объясните мне...

Среди элементов главной диагонали матрицы найти наименьший элемент
Составить программу для решения задачи: среди элементов расположенных ниже главной диагонали...

Матрица: найти max среди элементов ниже побочной, и min среди элементов выше главной диагонали
В матрице А n-го порядка найти максимальный среди элементов, лежащих ниже побочной диагонали, и...

1
04.05.2017, 19:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.05.2017, 19:09
Помогаю со студенческими работами здесь

Матрица: найти max среди элементов ниже побочной, и min среди элементов выше главной диагонали
В матрице А n-го порядка найти максимальный среди элементов, лежащих ниже побочной диагонали, и...

Найти максимальный среди элементов, лежащих ниже побочной диагонали
В матрице n-го порядка найти максимальный среди элементов, лежащих ниже побочной диагонали, и...

В матрице найти максимальный среди элементов, лежащих ниже побочной диагонали
Доброго всем! Может кто-нибудь помочь с задачкой? a)В матрице n-ого порядка найти максимальный...

Найти минимальный элемент главной диагонали матрицы и номер строки, в которой этот элемент располагается
Дана целочисленная квадратная матрица порядка 4, все элементы которой различны. Найти минимальный...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru