关闭

指针

89人阅读 评论(0) 收藏 举报
分类:
program p指针;
type pointer=^integer;
var p1,p2:pointer;
procedure swap(var q1,q2:pointer);
 var q:pointer;
 begin
  q:=q1;
  q1:=q2;
  q2:=q;
 end;
begin
 new(p1);new(p2);
 readln(p1^,p2^);
 if p1^>p2^ then swap(p1,p2);
 writeln('Output 2 date:',p1^,' ',p2^);
end.
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:16058次
    • 积分:116
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档