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

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

　　/'u/':
　　begin
　　EndC := StartC + g * (Ca + Ce + Ci + Co + Cu);
　　StartC := StartC + g * (Ca + Ce + Ci + Co);
　　end;
　　else
　　begin
　　Showmessage(/' 输入的字符串有误 /');
　　exit;
　　end;
　　end;
　　end;
　　end;
　　procedure NemuricalToStr(var s: String; var StartC, EndC: Extended);
　　{将数值转换为字符串}
　　const eps = -1e-5;
　　begin
　　if StartC-0.2 < -eps then
　　if (EndC- 0.2<= -eps) and (EndC > StartC) then
　　begin
　　StartC := StartC / 0.2;
　　EndC := EndC / 0.2;
　　s := s + /'a/';
　　if (StartC <>0) or (EndC <> 1) then
　　NemuricaltoStr(s,StartC,EndC);
　　end;
　　if (StartC- 0.2 >= eps) and (StartC-0.5 < -eps) then
　　if (EndC-0.5<= -eps) and (EndC>StartC) then
　　begin
　　StartC := StartC - 0.2;
　　EndC := EndC - 0.2;
　　StartC := StartC / 0.3;
　　EndC := EndC / 0.3;
　　s := s + /'e/';
　　if (StartC <>0) or (EndC <> 1) then
　　NemuricaltoStr(s,StartC,EndC);
　　end ;
　　if (StartC- 0.5>= eps) and (StartC- 0.7< -eps) then
　　if (EndC-0.7<= -eps) and (EndC>StartC) then
　　begin
　　StartC := StartC - 0.5;
　　EndC := EndC - 0.5;
　　StartC := StartC / 0.2;
　　EndC := EndC / 0.2;
　　s := s + /'i/';
　　if (StartC <>0) or (EndC <> 1) then
　　NemuricaltoStr(s,StartC,EndC);
　　end ;

视频学习

我考网版权与免责声明

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

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