Ребят , проблема с циклами. Обойдусь без предысторий с хорошим учителем ... Нужно написать циклы while и repeat/until. Обязательно

Question

Информатика: Ребят , проблема с циклами. Обойдусь без предысторий с хорошим учителем ... Нужно написать циклы while и repeat/until. Обязательно с оператором if, ибо учитель просит, так как он необходим.Область определения от x=-10 и x=10Выражение такое: y = корень из (5-x)Проблема заключается в том, что цикл я составил и он работал, но в качестве значения y под некоторыми значениями x выводилось некое NaN. (Собственно из-за этого if и просится)Как убрать в принципе знаю, но понятия не имею как оформить.Кому

Mozgi1706 · Answer

x := -10while x = 10 do begin  {Обязательно надо сделать проверку на знак}  {Потому что корень из отрицательных чисел не вычисляется}  {Результатом будет NaN - неопределённое значение}  if 5-x = 0 then      y := sqrt(5-x);      x := x + 1end;{}x := -10;repeat    if 5 - x 0 then y := sqrt( 5 - x);    x := x + 1;until x = 10;Объяснение:Вот и весь цикл...

Популярные вопросы