| Цитата |
1.
Если сумма трех попарно различных действительных чисел x,y,z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других, в противном случае заменить меньшее из x и y полусуммой двух оставшихся значений
|
| Код |
procedure TForm1.Button1Click(Sender: TObject);
var x,y,z: real;
begin
x:=StrToFloat (edit1.Text);
y:=StrToFloat (edit2.Text);
z:=StrToFloat (edit3.Text);
if ((x+y+z)<1) then
begin
if ((x<y) and (x<z)) then
begin
x:=(y+z)/2;
end
else begin
if ((y<x) and (y<z)) then
begin
y:=(x+z)/2;
end
else begin
z:=(y+x)/2;
end;
end;
end
else begin
if (x<y) then
begin
x:=(y+z)/2;
end
else begin
y:=(x+z)/2;
end;
end;
end;
ShowMessage ('x=' + FloatToStr(x) + #13 + 'y=' +FloatToStr);
end;
|
Наваял кое-что в этой проге все работает (по примеру как нам давали в универе) только немогу разобраться как сделать так чтобы ответ выводился, чз ShowMessage неполучаеться |
, работает!!!