• Y=X*COS(X)+SIN(X)
    Написать программу 2 способами: цикл с параметром и с предусловием 
    Pascal ABC

Ответы 1

  • 1)const x0=1.0; xk=2.0; h=0.1;var x,y:real; i:integer;beginx:=x0-h;for i:=1 to round((xk-x0)/h)+1 do begin x:=x+h; y:=x*cos(x)+sin(x); writeln(x:3:1,y:7:3); end;end.2)const x0=1.0; xk=2.0; h=0.1;var x,y:real;beginx:=x0-h;while x<xk do begin x:=x+h; y:=x*cos(x)+sin(x); writeln(x:3:1,y:7:3); end;end.Результат:1.0  1.3821.1  1.3901.2  1.3671.3  1.3111.4  1.2231.5  1.1041.6  0.9531.7  0.7731.8  0.5651.9  0.3322.0  0.077
  • Добавить свой ответ

Войти через Google

или

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

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

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