Вычисление выражений

[andrmerk]

Рассчитать y=x^2+1.8 при заданном x. Далее вычислить и напечатать
k={sin y, при y<10; tg y, при y>20; y^2, при 10<=y<=20

Вообще не понимаю как сделать,помогите,пожалуйста

[newerow1989]

var x,y,k:real;
begin
   Write('x = '); Readln(x);
   y:=x*x+1.8;
   If y<10 then
      k:=sin(y) else
   If y>20 then
      k:=sin(y)/cos(y) else
      k:=y*y;
   Writeln(k:5:5);
   Readln;
end.

Сойдет?

[andrmerk]

Последнее условие не учли,там при 10<=y<=20 k=y*y
Вот какой кода будет?

[newerow1989]

Вот и мысленно подставьте y=15. В какую ветку условий она попадет?

[andrmerk]

Ой,да,тупанул,спасибо большое!!!

[newerow1989]

Пожалуйста!

[andrmerk]

А откуда мы взяли y=15?

[andrmerk]

Рассчитать y=x^2+1.8 при заданном x. Далее вычислить и напечатать
k={sin y, при y<10; tg y, при y>20; y^2, при 10<=y<=20

какой будет код при 10<=y<=20 k=sqr(y)

[Аватар]

Что за названия тем - помогите, паскаль, матрица? Ни чего не мешает назвать эту тему Вычисление выражения, например. Исправь названия своих тем в расширенном режиме редактировани. Иначе позакрываю

Модератор

[andrmerk]

Извиняюсь,не знал