importera math

definiera minfunktion(x)

låt a vara under integrationsgräns
låt b vara övre integrationsgräns
låt N vara antal delintervall

låt h vara (b-a)/N

låt s vara minfunktion(a) + minfunktion(b)

för i från 1 till N-1
    addera 2*minfunktion(a + h*i) till s

låt integral vara h*s/2

skriv ut integral