Pieni esimerkki piin arvon laskemisesta. Laitoin tämän nyt tänne, koska en nähnyt missään, että kukaan muukaan olisi tätä laittanut ja kaikki tuntuvat laittavan piin arvon aina kirjoittamalla epätarkan luvun CONST pii = 3.14159... tai miten se nyt meneekään... en muista.
DIM pii AS DOUBLE CONST pii = ATN(1) * 4 'ATN(1) * 4 on yhtä kuin pii. QBasic laskee piin tarkan arvon. DOUBLE lisää piin tarkkuuden kaksinkertaiseksi. CLS PRINT "Ilmoita ympyrän säde." INPUT ">", sade keha = sade * pii PRINT "Ympyrän kehä on"; keha END 'Tässä voi olla virheitä, sillä kirjoitin tämän vain suoraan testaamatta.
Aihe on jo aika vanha, joten et voi enää vastata siihen.