pascal言语字符串后果

2020-04-09 今日热点 阅读

  确实很奇异,我试验的结果是字符串变量假设先初始化一下,则应用下标可以正常读写字符串变量。

  var

  name1,name2:string[15];

  i,s:integer;

  begin

  read(name1);

  name2:=' ';//此处对name2先初始化为4个空格。

  s:=length(name1);

  for i:=s downto 1 do name2[s-i+1]:=name1[i];

  writeln(name2);

  end.

  依次运转时,输入abcd,输入为dcba.但如输入abcdef,则只能输入fedc.即依次只能“填满”初始化时所开拓的空间长度。

  但令人困惑的是,假设应用下标读取name2字符串变量的每位,又能显示出来:

  for i:=1 to 6 do write(name2[i]);

  输入时假设如许的话,输入abcdef,可以输入fedcba.说明name2[1]到name2[6]里都有器械,但name2里只要fedc.百思不得其解!

  把 name2[s-i+1]:=name1[i] 改成 name2:=name2+name1[i] 就OK了

  1.program sdf; var a:string;     squyci,j:longint; begin readln(a); while a<>'#' do begin s:=0; j:=0; for i:=1 to length(a) do if a[i] in ['0'..'9'] then j:=j*10+ord(a[i])-ord('0')                       else begin                       s:=s+j;                       j:=0;                       end; s:=s+j; writeln(s); readln(a); end;end.其他的想要答案发音讯给我adfj我现在没时间

  自己想,别剽窃。

标签: