algorytm na pi wersja 0.0.1-alfa

Algorytm zmiany ułamka dziesiętnego na licznik i mianownik ułamka zwykłego. (Wykorzystany słowny zapis działania oraz operatory matematyczne)

______________

podaj liczba;

jeśli liczba jest liczbą to:
    calosc := zaokrąglij do dołu liczba;
    ulamek := liczba - calosc;

    jeśli ulamek != 0 to:
        postac_tekstowa := zamień_na_tekst(ulamek);
        dlugosc := długość(postac_tekstowa);
        n := dlugosc - 2;

        mianownik := 10 do potęgi n;
        licznik := ulamek * mianownik;

        a := licznik;
        b := mianownik;

        dopóki (b != 0):
            c := a % b;
            a := b;
            b := c;
        nwd := a;

        jeśli nwd != 0 to:
            licznik := licznik / nwd;
            mianownik := mianownik / nwd;

        licznik := licznik + (calosc * mianownik);

        wyświetl: licznik "/" mianownik;

    w przeciwnym razie:
        wyświetl: "Podana wartość nie jest ułamkiem dziesiętnym.";

w przeciwnym razie:
    wyświetl: "Podana wartość nie jest liczbą.";

______________

SPRAWDZENIE 1:

liczba = 2.25;

calosc == 2;
ulamek == 0.25;
postac_tekstowa == "0.25";
dlugosc == 4;
n == 2;
mianownik == 100;
licznik == 25;
nwd == 25;
licznik == 1;
mianownik == 4;
licznik == 9;

wyświetla "9/4"
______________

SPRAWDZENIE 2:

Jeśli podana liczba jest tekstem.
liczba = "0.234";

wyświetla: Podana wartość nie jest liczbą.

______________

SPRAWDZENIE 3:

Jeśli podana liczba jest liczbą całkowitą.
liczba = 2;

wyświetla: Podana wartość nie jest ułamkiem dziesiętnym.