切换到宽版
  • 22124阅读
  • 31回复

Free Pascal 和 Turbo Pascal 的主要区别 [复制链接]

上一主题 下一主题
离线yingxiong
只看该作者 30 发表于: 2007-06-29
请看看题解:
program v1318(input,output);
const maxn=26;
var i,j,k,s,t,w:integer;
   a:array[1..maxn] of integer;
   ch:char;
begin
read(s,t,w);
readln;
for i:=1 to w do begin
  read(ch);
  a:=ord(ch)-ord('a')+1;
end;
for i:=1 to 5 do begin
k:=w;
while a[k]+1>t+k-w do dec(k);
inc(a[k]);
for j:=k+1 to w do a[j]:=a[j-1]+1;
for j:=1 to w do begin
ch:=chr(ord('a')-1+a[j]);
write(ch);
end;
writeln;
end;
end.
离线haiwei
只看该作者 31 发表于: 2007-07-12
谢谢!!!!!!!!!!!!!!!!!!!!!!!!1
haiwei
http://user.qzone.qq.com/317048955
快速回复
限100 字节
 
上一个 下一个