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

Узнай цену своей работы

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

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

Решение задачи: «Протабулировать функцию на интервале»

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;

Объяснение кода листинга программы

  1. x := -0.2;
  2. while x <= 0.85 do begin
  3. d := Sqr(Sqr(x))/2 + Sqr(Sin(x));
  4. if Abs(d) > 1e-7 then
  5. WriteLn('x=', x:4:1, 'y=', (1 + Cos(Sqr(x) - 1))/d:8:4);
  6. else
  7. WriteLn('x=', x:4:1, 'y не определён');
  8. x := x + 0.1;
  9. end;

Оцени полезность:

6   голосов , оценка 4.167 из 5
Похожие ответы