Другие языки программирования и технологии

DELPHI вывести min

воющем есть числа x1.x2.x3.x4.x5.x6 надо вывести минимальное из них procedure TForm1.Button1Click(Sender: TObject); Var q,w,e,r,t,y,u,i,o,p,a,s,d,f,x1,x2,x3,x4,x5,x6,:real; begin q:=StrToFloat(edit1.Text); w:=StrToFloat(edit2.Text); e:=StrToFloat(edit3.Text); r:=StrToFloat(edit4.Text); t:=StrToFloat(edit5.Text); x1:=q+w+e+r+t; label1.Caption:='1 путь = '+FloatToStr(x1); //----------------------------------------------------------- q:=StrToFloat(edit1.Text); y:=StrToFloat(edit6.Text); u:=StrToFloat(edit8.Text); i:=StrToFloat(edit9.Text); t:=StrToFloat(edit5.Text); x2:=q+y+u+i+t; label2.Caption:='2 путь = '+FloatToStr(x2); ---------------------------------//------------------------------------------------------------------------------------------------------------------
function GetMinimum(source: array of real; size: integer): integer
var
i, min: integer;
begin
min := source[ 0 ]; // нумерация будет с 0
for i := 1 to size-1 do
if source[ i ] < source[ min ] then min := i;
result := source[ min ];
end;

числа x1.x2.x3.x4.x5.x6 надо вывести минимальное из них
procedure TForm1.Button1Click(Sender: TObject);
Var min,q,w,e,r,t,y,u,i,o,p,a,s,d,f,x1,x2,x3,x4,x5,x6,:real;
begin
q:=StrToFloat(edit1.Text);
w:=StrToFloat(edit2.Text);
e:=StrToFloat(edit3.Text);
r:=StrToFloat(edit4.Text);
t:=StrToFloat(edit5.Text);
x1:=q+w+e+r+t;
label1.Caption:='1 путь = '+FloatToStr(x1);
//-----------------------------------------------------------
q:=StrToFloat(edit1.Text);
y:=StrToFloat(edit6.Text);
u:=StrToFloat(edit8.Text);
i:=StrToFloat(edit9.Text);
t:=StrToFloat(edit5.Text);
x2:=q+y+u+i+t;
label2.Caption:='2 путь = '+FloatToStr(x2);
...
min := q;
if y < min then min := y;
if u < min then min := u;
if i < min then min := i;
if t < min then min := t;
но так тупо вообще писать, не привыкайте к этому.. .
учитесь сразу писать по нормальному.. . т. е. без кучи переменных ненужных ))
Лучше организовать массив из чисел,
наименьшее число потом легко будет найти.

function GetMinimum(source: array of real; size: integer): integer;
var

    min: real;
    value: real;
    i: integer;

begin

    min := source[ 0 ];

    for i := 1 to size - 1 do
    begin

        value := source[ i ];

        if min > value then

            min := value;

    end;

    result := min;

end;
VK
Vasily Kotov
3 846