REM  *****  BASIC  *****

function pii()
  pii=3.14159
end function

function ruuduPindala(kyljePikkus)
  ruuduPindala=kyljePikkus*kyljePikkus
end function

function kuubiRuumala(kyljePikkus)
  kuubiRuumala=kyljepikkus^3
end function

function ristkylikuPindala(pikkus, laius)
  ristkylikuPindala=pikkus*laius
end function

'Pikkus ja laius meetrites
'Kulunorm kg/ruutmeetrile
'Vastus kilodes
function varvikulu(pikkus, laius, kulunorm)
  pindala=ristkylikuPindala(pikkus, laius)
  kulu=pindala*kulunorm
  varvikulu=kulu+0.1
end function

function pajuPyramiid(aluseLaius, pyramiidiKorgus, astmeteArv)
   astmeKorgus=pyramiidiKorgus/astmeteArv
   astmeMuutus=aluseLaius/astmeteArv
   astmeLaius=aluseLaius
   koguRuumala=0
   astmeNr=1
   while astmeNr<=astmeteArv
     kihiRuumala=astmeLaius*astmeLaius*astmeKorgus
     koguRuumala=koguRuumala+kihiRuumala
     astmeLaius=astmeLaius-astmeMuutus
     astmeNr=astmeNr+1
   wend
   pajuPyramiid=koguRuumala 'Vastuse väljastus funktsioonist
end function


function pajuPyramiid2(aluseLaius, pyramiidiKorgus, astmeteArv)
   if not isNumeric(aluseLaius) or not isNumeric(pyramiidiKorgus) _
        or not isNumeric(astmeteArv) then
          pajuPyramiid2="Sisend pole arv"
          exit function
   end if
   astmeKorgus=pyramiidiKorgus/astmeteArv
   astmeMuutus=aluseLaius/astmeteArv
   astmeLaius=aluseLaius
   koguRuumala=0
   astmeNr=1
   while astmeNr<=astmeteArv
     kihiRuumala=astmeLaius*astmeLaius*astmeKorgus
     koguRuumala=koguRuumala+kihiRuumala
     astmeLaius=astmeLaius-astmeMuutus
     astmeNr=astmeNr+1
   wend
   pajuPyramiid2=koguRuumala 'Vastuse väljastus funktsioonist
end function