Algorytmy

Algorytmy (w Pascalu)

Umieszczone są tu algorytmy o napisanie których prosiliście mnie w listach.
Prawie wszystkie algorytmy tutaj (oprócz jednego) są moje
i są w orginalnym stanie w jakim je odesłałem, w odpowiedziach na listy.
PS. do nauczycieli..to że ja je tak napisałem nie oznacza,
że ktoś nie mógł przyjąć podobnego toku myślenia!!

5 algorytmow do liczb:
1-liczba pierwsza 2-liczba doskonala 3-liczby doskonale 1-1000
4-wspolne dzielniki 2 liczb 5-liczby Amstronga

Wyświetlanie kalendarza (wybrany miesiąc) na XX i XXI wiek

1-Maxymalna wartość sposrod 4-liczb
2- Określenie znaku (-/+) 3-liczb
3- Określenie odleglości 3 punktów względem siebie i max odleglość
4- Określenie ile z 4 podanych liczb jest >100 lub <0

Algorytm ma za zadanie znaleźć wszystkie możliwe kombinacje
złożone z 8 liter podanych na początku(w tabeli zn-array)

Wczytuje liczbę od użytkownika i podaje czy jest to liczba pierwsza czy nie.
(podaje też jej pierwszy znaleziony dzielnik, w drugim przypadku)

Konwertuje z systemu liczbowego dziesiętnego na dowolny wybrany (nie mój algorytm)
i z szesnastkowego na dziesiętny (mój algorytm :)

--------------------------------------------- ------------------------------------------ ----------------------------------------- ---------------------------------------------------- --------------------------------------------- -------------------------------------------- -------------------------