pp.pdf

(54 KB) Pobierz

444501599 UNPDF

kwadratmagiczny :-

X = [X01, X02, X04,

X06, X07,

X09, X10,

X15, X16],

L = [4, 6, 7, 8, 9, 10, 13, 14, 16],

assign(X, L),

X01 + X02 + 5 + X04 =:= 34,

15 + X06 + X07 + 3 =:= 34,

X09 + X10 + 11 + 2 =:= 34,

1 + 12 + X15 + X16 =:= 34,

X01 + 15 + X09 + 1 =:= 34,

X02 + X06 + X10 + 12 =:= 34,

5 + X07 + 11 + X15 =:= 34,

X04 + 3 + 2 + X16 =:= 34,

write(X01), tab(2),

...

write(X16), nl.

assign([], _).

assign([D|Ds], List):-

select(D, List, NewList),

assign(Ds, NewList).

kwadratmagiczny :-

X = [X01, X02, X04,

X06, X07,

X09, X10,

X15, X16],

L = [4, 6, 7, 8, 9, 10, 13, 14, 16],

assign(X, L),

X01 + X02 + 5 + X04 =:= 34,

15 + X06 + X07 + 3 =:= 34,

X09 + X10 + 11 + 2 =:= 34,

1 + 12 + X15 + X16 =:= 34,

X01 + 15 + X09 + 1 =:= 34,

X02 + X06 + X10 + 12 =:= 34,

5 + X07 + 11 + X15 =:= 34,

X04 + 3 + 2 + X16 =:= 34,

write(X01), tab(2),

...

write(X16), nl.

assign([], _).

assign([D|Ds], List):-

select(D, List, NewList),

assign(Ds, NewList).

take (_, [], []):- !.

take(0, _, []):- !.

take(X, [H|T1], [H|T2]):-

X1 is X-1,

take(X1, T1, T2).

Pobieranie wszystkich elem. z listy poza ostatnim (2 sposoby)

init ([],[]).

init(L, W) :-

take (_, [], []):- !.

take(0, _, []):- !.

take(X, [H|T1], [H|T2]):-

X1 is X-1,

take(X1, T1, T2).

Pobieranie wszystkich elem. z listy poza ostatnim (2 sposoby)

init ([],[]).

init(L, W) :-

init2 ([],[]).

init2(L, W) :-

length(L, D),

D1 is D-1,

take(D1, L, W).

init2 ([],[]).

init2(L, W) :-

length(L, D),

D1 is D-1,

take(D1, L, W).

reverse(L ,X),

drop(1, X, Y),

reverse(Y, W).

reverse(L ,X),

drop(1, X, Y),

reverse(Y, W).

Pobiera z listy elem. Poza N

pierwszymi i koncowymi

middle (N, L, W):-

drop(N, L, X),

reverse(X, Y),

drop(N, Y, Z),

reverse(Z, W).

Przesuwa cyklicznie o jeden

argument w liście

move (L, W):-

take(1, L, X),

drop(1, L, Y),

append(Y, X, W).

Pobiera z listy elem. Poza N

pierwszymi i koncowymi

middle (N, L, W):-

drop(N, L, X),

reverse(X, Y),

drop(N, Y, Z),

reverse(Z, W).

Przesuwa cyklicznie o jeden

argument w liście

move (L, W):-

take(1, L, X),

drop(1, L, Y),

append(Y, X, W).

Dzieli liste na dwie części

split ([],[],[]) :- !.

split(L,L1,L2) :-

length(L,R),

P1 is R // 2,

P2 is R - P1,

take(P1,L,L1),

reverse(L,C),

take(P2,C,K),

reverse(K,L2).

Monety

monety (X) :-

between(1, 99, X),

X mod 3 =:= 1,

between(1, 99, X),

X mod 4 =:= 2,

between(1, 99, X),

X mod 5 =:= 3,

between(1, 99, X),

X mod 6 =:= 4.

Dzieli liste na dwie części

split ([],[],[]) :- !.

split(L,L1,L2) :-

length(L,R),

P1 is R // 2,

P2 is R - P1,

take(P1,L,L1),

reverse(L,C),

take(P2,C,K),

reverse(K,L2).

Monety

monety (X) :-

