Протабулировать функцию на интервале - Turbo Pascal (28956)

Формулировка задачи:

Протабулировать функцию на интервале : -0.2≤x≤0.8 с шагом h=0.1: Помогите пожалуйста, буду очень благодарен и признателен

Код к задаче: «Протабулировать функцию на интервале - Turbo Pascal (28956)»

textual
x:=-0.2;
while x<=0.85 do begin
  d:=Sqr(Sqr(x))/2+Sqr(Sin(x));
  if Abs(d)>1e-7
  then WriteLn('x=',x:4:1,' y=',(1+Cos(Sqr(x)-1))/d:8:4);
  else WriteLn('x=',x:4:1,' y не определён');
  x:=x+0.1;
end;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

6   голосов, оценка 4.167 из 5


СДЕЛАЙТЕ РЕПОСТ