semsmith » 31 июл 2019, 21:06
Уважаемые коллеги.
Помогите понять: почему сценарий
var
x2, h1, x1 : integer ;
otv : real ;
begin
h1 := random(60) + 20 ;
x1 := random(6) + 3 ;
repeat
x2 := random(6) + 3
until
x2 <> x1 ;
otv := h1*((x2/x1)*(x2/x1)-1) ;
end.
при некоторых значениях х1 и х2 дает otv= 0
Спасибо.
Уважаемые коллеги.
Помогите понять: почему сценарий
var
x2, h1, x1 : integer ;
otv : real ;
begin
h1 := random(60) + 20 ;
x1 := random(6) + 3 ;
repeat
x2 := random(6) + 3
until
x2 <> x1 ;
otv := h1*((x2/x1)*(x2/x1)-1) ;
end.
при некоторых значениях х1 и х2 дает otv= 0
Спасибо.