between(1, 99, X),

X mod 3 =:= 1,

between(1, 99, X),

X mod 4 =:= 2,

between(1, 99, X),

X mod 5 =:= 3,

between(1, 99, X),

X mod 6 =:= 4.

wnuczka(X,Y) :-

rodzic(X,Z),

rodzic(Z,Y),

kobieta(Y).

prawnuk(X,Y) :-

rodzic(X,Z),

rodzic(Z,Q),

rodzic(Q,Y),

mezczyzna(Y).

siostra(Y,X) :-

rodzic(Z,X),

rodzic(Z,Y),

kobieta(Y),

X \= Y.

wnuczka(X,Y) :-

rodzic(X,Z),

rodzic(Z,Y),

kobieta(Y).

prawnuk(X,Y) :-

rodzic(X,Z),

rodzic(Z,Q),

rodzic(Q,Y),

mezczyzna(Y).

siostra(Y,X) :-

rodzic(Z,X),

rodzic(Z,Y),

kobieta(Y),

X \= Y.

potomek(X,Y) :-

rodzic(Y,X).

potomek(X,Y) :-

rodzic(Y,Z),

potomek(X,Z).

potomkowie(X) :-

rodzic(X,Y),

potomkowie(Y),

write(Y), nl, fail.

potomkowie(_) :- !.

potomek(X,Y) :-

rodzic(Y,X).

potomek(X,Y) :-

rodzic(Y,Z),

potomek(X,Z).

potomkowie(X) :-

rodzic(X,Y),

potomkowie(Y),

write(Y), nl, fail.

potomkowie(_) :- !.

rodzice(X) :-

rodzic(Y, X),

mezczyzna(Y),

rodzic(Z, X),

kobieta(Z), !,

write('ojciec: '),

write(Y), nl,

write('matka: '),

TRÓJMIAN

delta(A, B, C, D) :-

D is (B * B) - (4 * A * C).

trojmian(A, B, C, X) :-

delta(A, B, C, D),

D>0,

X1 is (-B -D) / (2 * A),

X2 is (-B +D) / (2 * A),

X = [X1,X2], !.

rodzice(X) :-

rodzic(Y, X),

mezczyzna(Y),

rodzic(Z, X),

kobieta(Z), !,

write('ojciec: '),

write(Y), nl,

write('matka: '),

TRÓJMIAN

delta(A, B, C, D) :-

D is (B * B) - (4 * A * C).

trojmian(A, B, C, X) :-

delta(A, B, C, D),

D>0,

X1 is (-B -D) / (2 * A),

X2 is (-B +D) / (2 * A),

X = [X1,X2], !.

rodzice(X) :-

rodzic(Y, X),

mezczyzna(Y), !,

write('ojciec: '),

rodzice(X) :-

rodzic(Y, X),

mezczyzna(Y), !,

write('ojciec: '),

write(Y).

trojmian(A, B, C, X) :-

delta(A, B, C, D),

D=0,

X is (-B) / (2 * A), !.

write(Y).

trojmian(A, B, C, X) :-

delta(A, B, C, D),

D=0,

X is (-B) / (2 * A), !.

rodzice(X) :-

rodzic(Z, X),

kobieta(Z), !,

write('matka: '),

rodzice(X) :-

rodzic(Z, X),

kobieta(Z), !,

write('matka: '),

write(Z).

trojmian(A, B, C, _) :-

delta(A, B, C, D),

D<0,

write('Brak rozwiazan'), !.

write(Z).

trojmian(A, B, C, _) :-

delta(A, B, C, D),

D<0,

write('Brak rozwiazan'), !.

rodzice(_) :-

write('brak danych').

rodzice(_) :-

write('brak danych').

Dynamiczna tablica 100 elementowa w C

float *wsk;

wsk=(float*)malloc(100*sizeof(float));

free(wsk);

Dynamiczna tablica 100 elementowa w C++

float *wsk;

wsk=new float[100];

delete [] wsk;

Dynamiczna tablica 100 elementowa w C

float *wsk;

wsk=(float*)malloc(100*sizeof(float));

free(wsk);

Dynamiczna tablica 100 elementowa w C++

float *wsk;

wsk=new float[100];

delete [] wsk;

drop (_,[],[]):- !.

