Pseudo code ให้มาดังนี้

Start
        Read high
        Read radius
        Volume = 3.14 x radius x high
        Write Volume
End


Qbasic ที่ผมลองทำดังนี้ หากต้องเปลี่ยนไรช่วยบอกหน่อยครับ


Cls
     Input"high"; high$
     Input"radius"; radius$
     Volume = 3.14 * radius * high
     Print "Volume"
End

หากผิดพลาดรบกวนบอกจุดที่ผิดพลาดแล้วเราควรแก้ไขยังไงด้วยครับ จะเอาไปปรับปรุง ขอบคุณครับ