计算机二级DELPHI综合:算术编码算法

来源：计算机等级考试发布时间：2012-08-29 计算机等级考试视频评论

　　if (StartC-0.7 >= eps) and (StartC-0.9 < -eps) then
　　if (EndC-0.9<=-eps) and (EndC>StartC) then
　　begin
　　StartC := StartC - 0.7;
　　EndC := EndC - 0.7;
　　StartC := StartC / 0.2;
　　EndC := EndC / 0.2;
　　s := s + /'o/';
　　if (StartC <>0) or (EndC <> 1) then
　　NemuricaltoStr(s,StartC,EndC);
　　end ;
　　if (StartC -0.9>=eps) and (StartC-1 < -eps) then
　　if (EndC-1<= -eps) and (EndC>StartC) then
　　begin
　　StartC := StartC - 0.9;
　　EndC := EndC - 0.9;
　　StartC := StartC / 0.1;
　　EndC := EndC / 0.1;
　　s := s + /'u/';
　　if (StartC <>0) or (EndC <> 1) then
　　NemuricaltoStr(s,StartC,EndC);
　　end;
　　end;
　　procedure TForm1.Button1Click(Sender: TObject);
　　begin
　　s := Edit1.Text;
　　ConvertTo(s,StartC,EndC);
　　Edit2.Text := FloattoStr(StartC);
　　Edit3.Text := FloattoStr(EndC);
　　end;
　　procedure TForm1.Button2Click(Sender: TObject);
　　begin
　　s := /'/';
　　StartC := StrToFloat(Edit2.Text);
　　EndC := StrtoFloat(Edit3.Text);
　　NemuricalToStr(s,StartC,Endc);
　　Edit1.Text := s;
　　end;
　　end.

　　编辑特别推荐:

　　全国计算机等级考试资料下载

　　全国计算机等级考试论坛

　　如何应付二级考试中的公共基础知识

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。