Function obwProstokata(a As Integer, b As Integer) As Integer obwProstokata = (2 * a) + (2 * b) End Function Function obwTrojkata(a As Integer, b As Integer, c As Integer) As Integer obwTrojkata = a + b + c End Function Function obwKola(a As Integer) As Integer obwKola = 2 * 3.1415 * a End Function Function obwTrapezu(a As Integer, b As Integer, c As Integer, d As Integer) As Integer obwTrapezu = a + b + c + d End Function Function polProstokata(a As Integer, b As Integer) As Integer polProstokata = a * b End Function Function polTrojkata(a As Integer, b As Integer) As Integer polTrojkata = 0.5 * a * b End Function Function polKola(a As Integer) As Integer polKola = 3.1415 * Sqr(a) <----to nie dziaƂa chyba End Function Function polTrapezu(a As Integer, b As Integer, c As Integer, d As Integer) As Integer polTrapezu = ((a + b) + h) / 2 End Function