一、看程序写结果
1.
var ch:string;
  i:byte;
begin
　readln(ch);
　for i:=1 to ord(ch[0]) do
  write(ch[i]:2);
　writeln
end.
输入：My name is Tom.
output:
2.
var i:integer;
begin
　for i:=1 to 13 do write(chr(63+2*i):4);
　writeln;
　for i:=1 to 13 do write(chr(92-2*i):4);
　writeln
end.
输出：
3.
VAR A:CHAR;
BEGIN
　READLN(A);
　WRITELN('A:',A);
　WRITELN('SUCC(A):',SUCC(A));
　WRITELN('PRED(A):',PRED(A));
　WRITELN('ORD(A):',ORD(A));
　WRITELN('CHR(ORD(A)):',CHR(ORD(A)));
　WRITELN('CHR(ORD(A)+2):',CHR(ORD(A)+2));
vba计算字符串长度
END.
输入：e 
输出：
4.
var s:integer;
    ch:char;
  count:array['a'..'z'] of integer;
begin
　for ch:='a' to 'z' do count[ch]:=0;
  read(ch);
　while ch<>'!' do
　begin
  if (ch>='a')and(ch<='z') then
  　count[ch]:=count[ch]+1;
  read(ch)
　end;
　s:=0;
　for ch:='b' to 'z' do s:=s+count[ch];
　writeln(s)
end.
输入：We are proud OF OUR COUNTRY!　
输出：
　
5.
var a:array[1..100] of string[20];
  s:string;temp:string[20];
  i,j,k,n:integer;
begin
　readln(n);readln(s);i:=1;j:=0;k:=0;
　while i<=length(s) do
  if s[i] in ['0'..'9'] then
  begin
  　j:=1;
  　while s[i] in ['0'..'9'] do
  　begin
    temp[j]:=s[i];
    inc(j);inc(i)｛inc(i)相当于i:=i+1}
  　end;
  　temp[0]:=chr(j-1);
  　k:=k+1;
  　a[k]:=temp
  end
　 else
　while s[i]=' ' do inc(i);
　for i:=1 to n-1 do
  for j:=i+1 to n do
  　if (a[i]+a[j])<(a[j]+a[i]) then
    begin
    　temp:=a[i];a[i]:=a[j];
    　a[j]:=temp
  　 end;
　for i:=1 to n do write(a[i]);
　writeln
end.
输入：4
81　792　39　79
输出：
二、编写程序
1、读入一串字符，以句号结束，然后让其倒序输出。
如输入：I am a student.
输出：tneduts a ma I
2、读入一串数字，以句号结束，请统计其中‘0’到‘9’的各个数字的个数。
如输入：91254782354987012345978.　
输出：0:1 1:2 2:3 3:2 4:3 5:3 7:3 8:3 9:3
3、输入一段文章（255个字符以内），求文章中单词的个数（相同单词只记一次，The和the认为是同一个单词，只记一次）。
4、请编写一个程序，让它能够计算两个200位以内的整数的和。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。