1) c8r

2) [a,b,c,d]

3) ERROR: syntax error
   % الـ Prolog فسر Hello و World كـ Terms منفصلة مش كـ String واحد.
   % لازم Single Quotes: write('Hello World').

4) Hello World

5) Value = 5

a   b
 c

الشرح:

• ا write(a) -> تطبع a
• ا tab(3) -> تلات مسافات
• ا write(b) -> تطبع b
• ا nl -> سطر جديد
• ا tab(1) -> مسافة واحدة
• ا write(c) -> تطبع c

?- write('What is your name?'), nl, read(X), write('Greetings '), write(X).
What is your name?
|: tamer.
Greetings tamer
X = tamer.

cube :-
    write('enter number'),
    nl,
    read(N),
    C is N * N * N,
    write(C).

?- cube.
enter number
|: 2.
8
true.

cube :-
    write('Next item, please: '),
    read(X),
    process(X).

process(stop) :- !.

process(N) :-
    C is N * N * N,
    write('Cube of '), write(N), write(' is '), write(C),
    nl,
    cube.

?- cube.
Next item, please: 2.
Cube of 2 is 8
Next item, please: 5.
Cube of 5 is 125
Next item, please: 12.
Cube of 12 is 1728
Next item, please: stop.
true.

sum :-
    read(X),
    read(Y),
    Z is X + Y,
    write(Z).

?- sum.
|: 10.
|: 15.
25
true.

function :-
    read(X),
    process(X).

process(X) :- X =< 3, !, Y is 2 * X, write(Y).
process(X) :- Y is 4 * X + 5, write(Y).

?- function.
|: 2.
4
true.

?- function.
|: 5.
25
true.

sqr :-
    write('enter number: '),
    read(X),
    process(X).

process(X) :- X < 0, !, write('number is negative').
process(X) :- Y is X ^ 0.5, write(Y).

?- sqr.
enter number: 9.
3
true.

?- sqr.
enter number: -4.
number is negative
true.

أ) بدون Cut:

test1 :-
    write('enter score: '),
    read(X),
    process1(X).

process1(X) :- X >= 50, write('succeed').
process1(X) :- X < 50, write('fail').

ب) باستخدام Cut:

test1 :-
    write('enter score: '),
    read(X),
    process1(X).

process1(X) :- X >= 50, !, write('succeed').
process1(X) :- write('fail').

?- test1.
enter score: 75.
succeed
true.

?- test1.
enter score: 30.
fail
true.

test :-
    write('enter your name: '), read(S), nl,
    write('enter score: '), read(D),
    p(D, S).

p(D, S) :- D < 50, !, write('fail: '), write(S).
p(D, S) :- D >= 50, write('succeed: '), write(S).

?- test.
enter your name: ahmed.
enter score: 85.
succeed: ahmed
true.

divide :-
    write('Enter A: '), read(A),
    write('Enter B: '), read(B),
    process(A, B).

process(_, 0) :- !, write('Error: B is not valid (zero not allowed).').
process(A, B) :-
    Q is A / B,
    write('Quotient = '), write(Q).

?- divide.
Enter A: 10.
Enter B: 2.
Quotient = 5
true.

?- divide.
Enter A: 10.
Enter B: 0.
Error: B is not valid (zero not allowed).
true.