() , , . . 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
_