Question

Ребят, помогите пожалуйста, проблема с циклами. Обойдусь без предысторий с "хорошим учителем"...


Нужно написать циклы while и repeat/until. Обязательно с оператором if, ибо учитель просит, так как он необходим.
Область "определения" от x=-10 и x=10
Выражение такое: y = корень из (5-x)

Проблема заключается в том, что цикл я составил и он работал, но в качестве значения y под некоторыми значениями x выводилось некое NaN. (Собственно из-за этого if и просится)

Как убрать в принципе знаю, но понятия не имею как оформить.


Кому не лень, просьба помочь...

p.s. Напишите цикл полностью, от корки до корки, прошу...

Answer 1

Ответ:

x := -10

while x <= 10 do begin

 {Обязательно надо сделать проверку на знак}

 {Потому что корень из отрицательных чисел не вычисляется}

 {Результатом будет NaN - неопределённое значение}

 if 5-x >= 0 then

     y := sqrt(5-x);

     x := x + 1

end;

{==============================================}

x := -10;

repeat

   if 5 - x > 0 then y := sqrt( 5 - x);

   x := x + 1;

until x >= 10;

Объяснение:

Вот и весь цикл