Страница 1 из 1

дефект в сценарии

Добавлено: 31 июл 2019, 21:06
semsmith
Уважаемые коллеги.
Помогите понять: почему сценарий
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: дефект в сценарии

Добавлено: 31 июл 2019, 23:48
sergey_o
Это вновь из-за целочисленного деления, измените тип переменных на Real. В новой версии программы такого нестандартного поведения операции деления нет, в ней сценарий будет работать ожидаемым образом и в исходном виде.