
Другие языки программирования и технологии
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;
но так тупо вообще писать, не привыкайте к этому.. .
учитесь сразу писать по нормальному.. . т. е. без кучи переменных ненужных ))
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;
наименьшее число потом легко будет найти.
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;
Похожие вопросы
- Согласны с этим - Глубинные причины ненависти к Delphi/Pascal ?
- Составьте программу, отыскивающую наибольший элемент массива A(N) из числа принадлежащим интервалу {min,(min+max\2))
- Delphi:Прочитал, что если при динамическом создании компонента если указать Name объекта, то в последующем можно ->
- Как в Delphi сделать справку?
- Помогите найти ошибку Delphi легкая программка
- Delphi ПОМОГИТЕ ПОЖАЛУЙСТА!
- дан массив целых чисел F1,F2...Fn. распечатать элементы, нах-ся между min и max и их номера. подскажите где я ошибся
- Написать max и min в с++
- Паскаль. For, while, repeat, until, min/max, div/mod.
- Задача на Delphi. Аааа решите пожалуйста :'(