Программирование на языке Турбо-Пролог 2.0. Николаев В.Г - 19 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

- 19 -
Программа:
bgidriver "_CGA_driver_far"
PREDICATES
ranpick
convers(integer,integer,integer)
repeat
CLAUSES
repeat.
repeat:- not(keypressed), repeat.
ranpick:-repeat,random(320,X),random(200,Y),
getpixel(X,Y,C),convers(X,Y,C),fail.
ranpick:-!.
convers(X,Y,1):-putpixel(X,Y,3),!.
convers(X,Y,0):-putpixel(X,Y,2),!.
GOAL
DetectGraph(D,M),InitGraph(1,1, _, _, "\\"),
SetBkColor(1),SetColor(1),
settextstyle(0,0,3),outtextxy(5,50,"Дмитрий Белов"),
settextstyle(0,0,1),outtextxy(100,100,"Россия"),
ranpick,closegraph(),exit(0),!.
1.8. Структура программы на языке Турбо-Пролог
Турбо-Пролог позволяет составлять четкие, хорошо структури-
рованные программы и программные проекты. Используя принципы мо-
дульного программирования, он позволяет разбивать сложные прог-
раммы на блоки (модули), которые можно писать, компилировать, от-
лаживать и хранить отдельно, а затем формировать из них единую
программу.
Турбо-Пролог-программа должна иметь следующую структуру:

Страницы