|
x := ((y * z + 100) * 100) div s;
Вот так вот заработало!
Madness
Ты очевидно имел введу if Edit1.Text <> '' then begin ... я так долго не работал с дельфи, что воспринял "=" вполне нормально, потому что частенько на перле сижу.
Как сделать проверку, пока не будет изменено три Edit-а, ну или не введены значения... не активизировать Button1.
Также, как правильно перевести, на дельфийския язык... снова проблемы
Y=((S-X) : Z) : (X : 100)
Z=(S-X) : ((X : 100)*Y)
S=X+((X : 100)*Y)*Z
x := ((y * z + 100) * 100) div s;
Вот так вот заработало!
Madness
Ты очевидно имел введу if Edit1.Text <> '' then begin ... я так долго не работал с дельфи, что воспринял "=" вполне нормально, потому что частенько на перле сижу.
Как сделать проверку, пока не будет изменено три Edit-а, ну или не введены значения... не активизировать Button1.
Также, как правильно перевести, на дельфийския язык... снова проблемы
Y=((S-X) : Z) : (X : 100)
Z=(S-X) : ((X : 100)*Y)
S=X+((X : 100)*Y)*Z
|