richiesta dati con input

GESTIONE RICHIESTA DATI:INPUT

readln(variabile tipo stringa)
readln(S)..................readln(Nome)
chiede contenuto da assegnare a variabile STRING

readint(variabile numerica tipo intero)
readint(Intero)........readint(X)
chiede contenuto da assegnare a variabile INTEGER

readreal(variabile numerica tipo reale)
readreal(Reale).......readreal(R)
chiede contenuto da assegnare a variabile REAL

readchar(variabile numerica tipo carattere)
readchar(Carattere)
chiede contenuto da assegnare a variabile CHAR

file_str(dosfilename,variabile tipo stringa)

inkey(variabile tipo carattere)
inkey(Lettera)
chiede contenuto da assegnare a variabile tipo CHAR:funziona da STOP
appare frase:PREMI SPACE.

keypressed
appare frase PREMI SPACE

domains
S=string
X=integer
R=real
C,L=char

predicates
azione

goal
azione.

clauses
azione:-
makewindow(1,7,1,"",0,0,25,80),
write("scrivi una stringa "),readln(S),nl,
write(S),nl,
write("scrivi numero intero "),readint(X),nl,
write(X),nl,
write("scrivi numero reale "),readreal(R),nl,
write(R),nl,
write("scrivi un solo carattere "),readchar(C),nl,
write(C),nl,
SOUND(100,600),
write(" premi un tasto o Enter o Space "),
inkey(L),write(L).

/* testo4.pro */
/* richiesta dati con input READ...*/
/* pausa con KEYPRESSED */
/* funzioni per aprire finestre */
/* GOAL : prova */
/* scrivere numero Y per durata nota */
/* scrivere numero Z per frequenza nota */

domains
X,Y,Z = integer

predicates
clauses
 goal 
 beep,clearwindow,
 /* 20 massima altezza 75 larghezza */
 makewindow(1,3,4,"finestra1",1,1,20,75),
 write("stringa in finestra"),cursor(3,2),
 X=sqrt(100),write(X),
 cursor(4,2),write("scrivi intero.20,50:"),
 readint(Y),
 cursor(4,30),write("scrivi intero.500,800:"),
 readint(Z),
 sound(Y,Z),cursor(5,2),
 Prodotto=10*Y,write(Prodotto),
 cursor(15,2),keypressed.

/* reg4.pro */
/* richiesta dati vari e uso finestra */

domains
 X       = integer
 Y       = real
 Nome    = string
 Lettera = char
predicates
clauses
 goal
 clearwindow,
 makewindow(1,7,3,"",1,1,20,70),
 attribute(3),
 write("scrivi stringa          :"),readln(Nome),
 write("scrivi intero 10,20,100.:"),readint(X),
 write("scrivi numero reale......"),readreal(Y),
 write("scrivi carattere........."),readchar(Lettera),
 cursor(4,2),attribute(5),
 Numero_intero=X,
 Numero_reale=Y,
 Testo = Nome,
 Carattere = Lettera,
 cursor(5,2),
 write("stringa............ =",Nome),
 cursor(6,2),
 write("numero intero.......=",Numero_intero),
 cursor(7,2),
 write("numero reale........=",Numero_reale),
 cursor(8,2),
 write("carattere...........=",Carattere),
 keypressed.
 

/* reg7.pro */
/* attivazione di INKEY per stop */

domains
 A = char
predicates
 clauses
 goal
 clearwindow,
 makewindow(1,7,4,"",1,1,20,60),
 attribute(4),
 write(" attivazione di INKEY(char) "),
 cursor(5,2),
 write(" stop e comparsa frase PREMI SPACE "),
 sound(100,500),
 inkey(A).