Построить эллипс (координаты и размер нужно ввести с клавиатуры)

@natalya009 · Регистрация: 11.02.2010

Студворк — интернет-сервис помощи студентам

Наиумнейшие умы в TurboProlog взываю Вас о помощи.. Осталось сдать 2 задачи чтоб остаться без хвоста) подскажите плс)
1) построить эллипс(его координаты и размерность нужно с клавы вводить)
2) определить отношение разность(Список1, Список2, Список3), где элементы списка Список3 принадлежат Списку1, но не принадлежат Списку2
вроде легкие, но у меня уже мозг не мыслит логически, ток процедурно(((
Заранее огромне спасибо)))))

@Грымзик · 18.03.2010, 19:11

Про графику ничего не знаю, но вот эту нашла:

Prolog

predicates
 
      ellips (real)
 
      real_int (real, integer)
 
goal
 
      graphics (5, 0, 15), ellipse (0).
 
clauses
 
      ellips (A):- A>=6.28, ! % Если полный круг , А – угол
 
      ellips (A):- Xc=5000, Yc=18000, R=3600,
 
X=Xc+R*sin(A), Y=Yc-R*cos(A),
 
real_int (X, Xi), real_int (Y, Yi),
 
dot (Xi, Yi, 1), A1=A+0.02, ellips (A1).
 
real_int (R, I):- R=I;

А вот вторая:

Prolog

DOMAINS
ilist=integer*
 
PREDICATES
member(integer,ilist).
raznost(ilist,ilist,ilist).
 
CLAUSES
member(H,[H|_]).
member(H,[_|Tail]):-member(H,Tail).
 
raznost([],_,[]).
raznost([H|Tail],L,[H|TailAns]):-not(member(H,L)),!,raznost(Tail,L,TailANs).
raznost([_|Tail],L,Ans):-raznost(Tail,L,Ans).
 
GOAL
raznost([1,2,3,4,5,6,7,8,9,10],[2,4,6,8,10],L).

@natalya009 · 18.03.2010, 22:27 **[ТС]**

спасибо большущее)))

@natalya009 · 24.03.2010, 12:17 **[ТС]**

Грымзик, можно объяснение второй задачи? а то я не въехала(( Плис)

@natalya009 4 / 4 / 0 Регистрация: 11.02.2010 Сообщений: 95
		1
	Построить эллипс (координаты и размер нужно ввести с клавиатуры) 18.03.2010, 17:14. Показов 1933. Ответов 3 Метки нет (Все метки) Наиумнейшие умы в TurboProlog взываю Вас о помощи.. Осталось сдать 2 задачи чтоб остаться без хвоста) подскажите плс) 1) построить эллипс(его координаты и размерность нужно с клавы вводить) 2) определить отношение разность(Список1, Список2, Список3), где элементы списка Список3 принадлежат Списку1, но не принадлежат Списку2 вроде легкие, но у меня уже мозг не мыслит логически, ток процедурно((( Заранее огромне спасибо))))) 0

@natalya009 4 / 4 / 0 Регистрация: 11.02.2010 Сообщений: 95
	18.03.2010, 22:27 [ТС]	3
	спасибо большущее))) 0

@natalya009 4 / 4 / 0 Регистрация: 11.02.2010 Сообщений: 95
	24.03.2010, 12:17 [ТС]	4
	Грымзик, можно объяснение второй задачи? а то я не въехала(( Плис) 0

Опции темы