小型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 (注:下面用 ...
随机推荐
- TSQL--SET ANSI_NULLS OFF
当ANSI_NULLS 为ON时,遵循SQL92的标准,只能使用IS NULL 来判断值是否为NULL, 而不能使用=或<>来与NULL做比较,任何值包括NULL值与NULL值做=或< ...
- Sqlserver风格规范
常见的字段类型选择 1.字符类型建议采用varchar/nvarchar数据类型 2.金额货币建议采用money数据类型 3.科学计数建议采用numeric数据类型 4.自增长标识建议采用bigint ...
- IEnumerable、GetEnumerator、IEnumerator之间的关系。
了解了这些也就明白了遍历的原理,晚安. using System; using System.Collections; public class Person { public Person(stri ...
- JVM锁实现探究2:synchronized深探
本文来自网易云社区 作者:马进 这里我们来聊聊synchronized,以及wait(),notify()的实现原理. 在深入介绍synchronized原理之前,先介绍两种不同的锁实现. 一.阻塞锁 ...
- 个人JS体系整理(三)
一. 严格模式 JavaScript 严格模式(strict mode)即在严格的条件下运行.首先声明,严格模式是ES5中提出来的,准确来说就是一句指令Use strict,它的目的是指定代码在严格条 ...
- oracle 新增主键
alter table tablename add constraint pk_tablename primary key (column1,column2,...); 可以新增单主键或联合主键: 新 ...
- 并不能来一发50AC
本来想来一发50AC嗨一下 然后发现只有40+ 算了放弃了..
- kali linux之搜索引擎Shodan
搜索引擎: 公司新闻动态,重要雇员信息 机密文档/网络拓扑 用户名密码 目标系统软硬件技术架构 Shodan:搜索联网的设备(iot)https://www.shodan.io/ banner:htt ...
- [译文]Casperjs1.1.0参考文档-安装
安装 Casperjs能被安装在mac osx,windows 和大多数linux版本 依赖项 PhantomJS1.82及以上 Python2.6及以上(很多人忘了安装python导致安装失败) 1 ...
- 【洛谷2113】看球泡妹子 DP背包
看球泡妹子 题目背景 2014年巴西世界杯开幕了,现在满城皆是世界杯,商家们利用它大赚一笔,小明和小红也借此机会增进感情. 题目描述 本届世界杯共有\(N\)支球队,\(M\)场比赛.男球迷小明喜欢看 ...