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

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

← →
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.

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

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

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

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

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