drop(0, [H|T1], [H|T1]):- !.

drop(X,[H|T1], T2):-

X1 is X-1,

drop(X1, T1, T2).

drop (_,[],[]):- !.

drop(0, [H|T1], [H|T1]):- !.

drop(X,[H|T1], T2):-

X1 is X-1,

drop(X1, T1, T2).

write(Z).

write(Z).

444501599.145.png

444501599.156.png

444501599.167.png

444501599.178.png

444501599.001.png

444501599.012.png

444501599.023.png

444501599.034.png

444501599.045.png

444501599.056.png

444501599.067.png

444501599.078.png

444501599.089.png

444501599.100.png

444501599.105.png

444501599.106.png

444501599.107.png

444501599.108.png

444501599.109.png

444501599.110.png

444501599.111.png

444501599.112.png

444501599.113.png

444501599.114.png

444501599.115.png

444501599.116.png

444501599.117.png

444501599.118.png

444501599.119.png

444501599.120.png

444501599.121.png

444501599.122.png

444501599.123.png

444501599.124.png

444501599.125.png

444501599.126.png

444501599.127.png

444501599.128.png

444501599.129.png

444501599.130.png

444501599.131.png

444501599.132.png

444501599.133.png

444501599.134.png

444501599.135.png

444501599.136.png

444501599.137.png

444501599.138.png

444501599.139.png

444501599.140.png

444501599.141.png

444501599.142.png

444501599.143.png

444501599.144.png

444501599.146.png

444501599.147.png

444501599.148.png

444501599.149.png

444501599.150.png

444501599.151.png

444501599.152.png

444501599.153.png

444501599.154.png

444501599.155.png

444501599.157.png

444501599.158.png

444501599.159.png

444501599.160.png

444501599.161.png

444501599.162.png

444501599.163.png

444501599.164.png

444501599.165.png

444501599.166.png

444501599.168.png

444501599.169.png

444501599.170.png

444501599.171.png

444501599.172.png

444501599.173.png

444501599.174.png

444501599.175.png

444501599.176.png

444501599.177.png

444501599.179.png

444501599.180.png

444501599.181.png

444501599.182.png

444501599.183.png

444501599.184.png

444501599.185.png

444501599.186.png

444501599.187.png

444501599.188.png

444501599.002.png

444501599.003.png

444501599.004.png

444501599.005.png

444501599.006.png

444501599.007.png

444501599.008.png

444501599.009.png

444501599.010.png

444501599.011.png

444501599.013.png

444501599.014.png

444501599.015.png

444501599.016.png

444501599.017.png

444501599.018.png

444501599.019.png

444501599.020.png

444501599.021.png

444501599.022.png

444501599.024.png

444501599.025.png

444501599.026.png

444501599.027.png

444501599.028.png

444501599.029.png

444501599.030.png

444501599.031.png

444501599.032.png

444501599.033.png

444501599.035.png

444501599.036.png

444501599.037.png

444501599.038.png

444501599.039.png

444501599.040.png

444501599.041.png

444501599.042.png

444501599.043.png

444501599.044.png

444501599.046.png

444501599.047.png

444501599.048.png

444501599.049.png

444501599.050.png

444501599.051.png

444501599.052.png

444501599.053.png

444501599.054.png

444501599.055.png

444501599.057.png

444501599.058.png

444501599.059.png

444501599.060.png

444501599.061.png

444501599.062.png

444501599.063.png

444501599.064.png

444501599.065.png

444501599.066.png

444501599.068.png

444501599.069.png

444501599.070.png

444501599.071.png

444501599.072.png

444501599.073.png

444501599.074.png

444501599.075.png

444501599.076.png

444501599.077.png

444501599.079.png

444501599.080.png

444501599.081.png

444501599.082.png

444501599.083.png

444501599.084.png

444501599.085.png

444501599.086.png

444501599.087.png

444501599.088.png

444501599.090.png

444501599.091.png

444501599.092.png

444501599.093.png

444501599.094.png

444501599.095.png

444501599.096.png

444501599.097.png

444501599.098.png

444501599.099.png

444501599.101.png

444501599.102.png

444501599.103.png

444501599.104.png

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika:

Zgłoś jeśli naruszono regulamin