高考问答蓝润棠湖春天质量问题:pascal问题,高手来!!!!!
来源：百度文库 编辑：高考问答 时间：2024/05/12 01:21:24
pascal密码翻译程序.如果从键盘上输入一段密码 “8@?=5895:85[phuqpu”，可显示出密码的翻译文本“1986、12、31、Tianjin”。翻译的算法是将密码的ASCLL移动一个距离。
function Translate(S: String): String;
var
S1: String;
n: Integer;
begin
S1 := '';
for n := 1 to Length(S) do S1 := S1 + Chr(Ord(S[n]) - 7);
Translate := S1;
end;
用这个函数就可以了. 如果你是学pascal的, 就不必给一个完整程序了吧
没有明白你的意思，请把你的问题再明确一下！