var
t1, t2: Integer;
s: Real;
begin
t1 := Random(8) + 2; { 2...9 }
repeat
t2 := Random(8) + 3; { 2...10 }
until (t1 < t2) ;
s:= 10*(t2-t1)-(5/4)*(t2*t2-t1*t1)
К сожалению в сценарии эта конструкция, почему-то выдает неверный ответ????
Замена t2*t2 на sqr(t2) приводит к error.
Заранее спасибо за ответ
арифметика в сценарии
Re: арифметика в сценарии
Выражение (5 / 4) здесь рассматривается как целочисленная операция и дает в результате 1. Чтобы показать, что речь идет о действительных числах, нужно хотя бы одно из них явно записать в таком виде: (5.0 / 4).