В категория Код
Light Detection – разпознаване на светлина
Публикувано от Ivelin Pavlov в Arduino Код, Код на 09.04.2012
Програма на Ардуино, за разпознаване на светлина -Когато се закрие светлината или стане тъмно – постепенно лампичката светва. При светлина отново постепенно загасва лампичката. По този начин може да направите вечна светлина за вашата стая, с минимални разходи за ток. /* Ot Ivelin Svetlinen detektor Kogato stane tymno ili se zakrie svetlinata postepenno se svetla […]
Black & White (разпознавател)
Публикувано от Ivelin Pavlov в Arduino Код, Код на 09.04.2012
Програма на Ардуино, чрез която при показване на бяло свети една лампичка, а при черно – втора. Може да се използва като основа за по-големи проекти, като например за Преследвач на линия (Line follower). /* Ot Ivelin Prosta programa za razpoznavane na Cherno i Bqlo. Chasti: 1. 2 rezistora 220 2. 1 rezistor 10k 3. […]
Генератор за Prolog
Публикувано от Ivelin Pavlov в Prolog Код, Код на 06.04.2012
Генератор без повторения на всички числа z, които се представят във вида z = x^y за x,y > 1 естествени числа. div_while_possible(X, X):-!. div_while_possible(Z, X):-Z mod X =:= 0, Z1 is Z // X, div_while_possible(Z1, X). Да се напише генератор gen_list(+M,+N,-L) на всички строго растящи редици от естествени числа от M до N включително. Допуска […]
Задача на Пролог – генератори
Публикувано от Ivelin Pavlov в Prolog Код, Код на 06.04.2012
Дефиниция на ПРОЛОГ на предикат p(X,Y,N), който по дадени естествени числа X,Y връща в N: Вариант А броят на числата, които делят X, но не делят Y Вариант Б броят на общите делители на X и Y б) Да се напише генератор без повторения на множеството Вариант А { (x,y) | x>=1, y>=1 и броят […]
Prolog – Брой на кратни елементи в списък, сума на по-малки елементи в списък
Публикувано от Ivelin Pavlov в Prolog Код, Код на 06.04.2012
Дефиниция на ПРОЛОГ на предикат p(X,L,N), който по даден списък от естествени числа L и естествено число X връща в числото N: броят на тези елементи на L, които са кратни на X p(X,[],0). p(X,[Y|L],N):-Y mod X =:= 0, p(X,L,N1), N is N1+1. p(X,[Y|L],N):-Y mod X > 0, p(X,L,N). %?-p(4,[1,4,6,16,9,4],X),write(X),nl. сумата на тези елементи на […]