首页 > 试题广场 >

type p_char = ^char; var &nb

[填空题] 
type
  p_char = ^char;
var
  c1, c2 : char;
  p1, p2 : p_char;
procedure fun(a, b : p_char);
begin
  a := b;
  inc(a^);
end;
begin
  c1 := 'A';
  c2 := 'a';
  p1 := @c1;
  p2 := @c2;
  fun(p1, p2);
  writeln(c1, c2);
end.

输出：1
查看正确选项
添加回答

这道题你会答吗？花几分钟告诉大家答案吧！

提交观点

问题信息

普及 Pascal 完善程序-Pascal 字符串
上传者：牛客309901号
难度：
0条回答 811浏览

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

扫描二维码，关注牛客公众号