• написать программы: 1)y=sinx^2 2) x>=0,y=cosx ,1-2sinx в противном случаи

Ответы 1

  • Программы на pascal

    1)

    var

      x, y: real;  

     

    begin

      writeln('Введите х');

      readln(x);  //Вводим х

      y:= sin(sqr(x));  

      writeln('y = ', y : 0 : 5);  {Печатаем значение у с округлением до 5 знаков после запятой}

    end.

    2)

    var

      x, y: real;

     

    begin

      writeln('Введите х');

      readln(x);  //Вводим х

      if x >= 0 then y:= cos(x)  //Если х >= 0, то у = cosx, иначе у = 1 - 2sinx

      else y:= 1 - 2 * sin(x);

      writeln('y = ', y : 0 : 5);  {Печатаем значение у с округлением до 5 знаков после запятой}

    end.

    Если все правильно, отметь решение как лучшее)

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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