distance/3 — distanță în plan — Programare Logică și Funcțională

Exerciții › Laboratorul 1, Exercițiul 3

distance/3 — distanță în plan

Laboratorul 1, Exercițiul 3 intro Aritmetică și egalitate (is, =, ==, =:=)

Definiți un predicat distance/3 pentru a calcula distanța dintre două puncte într-un plan 2-dimensional.

?- distance((0, 0), (3, 4), D).
D = 5.0

Hint: punctele sunt perechi (X, Y). Folosește is și sqrt/1 pentru √((x1-x2)² + (y1-y2)²).

Te-ai blocat?

editor soluție

distance((X1, Y1), (X2, Y2), D) :-
    D is sqrt((X1 - X2)**2 + (Y1 - Y2)**2).

Tastează o interogare (ex. father_of(sandra, X).) și apasă Enter — sau apasă pe un caz de test de mai jos.

Cazuri de test (2 — apasă pe unul ca să îl rulezi, sau Verifică pentru toate)

distance((0,0), (3,4), D). așteptat: D = 5.0

distance((1,1), (1,1), D). așteptat: D = 0.0