用Pascal编程：已知一段移位密码的密文，用穷尽秘钥搜索解密。
pascal是一个多义词，所代表的意思分别是：
1、pascal指的是结构化编程语言：
Pascal的名称是为了纪念十七世纪法国著名哲学家和数学家Blaise Pascal而来的，它由瑞士Niklaus Wirth教授于六十年代末设计并创立的。
2、pasca指的是压力的国际标准单位：
pascal的中文名称叫做帕斯卡，是压强的国际标准单位，相当于每平方米一牛顿的力，符号为Pa。
3、pasca指的是GPU架构名称：
Pascal是英伟达公司于2016年推出的新一代GPU架构，用于接替上一代的Maxwell架构。基于Pascal架构的GPU将会使用16nm FinFET工艺、HBM2、NVLink 2.0等新技术。
扩展资料：
Pascal强调的结构化编程带来了非结构化语言如Fortran之流无法比拟的美和乐趣，Unix崇尚的小即是美、没有消息就是好消息。
Pascal语言可以被方便地用于描述各种算法与数据结构。尤其是对于程序设计的初学者，Pascal语言有益于培养良好的程序设计风格和习惯。
参考资料来源：百度百科—Pascal
参考资料来源：百度百科—pascal
参考资料来源：百度百科—pascal
帕斯卡矩阵
帕斯卡矩阵：由杨辉三角形表组成的矩阵称为帕斯卡(Pascal)矩阵。
杨辉三角形表是二次项 (x+y)^n 展开后的系数随自然数 n 的增大组成的一个三角形表。
如4阶帕斯卡矩阵为：
Pascal(4)=
[1 1 1 1
1 2 3 4
1 3 6 10
1 4 10 20]
pascal(n)是矩阵实验室（Matrix Laboratory）MATLAB中的命令，利用pascal（）命令可以在矩阵实验室中方便的得到任意阶帕斯卡矩阵。设A为帕斯卡矩阵，则在MATLAB命令窗口中输入A=pascal(n)，n为正整数，可得到阶数为n的帕斯卡矩阵。
原先编过一个，删掉了。现在重新编。
还是先讲一下移位密码的历史吧。
http://baike.baidu.com/view/1388034.htm
恺撒移位密码，古典密码中一个非常著名的例子，位移密钥k=3。
类似这种在丹布朗的小说中也有涉及（好像是《数字城堡》）。
现在，我们开始编程。
其实这就是一道简单题，而且只有25种可能情况。
先假定密文都是英文小写字母或空格。
代码中的k=1，就表示求密文中单个字母的下一个；k=2表示下两个。
M是一个字符串，用来存储密文。
var M:ansistring;
k,i,t:integer;
begin
readln(M);
for k:=1 to 25 do
begin
write('k=',k,' ');
for i:=1 to length(M) do
if M[i]=' ' then write(M[i])
else begin
t:=ord(M[i])+k;
if t>122 then dec(t,26);
write(chr(t));
end;
writeln;
end;
end.
经测试，可以通过，比如这个样例：
pascal中的编程,求!!!
答：program tz;var y:integer;procedure f1(yue:integer);var n,n1,n2,n3,i:integer;begin n1:=1;n2:=0;n3:=0;n:=n1+n2+n3;for i:=2 to yue do begin n3:=n3+n2;n2:=n1;n1:=n3;n:=n1+n2+n3;end;writeln(n);end;function f2(yue:integer):integer;begin if (yue=1) or (...
Pascal编程求急
答：c,i:longint;begin a:=1; //上上个月 b:=2; //上个月 for i:=3 to 12 do begin c:=a+b; //求得本月兔子数 a:=b; //上个月变成了上上个月 b:=c; //本月变成了山个月 end; //1月和 2月已知，循环十次后本月即为十二月 writeln(c); //输出本月兔子数 end....
用PASCAL IF语句编程:S代表剪刀,R代表石头,P代表布,输出赢家,请高手指 ...
答：var a,b:integer;begin randomize;a:=random(3);b:=random(3);if a=0 then if b=1 then write('B win')else if b=0 then write('Again')else write('A win')else if a=1 then if b=0 then write('A win')else if b=1 then write('Again')else write('B win')else if ...
pascal编程(高手速度,50分悬赏)
答：program eightqueen;var x:array[1..8] of integer;y:array[1..8,1..8]of boolean;a,b,c:array[-7..16] of boolean;i,count:integer;procedure print;{输出棋盘} var k,j:integer;begin for k:=1 to 8 do begin for j:=1 to 8 do y[k,j]:=false; end;for k:=1 to 8 ...
Pascal编程题目 我要程序。 很急很急很急。
答：varm,n,i,j,k,x:integer;a:array[1..10000] of real;t:real;beginm:=4; n:=4;k:=0;for i:=2 to m do beginfor j:=2 to n do begininc(k);a[k]:=(i-1)/(j-1);end;end;for i:=1 to k-1 dofor j:=i+1 to k do if a[i]>a[j] then begin t:=a[i];...
用Pascal编程(指针来做)
答：楼上没看清要求，要用指针做。我的程序是：type link=^node;node=record data:char;next:link;end;var f:link;procedure qb(var head:link);var p,q:link;n:integer;begin n:=0;new(p);p^.data:='0';n:=n+1;head:=p;q:=p;while n<10 do begin new(p);q^.next:=p;p^....
PASCAL语言编程:一个炊事员上街采购,用500元买了90只鸡,其中母鸡一只15...
答：Rem PASCAL语言编程：一个炊事员上街采购，用500元买了90只鸡，其中母鸡一只15元，公 Rem x=15 y=20 Rem 因为我不会PASCAL故用vb编的,我只是说明这种方法 Private Sub Command1_Click()x = 15 '这个是母鸡的单价 y = 5 '这个是公鸡的单价 我计算过了这只有五才符合 For i = 1 To 90 '...
编程序(用Pascal)
答：1. s:=0;while not eof do begin read(a);if a<0 then inc(s,a);if a=0 then break;end;writeln(s);2. fillchar(p,sizeof(p),0);while not eof do begin read(ch);case ch of 'a': inc(p[1]);'b': inc(p[2]);'c': inc(p[3]);'d': inc(p[4]);end...
pascal编程
答：你题目表意不清，直接给最后一句话就好了，提问要简洁。按照：可以同时找出最大数和最小数位置，然后求两者之间的间隔。写：var v : array [1..100] of integer; i, n : integer; max, min, maxi, mini : integer;begin read(n); { 数据有n个 } max := -1; min :...
用pascal编程
答：program ex;var ch:char;t,t1:integer;begin t:=0;t1:=0;read(ch);while ch<>'?' do begin if (ord(ch)>=97)and(ord(ch)<=122) then t:=t+1;if (ord(ch)>=48)and(ord(ch)<=57) then t1:=t1+1;read(ch);end;writeln;writeln(t,' ',t1);end.编程求下式中n的最大...
