Question

записать программы C++ на Pascal

631c4b86a8366a61eb3f34ace19f73b7.txt

3e24b83b6b1c39011c150e2f949f581c.txt

Answer 1

Ответ:

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.

Объяснение: