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

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

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