Скачать: CL | DM;

Привет! Как мне найти миньшее число из 6 данных?   Найти похожие ветки 

← →
Kirill_   (2005-11-15 22:22) [0]

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

---

← →
palva ©   (2005-11-15 22:41) [1]

А где находятся числа, в отдельных переменных, в массиве или, может быть, в файле?

---

← →
Kirill_   (2005-11-15 22:45) [2]

В файле, но они есть как переменные

---

← →
злобная танька ©   (2005-11-15 23:05) [3]

сравни их между собой
по другому наверно никак :)

---

← →
.dn+ ©   (2005-11-15 23:07) [4]

Но как именно?

---

← →
palva ©   (2005-11-15 23:07) [5]

А вы сами их прочитали из файла в переменные?
Дело в том, что желательно, чтобы они были в массиве. Так было бы проще, можно было бы написать цикл. А если в отдельных переменных (то есть каждая переменная имеет свое имя), то придется тупо писать большую вложенную совокупность условных операторов.

---

← →
.dn+ ©   (2005-11-15 23:14) [6]

А как из массива сравнить

---

← →
palva ©   (2005-11-15 23:20) [7]

> А как из массива сравнить
Возможны ошибки, не тестировал.

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.


---

← →
Anatoly Podgoretsky ©   (2005-11-16 08:47) [8]

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

---

← →
ЮЮ ©   (2005-11-16 09:36) [9]

uses Math
...
var
 a, b, c, d: Double;
begin
 ....
 MinValue([a, b, c, d])

---

← →
Kirill_   (2005-11-16 13:07) [10]

Благодарю вас за ответы!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.031 c