, Basic, C, Pascal.
, 1.
1.
X + Y | X Y |
X Y | X Y |
X * Y | X Y |
X / Y | X Y |
X mod Y | X Y |
X div Y | X Y |
abs(X) | X |
sqrt(X) | X |
random(X) | 0 1 |
random(Int,X) | 0 Int |
round(X) | |
trunc(X) | |
sin(X) | X |
cos(X) | X |
arctan(X) | |
tan(X) | X |
ln(X) | X |
log(X) | 10 |
1.
Z=(2*X+Y)/(X-Y) X Y.
:
PREDICATES
_(real,real)
CLAUSES
_(X,Y):-X<>Y, Z=(2*X+Y)/(X-Y),
write("Z=",Z);
write (" 0 !").
GOAL
Write("X="),readreal(X),
Write("Y="),readreal(Y),_(X,Y),nl.
: readreal
:
1- :
X=4
Y=4
0 !
2- :
X=5
Y=2
Z=4
2.
A B.
:
PREDICATES
min(integer,integer,integer)
CLAUSES
min(A,B,A):-A<=B,!.
min(A,B,B).
GOAL
Write("A="),readreal(A),Write("B="),readreal(B),
min(A,B,Min),write("min=",Min),nl.
:
1- :
A=5
B=17
min=5
2- :
A=35
B=18
min=18
3- :
A=8
B=8
min=8
3.
, 0 20.
:
PREDICATES
chet
CLAUSES
chet:-random(20,X),write(X),X mod 2=0,
write(" - "),!.
chet:-write(" - ").
GOAL
chet.
:
1- :
6
2- :
19
1. Y=(X2+1)/(X-2) X.
2. S=2(X2+Y2)/(X+Y) X Y.
3. z=exsinx +3lnx X.
4. y=ln(lg(sinx+ex)) X.
5. .
6. .
7. .
|
|
8. X [a,b].
9. .
10. .
:
1) ;
2) ;
3) ;
4) .