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

/* trigono1.pro */
/* Questo programma richiede una scheda EGA o CGA */
/* Non Š supportata la scheda Hercules! */
/* disegna COSINUSOIDE e sinusoide con DOT */

domains
intero= integer

Predicates
disegna(Intero,Intero,Intero)
assi

Goal
graphics(1,7,1),attribute(1),
write("\tCosinusoide-Sinusoide\n\n"),
assi,
disegna(16000,1000,1440).

Clauses
assi:-
RH1=16000,CH1=1000,RH2=16000,CH2=32000,
RV1=1000,CV1=1000,RV2=30000,CV2=1000,
line(RH1,CH1,RH2,CH2,7),
line(RV1,CV1,RV2,CV2,7).

disegna(Riga1,Colonna1,N):-
N>0,!,
Colore1=2,
Colore2=7,
R=16000,
Scala=5000,
Riga2=R+round(Scala*sin(N*3.14/180)),
Riga3=R+round(Scala*cos(N*3.14/180)),
dot(Riga3,Colonna1,Colore1),
dot(Riga2,Colonna1,Colore2),
Colonna2=Colonna1+20,
N2=N-1,
disegna(Riga1,Colonna2,N2).
disegna(_,_,_).