лабы / лаб3 / lab3_1

Program lab3_1;
var
b: Real = 2.9;
x: Real = 0.0;
y: Real;
begin
while (x <= 2) do
begin
if (x < 1) then y := Abs(exp(-2*x) * Sin(b*x))
else if (round(x) = 1) then y := cos(b*x)
else y := exp(-x) * cos(b*x);
WriteLn('При x = ', x:1:2, ' => y = ', y:1:2);
x := x + 0.2;
end;
end.