file tipo exe

programma scritto con prolog e registrato come numero1.pro

domains
Somma,Prodotto,Differenza,A,B,C=integer
Quoziente,Radice=real

predicates
azione
goal azione.

clauses
azione:-
makewindow(1,2,3,"prove",0,0,15,50),nl,
write("scrivi numero intero="),readint(A),nl,
write("scrivi numero intero="),readint(B),nl,
Somma=(A+B),
Prodotto=(A*B),
Differenza=(A-B),
cursor(5,10),                       /*riga colonna*/
write("somma di ",A," + ",B,"=",Somma),nl,
cursor(6,10),
write("prodotto  =",Prodotto),nl,
cursor(7,10),
write("differenza=",Differenza),nl,
Quoziente=(A/B),
cursor(8,10),
write("quoziente =",Quoziente),nl,
write("---------------------------"),nl,
C=100,
Radice=sqrt(C),nl,
write("radice quadrata di ",C," = ",Radice).

attivato con RUN

compilato come numero1.exe e lanciato come numero1

inserire valori richiesti :appare risultato