Найти произведение наименьших двух чисел из трех, введенных в компоненты Edit1, Edit2, Edit3

@napster-11 · Регистрация: 19.06.2010

Author24 — интернет-сервис помощи студентам

@Igor8 · 20.06.2010, 13:09

Delphi

var
Ar:array of real;
i:integer;
q,minn:real;
begin
SetLength(Ar,3);
Ar[0]:=strtofloat(Edit1.Text);
Ar[1]:=strtofloat(Edit2.Text);
Ar[2]:=strtofloat(Edit3.Text);
  q:=Min(Ar[0],Ar[1]);
  minn:=Min(q,Ar[2]);
  for i:=0 to 1 do
    begin
      if Ar[i]=minn then
        begin
          q:=Ar[i];
          Ar[i]:=Ar[2];
        end;
    end;
  ShowMessage(floattostr(Min(Ar[0],Ar[1])*minn));
SetLength(Ar,0);
end;

@napster-11 0 / 0 / 0 Регистрация: 19.06.2010 Сообщений: 6
		1
	Найти произведение наименьших двух чисел из трех, введенных в компоненты Edit1, Edit2, Edit3 20.06.2010, 12:49. Показов 1568. Ответов 1 Метки нет (Все метки) Найти произведение наименьших двух чисел из трех, введенных в компоненты Edit1, Edit2, Edit3 0

	20.06.2010, 13:09

Опции темы

Найти произведение наименьших двух чисел из трех, введенных в компоненты Edit1, Edit2, Edit3

Решение