1

введите сюда описание изображения

program lr3;
var x,y : real;
begin
    readln(x);
    if (sqr(sin(x))>=1/2) then
        y:=-2*sqr(sin(x));
    if (1/4 < sqr(sin(x))) then
        if(sqr(sin(x)) < 1/2) then
            y:=0.0000016;
    if(sqr(sin(x))<=1/4) then
          y:=sqr(tan(x));
   writeln(y);
end.
1
  • Нет смысла вычислять заново уже вычисленное...
    – Harry
    29 ноя 2016 в 17:15

1 ответ 1

2
program lr3;
var x, y: double;
var sinX2: double;
begin
  readln(x);
  sinX2 := sqr(sin(x));
  if sinX2 >= 0.5 then
  begin
    y := -2 * sinX2;
  end
  else if sinX2 > 0.25 then
  begin
    y := -1.6E-6;
  end
  else
  begin
    y := sqr(tan(x));
  end;
  writeln(y);
end.
2
  • 1
    Только y := -1.6E-6;, в исходном тоже ошибка.
    – Alekcvp
    1 дек 2016 в 7:55
  • @Alekcvp спасибо, поправил
    – user176262
    1 дек 2016 в 7:56

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими пользовательским соглашением, политикой конфиденциальности и политикой о куки

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.