Основи на програмирането 2007/2008

1.Задача: Да се напише функция с един параметър, която пресмята лицето на кръг.
Примерно решение на задачата:
lice :: Float -> Float
lice r = r * r * 3.14

2.Задача: Да се намери по голямото от две числа без да се използва условен оператор.
Примерно решение на задачата:
myMax :: Float -> Float -> Float
myMax x y = ( abs(x - y) + x + y ) / 2

3.Задача: Да се намери най-голямото от три числа.
Примерно решение на задачата:
myMax3 :: Float -> Float -> Float -> Float
myMax3 x y z = myMax ( myMax x y ) z

4.Задача: Да се намери средната скорост, ако е дадена скороста при отиване и скоростта при връщане по пътя.
Упътване: Използваме следната формула:
average speed &=& \frac{full distance}{full time}

avgSpeed :: Float -> Float -> Float
avgSpeed v1 v2 = 2 / ( 1 / v1 + 1 / v2)