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

Обсуждение программы Айрен и общих вопросов тестирования
Ответить
semsmith
Сообщения: 15
Зарегистрирован: 05 июн 2013, 12:55

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

Сообщение 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
Спасибо.

sergey_o
Администратор
Сообщения: 550
Зарегистрирован: 21 дек 2008, 20:06
Контактная информация:

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

Сообщение sergey_o » 31 июл 2019, 23:48

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

Ответить