Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Elviraa
0 / 0 / 0
Регистрация: 09.06.2015
Сообщений: 8
1

Найти максимальное из трех вещественных значений

15.06.2015, 12:25. Просмотров 291. Ответов 4
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.ComboBox1Change(Sender: TObject);
type mon=(Met1,Met2,Met3);
var
d,d1,d2,d3:real;
p:mon;
begin
case Combobox1.ItemIndex of
0: p:=Met1;
1: p:=Met2;
2: p:=Met3;
end;
if 0=ord(p) then
d:=1-d1
else if 1=ord(p) then
d:=1-d2
else if 2=ord(p) then
d:=1-d3;
Edit3.Text:=FloatToStrF(d,ffFixed,15,3);
end;
Значения d1,d2,d3 я расписывать не стала (грамоздкие), но их вычисления в этой процедуре есть.

Помогите, пожалуйста, определить максимальное значение d среди этих трех значений..? Мне оно нужно будет для дальнейшей работы..
спасибо заранее!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.06.2015, 12:25
Ответы с готовыми решениями:

Найти максимальное значение функции для трех значений аргумента
Я потихоньку начинаю разбираться в Delphi,вот сейчас делаю оконное...

Определить максимальное и минимальное значения из трех различных вещественных чисел
Определить максимальное и минимальное значения из трех различных вещественных...

Найти максимальное и минимальное значение в массиве вещественных чисел
работал через StringGrid кое-что набросал, но код как-то работать не...

Если сумма трех попарно различных вещественных чисел Х,Y,Z меньше единицы, то наименьшее из трех чисел заменить полу суммой двух других
Если сумма трех попарно различных вещественных чисел Х,Y,Z меньше единицы, то...

Вычислить максимальное значение в последовательности вещественных чисел
В простую переменную последовательно вводятся N вещественных чисел. Вычислить...

4
northener
пофигист широкого профиля
3429 / 2328 / 631
Регистрация: 15.07.2013
Сообщений: 13,796
15.06.2015, 12:45 2
Цитата Сообщение от Elviraa Посмотреть сообщение
Помогите, пожалуйста, определить максимальное значение d среди этих трех значений
Delphi
1
2
3
4
5
6
uses Math;
...
var
d,d1,d2,d3: Extended;
...
  M:=MaxValue([d1,d2,d3]);
1
Elviraa
0 / 0 / 0
Регистрация: 09.06.2015
Сообщений: 8
15.06.2015, 13:05  [ТС] 3
А почему максимальные значения среди d1,d2,d3 ? - они ведь только вспомогательные элементы при расчете d
0
northener
пофигист широкого профиля
3429 / 2328 / 631
Регистрация: 15.07.2013
Сообщений: 13,796
15.06.2015, 13:16 4
Цитата Сообщение от Elviraa Посмотреть сообщение
А почему максимальные значения среди d1,d2,d3 ?
Это только пример. Сама подставь в функцию то что именно тебе нужно.
0
Elviraa
0 / 0 / 0
Регистрация: 09.06.2015
Сообщений: 8
15.06.2015, 14:13  [ТС] 5
аа, спасибо большое!
0
15.06.2015, 14:13
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.06.2015, 14:13

Найти максимальное значение в каждой строке. Из этих значений получить вектор из 5-ти элементов. Выдать матрицу А и вектор В.
Дана матрица A (5x4). Заполнить ее значениями вещественного типа. Найти...

Выбрать максимальное или минимальное из трех заданных чисел
Даны три действительных числа а, b, с. Если b <= 0, то выбрать максимальное из...

В стеке вещественных чисел поменять местами элементы, содержащие максимальное и минимальное значения
В стеке вещественных чисел поменять местами элементы, содержащие максимальное и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

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