Summary: Programm:
sqr(X,Y) :- Y is X*X.
sqr :- nl,
write('Bitte geben Sie eine Zahl oder "stop" ein: '),
read(X),
proc(X).
proc(stop) :- !.
proc(X) :- sqr(X,Y),
write('Das Quadrat von '), write(X), write(' ist '), write(Y),
sqr.
Anfrage:
?- sqr.
Bitte geben Sie eine Zahl oder "stop" ein: 3.
Das Quadrat von 3 ist 9
Bitte geben Sie eine Zahl oder "stop" ein: -4.
Das Quadrat von -4 ist 16
Bitte geben Sie eine Zahl oder "stop" ein: stop.
Yes
Modifiziertes Programm:
sqr(X,Y) :- Y is X*X.

Source: Ábrahám, Erika - Fachgruppe Informatik, Rheinisch Westfälische Technische Hochschule Aachen (RWTH)

Collections: Computer Technologies and Information Sciences