• Помогите,пожалуйста,написать программу в Паскале через циклы while и repeat.
    Номер 4.

    question img

Ответы 1

  • 1)const eps=0.5e-6;var x,xn,a0,a1:real;beginreadln(x,a0);xn:=1;while abs(a0-a1)>=eps do begin a0:=a1; xn:=x*xn; a1:=sin(1+a0*a0*a0)/xn; end;writeln(a1);end.2)const eps=0.5e-6;var x,xn,a0,a1:real;beginreadln(x,a0);xn:=1;repeat a0:=a1; xn:=x*xn; a1:=sin(1+a0*a0*a0)/xn;until abs(a0-a1)<eps;writeln(a1);end.Пример:1.2 0.9 2.41185904021433E-006
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years