Уважаемые коллеги.
Помогите понять: почему сценарий
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
Спасибо.
дефект в сценарии
Re: дефект в сценарии
Это вновь из-за целочисленного деления, измените тип переменных на Real. В новой версии программы такого нестандартного поведения операции деления нет, в ней сценарий будет работать ожидаемым образом и в исходном виде.