Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Привет! Как мне найти миньшее число из 6 данных? [D7, XP]

Kirill_ © (2005-11-15 22:22:00)
Привет! Как мне найти миньшее число из 6 данных?

Kirill_ (2005-11-16 13:07:00) [1]
Благодарю вас за ответы!

ЮЮ (2005-11-16 09:36:00) [2]
uses Math
...
var
a, b, c, d: Double;
begin
....
MinValue([a, b, c, d])

Anatoly Podgoretsky (2005-11-16 08:47:00) [3]
.dn+ © (15.11.05 23:07) [4]
сравнение производится с помощью операторов отношения <, <=, =, >=, >, <>
В результате сравнения получается булевское значение, которое можно проверить операторов IF и возможны две ветки, когда отношение выполнилось и когда нет, это ключевые слова then/else

palva (2005-11-15 23:20:00) [4]
> А как из массива сравнить
Возможны ошибки, не тестировал.
var a: array [1..6] of Integer; i, m: Integer; begin a[1] := 555; a[2] := 888; // и т. д. m := 1; for i:= 2 to 6 do if a[i] < a[m] then m := i; WriteLn(m, ' ', a[m]); end.

.dn+ (2005-11-15 23:14:00) [5]
А как из массива сравнить

.dn+ (2005-11-15 23:07:00) [6]
Но как именно?

palva (2005-11-15 23:07:00) [7]
А вы сами их прочитали из файла в переменные?
Дело в том, что желательно, чтобы они были в массиве. Так было бы проще, можно было бы написать цикл. А если в отдельных переменных (то есть каждая переменная имеет свое имя), то придется тупо писать большую вложенную совокупность условных операторов.

злобная танька (2005-11-15 23:05:00) [8]
сравни их между собой
по другому наверно никак :)

Kirill_ (2005-11-15 22:45:00) [9]
В файле, но они есть как переменные

palva (2005-11-15 22:41:00) [10]
А где находятся числа, в отдельных переменных, в массиве или, может быть, в файле?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »