программка в делфи 7

[natalia!]

задача А=1,B=2,C=3 и в другие эдиты после нажатия кнопки "выполнить"
эти цифры должны распределится в порядке убывания.

[Stilet]

А сама то как думаешь делать?

[denisbrain]

Сообщение от Stilet

А сама то как думаешь делать?

// Сортировка методом  bubbles (пузырьков)
// Динамический массив типа Extended будет осортирован метадом пузырьков
procedure MaxArrayElementBubbleMethod(Var ar:array of Extended );
  var
      y,x:integer;
      TempValue:Extended; //временная переменная
      MaxElementValue:Extended; // Максимальный элемент массива
      MaxElementIndex:Integer; // Индекс максимального элемента массива
begin
   for y:=0 to length(ar)-1 do begin
   MaxElementValue:=ar[y];
   MaxElementIndex:=y;
   for x:=y+1 to length(ar)-1 do begin
     if ar[x]>MaxElementValue  then
     begin
       MaxElementValue:=ar[x];
       MaxElementIndex:=x;
     end;
     end;
     if y<>MaxElementIndex then begin
        TempValue:=ar[MaxElementIndex];
        ar[MaxElementIndex]:=ar[y];
        ar[y]:=TempValue;
     end;
     end;

end;

// простой вариант задачи массива

procedure TForm1.Button1Click(Sender: TObject);
var ar:array of Extended;
begin
setlength(ar,3);
if not TryStrToFloat(edit1.text,ar[0]) then  // ошибка ввода 1
else
if not TryStrToFloat(edit2.text,ar[1]) then  // ошибка ввода 2
else
if not TryStrToFloat(edit3.text,ar[2]) then // ошибка ввода 3
else begin
MaxArrayElementBubbleMethod(ar);
 edit1.Text:=Floattostr(ar[0]);
 edit2.Text:=Floattostr(ar[1]);
 edit3.Text:=Floattostr(ar[2]);
end;

end;

// вариант посложнее

procedure TForm1.Button2Click(Sender: TObject);
var x:integer;
    ar:array of Extended;
    arCount:integer;
begin
   arCount:=0;
   for X:=0 to form1.ComponentCount-1 do
   if form1.Components[x].ClassType=Tedit then begin
     arCount:=arCount+1;
     Setlength(ar,arCount);
     if not tryStrToFloat(Tedit(form1.Components[x]).Text,ar[arCount-1]) then exit;
   end;

   MaxArrayElementBubbleMethod(ar);
   for X:=form1.ComponentCount-1 downto 0 do
   if form1.Components[x].ClassType=Tedit then begin
     Tedit(form1.Components[x]).Text:=floattostr(ar[arCount-1]);
     arCount:=arCount-1;
   end;

end;