Легкая задача Делфи

[Bracho1994]

Снова я, но на этот раз уже стал немного вникать.
Задача :
Вводятся числа a,b,c,d. Если a>b>c>d, то вычислить квадрат наименьшего из них. в противном случае вычислить сумму чисел

 var  a, b, c, d, m, g, l: real;
begin
 a:=strtofloat (Edit1.Text);
 b:=strtofloat (Edit2.Text);
 c:=strtofloat (Edit3.Text);
 d:=strtofloat (Edit4.Text);
m:=a;
if m>b then m:=b;
if m>c then m:=c;
if m>d then m:=d;
 g:= SQR(m);
 label1.caption:=floattostr(g);



 l:= a + b + c + d;
 label4.caption:=floattostr(l);

end;

end.

Без

 l:= a + b + c + d;
 label4.caption:=floattostr(l);

он ищет квадрат наименьшего из введенных чисел, но не учитывает тот факт, что квадрат вычислять только тогда, когда a>b>c>d. Как тут быть?

И не знаю как оформить дальше, чтобы в противном случае находил их сумму..
Что можете предложить? Надеюсь на вашу помощь, спасибо.

[viks1]

var  a, b, c, d, m, g, l: real;
begin
 a:=strtofloat (Edit1.Text);
 b:=strtofloat (Edit2.Text);
 c:=strtofloat (Edit3.Text);
 d:=strtofloat (Edit4.Text);
m:=a;
if m>b then m:=b else
if m>c then m:=c else
if m>d then m:=d else
begin
l:= a + b + c + d;
 label4.caption:=floattostr(l);
end;
 g:= SQR(m);
 label1.caption:=floattostr(g);

[Bracho1994]

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

var  a, b, c, d, m, g, l: real;
begin
 a:=strtofloat (Edit1.Text);
 b:=strtofloat (Edit2.Text);
 c:=strtofloat (Edit3.Text);
 d:=strtofloat (Edit4.Text);
m:=a;
if m>b then m:=b else
if m>c then m:=c else
if m>d then m:=d else
begin
l:= a + b + c + d;
 label4.caption:=floattostr(l);
end;
 g:= SQR(m);
 label1.caption:=floattostr(g);

Что-то ты тут намудрил.. Вообще не получается то, что должно получится. То квадрат вычисляет, хотя условия a>b>c>d нет, то и суммирует и квадрат вычисляет, то вообще ничего не хочет делать

[viks1]

начнем с того что тебе сначала надо узнать какое число самое наименьшее
И от него уже плясать

я пишу тебе реализацию
жди

[viks1]

procedure TForm1.Button1Click(Sender: TObject);

var
 a, b, c, d, m: real;
begin
 a:=strtofloat (Edit1.Text);
 b:=strtofloat (Edit2.Text);
 c:=strtofloat (Edit3.Text);
 d:=strtofloat (Edit4.Text);
  if (a>b)and(a>c)and(a>d) then
    begin
    m:=a;
    if m>b then m:=b;
    if m>c then m:=c;
    if m>d then m:=d;
    m:=sqr(m);
    end
     else
         m:=a+b+c+d;
 label1.caption:=floattostr(m);
end;

проверил, работает

[Mad_Cat]

если

a>b>c>d

то наименьшим будет d как бы =>

if (a>b) and(b>c) and (c>d) then label.caption:=floatTostr(sqr(d))
else label.caption:=floatTostr(a+b+c+d);

я, но на этот раз уже стал немного вникать.

уже во всю разбираться пора начинать

[Serge_Bliznykov]

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

если a>b>c>d, то наименьшим будет d как бы =>

if (a>b) and(b>c) and (c>d) then label.caption:=floatTostr(sqr(d))
else label.caption:=floatTostr(a+b+c+d);

Ай, красавело!! В точку! Позволю себе для автора темы расписать ваше решение ПОЛНОСТЬЮ!

var  a, b, c, d : real;
begin
 a:= StrToFloat(Edit1.Text);
 b:= StrToFloat(Edit2.Text);
 c:= StrToFloat(Edit3.Text);
 d:= StrToFloat(Edit4.Text);

 if (a>b) and(b>c) and (c>d) 
  then label4.caption:= 'Квадрат min = ' + FloatToStr(sqr(d))
  else label4.caption := 'Сумма = ' + FloatToStr(a+b+c+d);

end;

[Bracho1994]

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

уже во всю разбираться пора начинать

Вот потихоньку не спеша вникаю. Если бы только информатика задавалась, а так еще параллельно надо делать начертательную геометрию, англ(углубленное изучение), математику, физику, историю учить
Ладно, что я жалуюсь..


Ох это чувство, когда смотришь на готовое решение и думаешь : " Почему я сам до этого не додумался?"!!
Спасибо всем большое