小型Basic编译器问题
# include <stdio.h>
# include <string.h>
# include <ctype.h>
# include <stdlib.h>
# include <map>
//使用map解决一对一 的关系
using namespace std;
map<char,long> mapdata; //数据存储
typedef struct node
{
long num;
char ch1[20];
char ch2[20];
}LINK;
LINK arry[101]; //存储已定义的变量
struct data
{
char st[100];
int top;
}p; int main()
{
long a,i=0,length,temp;
char str1[20],str2[20];
char ch;
long k,t;
char temp1[20]; //数据输入
while(scanf("%ld",&a) != EOF)
{ arry[i].num=a;
scanf("%s",&str1);
strcpy(arry[i].ch1,str1);
if(strcmp(str1,"STOP") != 0)
{
scanf("%s",&str2);
strcpy(arry[i].ch2,str2);
}
i++;
} //inital
length=i;
p.top=0; //对每一条语句顺序执行
for(i=0;i<=length;)
{
temp=0; //标记变量有没有定义 //LET语句
if(strcmp(arry[i].ch1,"LET") == 0)
{ ch=arry[i].ch2[0]; //取得变量
for(k=0;k<p.top;k++)
{
if(p.st[k]==ch)
{
temp=1; //变量已定义
if(isdigit(arry[i].ch2[2]) || arry[i].ch2[2]=='-')//如果第单个是数字,则说明是常量。
{
for(t=0;t<strlen(arry[i].ch2)-2;t++)
temp1[t]=arry[i].ch2[t+2];
temp1[t]='\0'; mapdata[arry[i].ch2[0]]=atoi(temp1);
}
else
{
if(arry[i].ch2[3] == '+')
{
mapdata[arry[i].ch2[0]]=mapdata[arry[i].ch2[2]]+mapdata[arry[i].ch2[4]];
}
if(arry[i].ch2[3] == '>')
{
if(mapdata[arry[i].ch2[2]] > mapdata[arry[i].ch2[4]])
mapdata[arry[i].ch2[0]]=1;
else
mapdata[arry[i].ch2[0]]=0;
}
break;
}
} } if(temp == 0) //变量未定义
{
if(isdigit(arry[i].ch2[2]) || arry[i].ch2[2]=='-')//如果第单个是数字,则说明是常量。
{
p.st[p.top++]=arry[i].ch2[0]; for(t=0;t<strlen(arry[i].ch2)-2;t++)
temp1[t]=arry[i].ch2[t+2];
temp1[t]='\0'; mapdata[arry[i].ch2[0]]=atoi(temp1); }
else
{
p.st[p.top++]=arry[i].ch2[0];
if(arry[i].ch2[3] == '+')
{
mapdata[arry[i].ch2[0]]=mapdata[arry[i].ch2[2]]+mapdata[arry[i].ch2[4]];
}
else if(arry[i].ch2[3] == '>')
{
if(mapdata[arry[i].ch2[2]] > mapdata[arry[i].ch2[4]])
mapdata[arry[i].ch2[0]]=1;
else
mapdata[arry[i].ch2[0]]=0;
} }
}
i++;
} //PRINT语句
if(strcmp(arry[i].ch1,"PRINT") == 0)
{
printf("%c=%d\n",arry[i].ch2[0],mapdata[arry[i].ch2[0]]);
i++;
} //IF语句
if(strcmp(arry[i].ch1,"IF") == 0)
{
if(mapdata[arry[i].ch2[0]] <= mapdata[arry[i].ch2[2]])
i++;
i++;
} //GOTO语句
if(strcmp(arry[i].ch1,"GOTO") == 0)
{
int b;
b=atol(arry[i].ch2);
i=b-1;
} //STOP语句
if(strcmp(arry[i].ch1,"STOP") == 0)
break;
} /*
//测试是否输入成功
for(i=0;i<=length;i++)
{
printf("%d %s %s\n",arry[i].num,arry[i].ch1,arry[i].ch2);
}
*/
return 0;
}
小型Basic编译器问题的更多相关文章
- DotNet 资源大全中文版,内容包括:编译器、压缩、应用框架、应用模板、加密、数据库、反编译、IDE、日志、风格指南等
DotNet 资源大全中文版 我想很多程序员应该记得 GitHub 上有一个 Awesome - XXX 系列的资源整理.awesome-dotnet 是由 quozd 发起和维护.内容包括:编译器. ...
- 【转】自己动手写SC语言编译器
自序 编译原理与技术的一整套理论在整个计算机科学领域占有相当重要的地位,学习它对程序设计人员有很大的帮助.我们考究历史会发现那些人人称颂的程序设 计大师都是编译领域的高手,像写出BASIC语言的BIL ...
- .NET 编译器(”Roslyn“)介绍
介绍 一般来说,编译器是一个黑箱,源代码从一端进入,然后箱子中发生一些奇妙的变化,最后从另一端出来目标文件或程序集.编译器施展它们的魔法,它们必须对所处理的代码进行深入的理解,不过相关知识不是每个人都 ...
- 微软宣布成立.NET基金会全面支持开源项目 包括C#编译器Roslyn【转】
基金会初始董事包括 Mono 项目和 Xamarin 的老大 Miguel de Icaza,微软 .NET 团队代表和微软开放技术公司(这是微软专门为开源和开放技术.标准化成立的独立公司)代表. 首 ...
- 揭示编译器API
编译器管道功能区 .NET编译器平台(“Roslyn”)通过提供一个API层,是一个传统编译器管道镜像,向你这样的消费者揭示了C#和Visual Basic编译器的代码分析. 这条管道的每一部分,现在 ...
- DotNet 资源大全
awesome-dotnet 是由 quozd 发起和维护.内容包括:编译器.压缩.应用框架.应用模板.加密.数据库.反编译.IDE.日志.风格指南等. https://github.com/jobb ...
- 《.NET开发资源大全》
目录 API 应用框架(Application Frameworks) 应用模板(Application Templates) 人工智能(Artificial Intelligence) 程序集处理( ...
- 转帖:DotNet 资源大全中文版
(注:下面用 [$] 标注的表示收费工具,但部分收费工具针对开源软件的开发/部署/托管是免费的) API 框架 NancyFx:轻量.用于构建 HTTP 基础服务的非正式(low-ceremony)框 ...
- .Net 开源项目资源大全
伯乐在线已在 GitHub 上发起「DotNet 资源大全中文版」的整理.欢迎扩散.欢迎加入. https://github.com/jobbole/awesome-dotnet-cn (注:下面用 ...
随机推荐
- SICP练习1.6的解答
cond和if有着同样的效果,为啥用cond实现的new-if不能用于一些函数? 我自己没想明白,在网上搜集了一下答案,部分解答觉得有道理,整理如下: 解答1: if和cond都是特定的求值顺序, 即 ...
- 在C#中使用科大讯飞Web API进行语音合成
最近工作中需要用到讯飞语音合成接口,网上看了下基本都是Java,PHP,Python版本的,正好补上C# 版本,代码比较简单. 首先在讯飞开放平台上创建一个WebApi项目,取到APPID与APIK ...
- SQLServer备份恢复助手(太强大了!)
下载地址: http://download.csdn.net/detail/gguozhenqian/8105779
- day07-ip地址管理
1. ip地址由网络地址位与主机地址位两部分构成. 如:172.16.45.10/16中网路地址为172.16.0.0.主机地址为172.16.45.10. 2. 查看系统网卡信息:ifconfig: ...
- PHP的Composer 与 Packagist,简单入门
[转]http://www.php.cn/manual/view/34000.html Composer 是一个 杰出 的依赖管理器.在 composer.json 文件中列出你项目所需的依赖包,加上 ...
- loj #6046. 「雅礼集训 2017 Day8」爷
#6046. 「雅礼集训 2017 Day8」爷 题目描述 如果你对山口丁和 G&P 没有兴趣,可以无视题目背景,因为你估计看不懂 …… 在第 63 回战车道全国高中生大赛中,军神西住美穗带领 ...
- 51nod1228 序列求和(伯努利数)
题面 传送门 题解 \(O(n^2)\)预处理伯努利数 不知道伯努利数是什么的可以看看这篇文章 不过这个数据范围拉格朗日差值应该也没问题--吧--大概-- //minamoto #include< ...
- webstorm激活服务器地址
2017.1.4版本可用 http://idea.imsxm.com/
- mac 添加环境变量
1.Mac系统的环境变量,加载顺序为: a. /etc/profile b. /etc/paths c. ~/.bash_profile d. ~/.bash_login e. ~/.profile ...
- R语言学习笔记(四)
6. 数据转换 本章主要讲述apply系列函数:apply.lapply.sapply.tapply.mapply,以及姊妹函数by.split.适用于批量处理数据,而不许循环. 6.1 向量分组 用 ...