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

/* coseno2.pro */
/* Questo programma richiede una scheda EGA o CGA */
/* Non Š supportata la scheda Hercules! */
/* disegna COSINUSOIDE piena con LINE */

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