listati da Turbo Prolog
listati da copiare e incollare su notes e salvare con "tutti i file",come file.PRO
richiamabili in ambiente Prolog

esci listaprolog.htm

/* coseno1.pro */
/* Questo programma richiede una scheda EGA o CGA */
/* disegna COSINUSOIDE con LINE e DOT */

domains
intero= integer
Predicates
disegna(Intero,Intero,Intero)
Goal
graphics(1,7,1),attribute(1),
line(16000,1000,16000,32000,7),
disegna(16000,1000,1440).
Clauses
disegna(Riga1,Colonna1,N):-
N>0,!,
Colore=2,
dot(Riga1,Colonna1,Colore),
Riga2=Riga1+100*cos(N*3.14/180),
Colonna2=Colonna1+20,
N2=N-1,
disegna(Riga2,Colonna2,N2).