var x, a, b, s : real;
const e : real = 2.71;
begin
a := 0.5;
b := 0.8;
writeln( 'Введите x= ' );
read( x );
if ( x <=1 ) and ( x >= -1 ) then
begin
s := exp( - a * x * ln( e ) ) * cos( x ) + exp( - b * x * ln( e ) ) * sin( x );
write( 'S=' );
writeln( s );
end
else
writeln( 'Вычисление невозможно' );
end.
var z, x : real;
var a, b : integer;
const e : real = 2.71;
begin
a := 1;
b := 3;
writeln( 'Введите x= ' );
read( x );
if ( x >= 2 ) then
begin
z := sin( a*x );
write( 'Z=' );
writeln( z );
end
else if ( x < 2 ) then
begin
z := exp( -a*x * ln( e ) ) * cos( b*x );
write( 'Z=' );
writeln( z );
end
end.
Объяснение:
