() , . :
1) .
2) , .
.
.
3) .
4) ( ) ( ).
5) .
6) ().
7)
8) .
9) .
10) .
:
1) - .
2)
();
;
;
;
;
.
3) - , .
- , , , , .
/
1)
WRITE (A1, A2,, AN); - A1, A2,, AN ;
WRITELN (A1, A2,, AN); - A1, A2,, AN ;
WRITELN; - .
2)
READ (A1, A2,, AN); - N A1, A2,, AN;
READLN (A1, A2,, AN); - N A1, A2,, AN ;
READLN; - .
| * | x*y | ||||
| / | x/y | , | |||
| div | N div M | ||||
| mod | N mod M | ||||
| + | x + y | , | |||
| - | x - y | , |
| abs(x) | "x" | ||
| sin(x) | "x" | ||
| cos(x) | "x" | ||
| arctan(x) | "" (-Pi/2 < y < td)< 2 Pi> | ||
| Sqrt(x) | ""( , x > 0) | ||
| Sqr(x) | "" (2) | ||
| Exp(x) | "" "" (, e= 2. 718282...) | ||
| Ln(x) | "" ( > 0) | ||
| Frac(x) | "" | ||
| Int(x) | "" | ||
| Random | - | (0 < =y< 1) | |
| Random(x) | Word | Word | (0 < =y< x) |
| Succ(c) | "" | ||
| Pred(c) | "" |
|
|
|
y(x), x , y(x) = 
-
program psc2;
Var
x,y: real;
Begin
writeln(' x: ');
readln(x);
if (x>0)
Then
Begin
y:=sqrt(exp(2*x)*sqrt(x)-(x+1/3)/x)*abs(cos(2.5*x));
writeln(' y(x) : ',y:0:2);
End
Else
writeln(' !');
readln;
end.
| X | Y | ||
| 64,78 | y(x) : 64.78 | ||
| -2 | ! | ||
| ! | |||
| ds |
: . .
