profile
Опубликовано 6 лет назад по предмету Информатика от ASSELL

Турбо паскаль y=x tgx-sinx,если x>1.5 

                          x3+sinx,если 1.5<=x<=2.5

                           x3 +5,если 1.5=2.5

  1. Ответ
    Ответ дан SuperHanz

    program n1;

    var DertyMonk,x:integer;
    Begin
    Writeln (‘Введи Х’);
    ReadLn (x);

    if x>1.5 then
      DertyMonk:=x*tg(x)
      ReadLn (x,'*tg(x)',DertyMonk);

    else if 1.5 <= x || x <= 2.5 then

      DertyMonk:=x*3+sin(x)
      ReadLn (x,'*3+sin(x)',DertyMonk);

    else

      DertyMonk:=x*3+5
      ReadLn (x,'*3+5=',DertyMonk);

    end.

    end;

     

    Не пробовал, наверн много ошибок будет тк давно не програмировал на нём

Самые новые вопросы