Задача звучит так:
Если сумма трёх действительных чисел x,y,z меньше 1 то наименьшее из трёх чисел заменить полусуммой двух других, в противном случае заменить меньшее из x и y полусуммой оставшихся значений.
Полусумма должна быть в x, а у меня показывает в y. Как исправить?
Вот, на всякий случай код программы:
procedure TForm3.Button1Click(Sender: TObject);
var
x, y, z: real;
C1,C2,C3:integer;
begin
Val(Edit1.Text,x,C1);
Val(Edit2.Text,z,C2);
Val(Edit3.Text,z,C3);
If (C1 = 0) and (C2 = 0) and (C3 = 0) Then
begin
if x + y + z < 1
then
begin
if int(x) < int(y) then
begin
if x < z then
x := (y + z) / 2
else
z := (x + y) / 2;
end
else
begin
if y < z then
y := (x + z) / 2
else
z := (x + y) / 2;
end;
end
else
begin
if x < y then
x := (y + z) / 2
else
y := (x + z) / 2;
end;
Memo2.Text:='X=' + floattostr(x) + ' Y=' + floattostr(y) + ' Z=' + floattostr(z);
end
else
Memo2.Text:='Введите числа';
end;