Вычислить значение функции - Turbo Pascal (29478)

Функция Условие Исходные данные y={at^2ln t 1=t=2 a=-0,5 {1 t<1 b=2 {e^at cos bt t>2

Листинг программы

a:=-0.5;
b:=2;
if (t>=1) and (t<=2) then
 y:=a*sqt(t)*ln(t)
else
 if t<1 then
  y:=1
 else
  y:=exp(a*t)*cos(b*t);

Объяснение кода листинга программы

Переменная a инициализируется значением -0.5.
Переменная b инициализируется значением 2.
Вычисляется значение функции y при условии, что t находится в диапазоне от 1 до 2. В этом случае функция y вычисляется как произведение a и квадратного корня t, умноженного на логарифм t.
Если условие t>=1 и t<=2 не выполняется, то значение переменной y устанавливается равным единице.
Если условие t<1 выполняется, то значение переменной y устанавливается равным значению экспоненты a*t, умноженной на косинус b*t.