Implement main

Ikki sonning yig’indisini hisoblovchi dastur Quyidagi dasturda 2ta sonning yig’indisi(sum) yoki 2ta sonning ko’paytmasi(prog)ni hisoblash dasturi keltirilgan. Bu yerda ko’paytma keltirilgan:

implement main

open core

domains

pp2 = (real Argument1, real Argument2

) -> real ReturnType.

clauses

classInfo("main", "hi_order").

class predicates

sum : pp2.

prod : pp2.

red : (pp2, real*, real, real)

procedure (i, i, i, o).

clauses

sum(X, Y)= Z :- Z=X+Y.

prod(X, Y)= Z :- Z=X*Y.

red(_P, [], A, A) :- !.

red(P, [X|Xs], A, Ans) :- red(P, Xs, P(X, A), Ans).

run():- console::init(),

red(prod, [1,2,3,4,5], 1, X),

stdio::write(X), stdio::nl,

succeed().

end implement main

goal

mainExe::run(main::run)

Bu dasturdan natija 4- rasmda keltirilgan.

(4-rasm) Ko’paytmani hisoblovchi dasturni ko’rinishi va natijasi.

Topshiriq:

1. 
   1dan 10 gacha bo’lgan sonlar yig’indisini chiqaruvchi
   
2. 
   2ta sonning yigindisini hisoblash dasturi
   
3. 
   Oila
   

Dasturini tuzing.