26749:指针练习 分数: 100

题目描述

输入两个整数，按从小到大打印出来。注意: 必须使用指针

输入格式

输出

样例输入

5 3

样例输出

3 5

program p26749;
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.