Это конечно не школьниый вопрос, но может кто знает.

Вычислить значение функции в зависимости от интервала, в который по-падает вводимый с клавиатуры аргумент:

( На делфи)

program Task;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var x, y : real;
a, b : integer;
begin
    a := 1;
    b := 3;
    read(x);
    if (x < 2.3) then
        y := exp(-b * x) * sin(b * x)
    else if (x < 3) then
        y := cos(b * x)
    else
        y := exp(-a * x) * cos(b * x);
    writeln(y);
end.