| 2 Тапсырмалар және орындау тәртібі
2.1. Қарапайым арифметикалық есептеулерді жүзеге асыратын программаны орындаңыз.
Predicates
Sred(integer, integer, real)
Kvadr(integer, integer)
Cub(integer, integer)
Dmod(integer, integer, integer)
Ddiv(integer, integer, real)
St(integer, integer, integer)
Clauses
Sred(A,B,D):- D=(A+B)/2. /*арифметикалық орта*/
Kvadr(B,D):- D=B*B. /*санның квадратын есептеу*/
Cub(B,D):- D=B*B*B. /*санның кубын есептеу*/
Dmod(A,B,D):- D=A mod B./*бүтін сандарды бөлгендегі қалдықты есептеу */
Ddiv(A,B,D):- D=A div B. /*бүтіндей бөлу*/
St(N,0,1):- !. /*Санды дәрежелеу*/
St(N,P,R):-
M=P-1,
St(N,M,Q),
R=N*Q.
2.2.Вариатыңызға сәйкес арифметикалық операциялардан тұратын программа құрыңыз. Программа интерактивті режимге арналып жазылу керек, яғни барлығы клавиатурадан енгізілуі керек.
Достарыңызбен бөлісу: |
