Pascal :
abs(x) | |x| | |
arctan(x) | arctg(x) | |
cos(x) | cos(x) | |
sin(x) | sin(x) | |
pi | π | π (3.141592653897932385) |
exp(x) | ex | |
ln(x) | ln(x) | |
sqr(x) | x2 | |
sqrt(x) | ||
frac(x) | ||
int(x) | [x] | |
round(x) |
tg(x), ctg(x), arcsin(x), arcos(x), arcctg(x), logax xa.
, , .
. , tgx, ctgx, arcsin(x), arcos(x), arcctg(x), logax xa .
, :
tg(x)=sin(x)/cos(x);
ctg(x)=cos(x)/sin(x);
arcctg(x)=pi/2-arctan(x);
arcsin(x)=arctan(x/sqrt(1-sqr(x)));
arcos(x) =arctan(sqrt(1-sqr(x))/ x);
logax=ln(x)/ln(a);
xa=exp(a*ln(x));
.
. .
, , :
y:=sqrt(2*x-1)-abs(4*exp(1.2*ln(x))+sqrt(3))/(5*sin(x)+cos(2*x))- arctan(0.25/sqrt(1-sqr(0.25)))
, := ( ). , , . , .
:
Program Vyrag1;
Uses Crt;
Var x,y:real;
Begin
ClrScr;{ }
write(' : ');{ }
readln(x);{ }
{ }
y:=sqrt(2*x-1)-abs(4*exp(1.2*ln(x))+
sqrt(3))/(5*sin(x)+cos(2*x))- arctan(0.25/sqrt(1-sqr(0.25)));
writeln('y=',y:6:3);{ }
readln;{ }
End.
. .
. , . , , , , , z.
|
|
Program Vyrag2;
Uses Crt;
Var x,y,z:real;
Begin
ClrScr;{ }
write(' : ');{ }
readln(x);{ }
write(' z: ');{ }
readln(z);{ z}
{ }
y:=3*x*x-exp(sin(x))+sqrt(x*x+1)/(pi-arctan(x));
writeln('y=',y:6:3);{ }
readln;{ }
End.
:
1. :
2. :
3. :
4. :
5. :
6. :
7. :
8. :
9. :
10. :
11. :
12. :
13. :
14. :
15. :
, .
. .
, , .
, ( ). . : x>=0, , , .
- :
- , : . , 0. , . , , , .
.
:
if < > then < 1> [else < 2>];
< > - boolean, : true () false ();
- + , - .
< 1> - , , true;
|
|
< 2> - , , false.
-:
: true (), 1, then, false (), 2, else.
, else < 2> . , , , .
.. :
if < > then < 1>;
1 , true. false, .
-:
, , .
Program KvKoren;
Uses Crt;
Var x,y:real;
Begin
ClrScr; { }
write(' : '); { }
readln(x); { }
if x>=0 { >=0}
then { , then, x>=0 true ()}
begin { }
y:=sqrt(x); { }
writeln('y=',y:6:3); { }
{ , , }
end { . : , , }
else writeln(' <0 .'); { , , x>=0 false ()}
readln; { }
End.
, then else , , , begin end, then. begin end , , .
.
. , :
.
.
:
1) ;
2) .
. , .
:
|
|
- , :
|
|
- | - |
, -:
Program UslOp1; Uses Crt; Var x,y:real; Begin ClrScr; write(' : '); readln(x); if x<3 then y:=2*x+1 else y:=x*x-4; writeln('y=',y:6:3); readln; End. | Program UslOp2; Uses Crt; Var x,y:real; Begin ClrScr; write(' : '); readln(x); if x<3 then y:=2*x+1; if x>=3 then y:=x*x-4; writeln('y=',y:6:3); readln; End. |
1. : a, b c. : .
2. a b. : b.
3.
4.
5. : , . ?
6. ax2+bx+c=0.
7. . , (), .. , .
8. . , ?
9. . , .
:
, , if then case. :
case <> of
<1- >:< 1>;
<2- >:< 2>;
<N- >:< N>;
[else < N+1>]
end;
.
case. , . case . , ( -32768 65535), . of, . , , , , .
, , , , case , .
, , else. else , , , case , case.
|
|