Home

About

Advanced Search

Browse by Discipline

Scientific Societies

E-print Alerts

Add E-prints

E-print Network
FAQHELPSITE MAPCONTACT US


  Advanced Search  

 
sqr(X,Y) :-Y is X*X. write('Bitte geben Sie eine Zahl oder "stop" ein: '),
 

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