open System
//-------- ZAD 2 --------------------------------------------------------
//printf "Podaj swoje imie: "
//let a = Console.ReadLine();
//printf "Podaj swoje nazwisko: "
//let b = Console.ReadLine();
//Console.WriteLine("Twoje imie i nazwisko to: " + a + " " + b)
//Console.ReadKey() |> ignore

//------- ZAD 3 ---------------------------------------------------------
//printf "Podaj promien walca: "
//let odczytPromienia = Console.ReadLine()
//let promien = float odczytPromienia

//printf "Podaj długosć walca: "
//let odczytDlugosci = Console.ReadLine()
//let dlugosc = float odczytDlugosci

//let obliczanieObjetosci radius length : float =
//    let pi = 3.14
//    length * pi * (radius * radius)
//let a = obliczanieObjetosci promien dlugosc
//Console.Write("Objętosć: ")
//Console.WriteLine(a)
//Console.ReadKey() |> ignore

//------- ZAD 4 ---------------------------------------------------------
let obliczaniePolaKwadratu bok : float =
    bok*bok

let obliczanieObjetosciKwadratu bok wysokosc : float =
    bok*bok*wysokosc

let obliczaniePolaProstokata bok1 bok2 : float =
    bok1*bok2

let obliczanieObjetosciProstokata bok1 bok2 bok3 :float =
    bok1*bok2*bok3

//---------- ZAD 5 ----------------------------------------------------------
let obliczanieWartosciWielomianu x y : float =
    (-5.0 * (y**4.0)) + ((1.0/3.0)*x**2.0) + (3.0*y) - 7.0
let test = obliczanieWartosciWielomianu 1.0 1.0
Console.WriteLine(test)
Console.ReadKey() |> ignore

//let liczba = 2
//let funkcja1 x = x + 1
//let funkcja2 x = x * 2
//let wynik = (funkcja2 >> funkcja1) liczba
//printfn "%d" wynik
//let wynik2 = liczba |> funkcja2 |> funkcja1
//printfn "%d" wynik2
//Console.ReadKey() |> ignore
//--------- ZAD 6 -------------------------------------------------------------
//let rec funkcja n a q =
//    if n < 1 then a
//    else funkcja (n-1) a q * q

//let a = funkcja 4 1 2
//Console.WriteLine(a);
//Console.ReadKey() |> ignor