NaN в Pascal

[d3admau5]

Выводит в ответе строчку с NaN, что нужно прописать чтоб вообще всю эту строчку(подчеркнутую красной линией) убрать из ответа?

[Serge_Bliznykov]

картинка, это, конечно, хорошо. но код программы надо выкладывать на форум в виде текста.

Сообщение от d3admau5

что нужно прописать чтоб вообще всю эту строчку(подчеркнутую красной линией) убрать из ответа?

да не вопрос:

if (v>0) and (abs(power(abs(v-4),1/5))>0.0001) then begin
  P:=min(......);
  writeLn(' x= '......
end;
x := x + H

[d3admau5]

так?
program lab3; //Мусин В17 МО-17-10
const a=1.35; xmin=-2; xmax=4; H=0.5;
var P, v, x: real;
begin
x:=xmin;
repeat
if (x<=0.1) and (x>0) then v:=power(x+2,1/3)+sqr(sin(x));
if (x<0) then v:=power(x+2,1/3)+sqr(sin(x));
if (v>0) and (abs(power(abs(v-4),1/5))>0.0001) then begin
P:=min(x,a)*ln(v)/power(abs(v-4),1/5);
writeln(' x=',x:5:2,' v=',v:5:2,' P=',P:5:2);
x:=x+H;
end;
until(x>xmax);
end.

[d3admau5]

abs(power(abs(v-4),1/5) >0.0001 почему именно 0.0001 можете объяснить?

[d3admau5]

Сообщение от Serge_Bliznykov

картинка, это, конечно, хорошо. но код программы надо выкладывать на форум в виде текста.



да не вопрос:

if (v>0) and (abs(power(abs(v-4),1/5))>0.0001) then begin
  P:=min(......);
  writeLn(' x= '......
end;
x := x + H

abs(power(abs(v-4),1/5) >0.0001 почему именно 0.0001 можете объяснить?

[Serge_Bliznykov]

Сообщение от d3admau5

почему именно 0.0001

бесконечно малая величина.
можно вместо неё взять 0.0000001
можно даже просто написать:
>0
но в этом случае, если получится очень малая величина, стремящаяся к нулю, то при делении на неё получим величину, стремящуюся к бесконечности (а это и есть NaN)

Сообщение от d3admau5

так?

if (v>0) and (abs(power(abs(v-4),1/5))>0.0001) then begin
P:=min(x,a)*ln(v)/power(abs(v-4),1/5);
writeln(' x=',x:5:2,' v=',v:5:2,' P=',P:5:2);
x:=x+H;
end;
until(x>xmax);

нет. наращивать переменную цикла надо за пределами условия - иначе получите бесконечный цикл.

надо так:

  if (v>0) and (abs(power(abs(v-4),1/5))>0.0001) then begin
     P:=min(x,a)*ln(v)/power(abs(v-4),1/5);
     writeln(' x=',x:5:2,' v=',v:5:2,' P=',P:5:2);
  end;
  x:=x+H;
until(x>xmax);

разницу видите?