“互联网基础迷”(1995)

----基本互联网迷B B A S I C=。A S S I C C of PECO Software BbbA A SS I CCCC----查询\支持：[email protected]文章：[email protected]简介：这是承诺的第一版基本因特网爱好者。我希望你会发现它在某种程度上是有用的，因为Fazine的目的是让基本程序员了解技术、书籍、其他人的基本诀窍等等。如果您对本书迷有任何意见，请通过电子邮件发送到电子邮件地址above.----内容页。----。-内容：第一节)-[主要文章]|+-i)诺克斯出版社-'；QBASIC旋转指南'；|+-ii)乒乓球游戏源码第二部分)-[教学专区]|+-i)屏幕模式13和您可以做些什么|+-ii)编程SB卡第三部分)-[您的呐喊！]|+-i)问答|+-ii)讨论：PowerBasic或QBasic|+-iii)您的程序第四部分)--[关于Fazine的详细信息]|+。--i)您如何投稿？|+-ii)您如何联系作者？|+-iii)点数|+-iv)最后一句话+Next month++++-。-第一节---。。-第一部分第一部分(QBASIC旋转指南)--。-在我们编写涉及堆栈的程序之前，我们必须首先决定我们应该使用哪些QBasic工具。我将用来实现它。因为我们可以使用数组非常直接地操作元素，所以这可能是我们做出的最佳选择。但是，我们现在只能拥有一个有界堆栈，因为数组的维数将限制堆栈的深度。让我们看看堆栈是如何运行的。如果堆栈为空，则函数EmptyStack的值为True，否则为False。函数OutStack从堆栈中弹出一个元素并获取其值。过程InStack(X)将元素x推送到堆栈上。分配包含100个元素的数组堆栈来保存堆栈的元素。下面是我们关于有界堆栈的示例：程序***'；*有界堆栈的演示*'；***'；程序首先将NS个顺序自然数推入堆栈，然后将OS编号从堆栈推送到屏幕上(NS和OS由用户定义)。DECLARE函数EmptyStack！()DECLARE函数EmptyStack！()DECLARE SUB INSTACK(X！)DECLARE Function OutStack！()Dim Shared DeepStack，TopStackCONST True=-1CONST False=Not True'；*堆栈初始化*Deepstack=100'；定义堆栈的深度DIM共享堆栈(Deepstack)'；定义堆栈的数组TopStack=0'；*堆栈操作演示*CLSPRINT"；演示有界堆栈"；打印"；(堆栈'；的深度-100)"；PRINTINPUT"；要压入堆栈的元素数？"；；NS'；*填充堆栈*For I=1 to NS调用InStack(I)下一个I'；*从堆栈中弹出元素*输入"；要从堆栈中弹出的元素数？"；，OSFOR I=1到操作系统如果不是EmptyStack，则X=OutStack Print X；Else Print：Print"；Stack为空！"；Print I；"；-第元素无法检索。"；退出End IFNEXT IENDFunction EmptyStack如果TopStack=0，则EmptyStack=True，否则EmptyStack=False End IFEND FuncIONSUB InStack(X)如果TopStack=Deepstack，则打印"；错误：堆栈溢出！"；Stop Else TopStack=TopStack+1 Stack(TopStack)=X End IFEND SUBFunction OutStack如果TopStack=0，则打印"；错误：Stack为空！"；Stop Else OutStack=TopStack-1 End IFND Function Nop代码首先询问您元素的数量