.


:




:

































 

 

 

 


() , , . . 6 , , , . , .

  *
/
div 2
mod 2
  +
-

div mod . :

var y,c,n:integer;

...

y:=2006;

c:=y div 100;

n:=y mod 100;

c 20, n 6.

.

2. , . , , , , , . TURBO.TPL. : , . , . :

| x | abs(x) x Integer Real
x 2 sqr(x) x I R, - R
sin x cos x arctg x sin(x) cos(x) arctan(x) I R, R
ex ln x exp(x) ln(x) - I R, R
sqrt(x) x - I R, R
p pi , p R
  trunc(x) , R, I
  Frac(x) R
  Round (x) R, I

x , (. ), , . pi π.

x . , :

Sh (x)=(exp (x)-exp (-x)) /2

, :

:

1) x

x*x*x*x*x sqr(x)*sqr(x)*x sqr(sqr(x))*x, , . , , , .

2) a x

, ax=ex*ln a

a:=2.5; x:=0.25;

ax:=exp(x*ln(a));

, . :

= exp(1/3*ln(x)).

3) sin2 x => sqr(sin(x)). sin x2 => sin(sqr(x)).

sin*x sin x, .

4) k=tg(t). .. , k:=sin(t)/cos(t);

. :

. : y:=(a+b)/2; y:=a+b/2, .. .

5) *, .

b2-4ac -> sqr(b)-4*a*c

(.. , , ). , , . :

var i,j:integer;

f:real;

...

i+4*j ,

f+i*0.5 ,

write( / );

writeln( / );

. ' '

. ( E). " ". .

writeln write , .

:

1) , .

var a,a2:integer;

....

writeln (' :'); { !}

read (a);

a2:=sqr(a);

writeln (' =',a2);

a=2,

=4

| ---

 

, writeln , . ,

readln;

Enter.

 

2) x1=1.5 x2=2.5

write ('x1=',x1,'_x2=',x2);

- , x1 'x2='

:

x1= 1.5000000000E+00 x2= 2.5000000000E+00|

- , .. write!

, .

 

write writeln ( ) :

::

, , . .

, , . . . 0 -2 . .

:

var x1,p:real;

i:integer;

....

x1:=2.5; p:=-3.175; i:=2;

writeln ('x1=',x1:8:2,'_p=',p:9:4);

write ('I=','_':5,i:2);

:

x1=____2.50_p=__-3.1750

I=______2

_

 

 



<== | ==>
|
:


: 2016-09-06; !; : 373 |


:

:

.
==> ...

1899 - | 1772 -


© 2015-2024 lektsii.org - -

: 0.017 .