Programm: sqr(X,Y) :- Y is X*X. sqr :- nl, write(’Bitte geben Sie eine Zahl oder "stop" ein: ’), read(X), proc(X). - SQR - Document - PDFSEARCH.IO

First Page	Meta Content
	Programm: sqr(X,Y) :- Y is X*X. sqr :- nl, write(’Bitte geben Sie eine Zahl oder "stop" ein: ’), read(X), proc(X). Add to Reading List Document Date: 2015-01-30 08:47:57 Open Document File Size: 11,23 KB Share Result on Facebook

Programm: sqr(X,Y) :- Y is X*X. sqr :- nl, write(’Bitte geben Sie eine Zahl oder "stop" ein: ’), read(X), proc(X).Add to Reading List