一个Pascal的面向对象的解法

RT.欢迎大家修改~~

program p1000;

var a,b,c:qword;

function max(a,b:qword):qword;

begin

if ab

then exit(b)

else exit(a);

end;

operator :=(a:qword):b:qword;

begin

b:=0;

if max(a,b)=a

then b:=max(a,b)

else b:=min(a,b);

end;

operator +(a,b:qword)c:qword;

begin

c:=0;

c:=max(a,b)+min(a,b);

end;

begin

readln(a,b);

c:=a+b;

writeln(c);

end.

2 条评论

  • @ 2012-07-21 00:39:47

    面向对象?

    嗯不知道你是在卖萌还是真的不懂

    你用了两个operator,这个叫操作符重载。可能是因为面向对象和操作符重载这些东西常常出现所以混淆了。

    所谓的面向对象,首先你要有“类”吧。但是我连type....end都没看到。另外,“面向对象”是一个理论层面的东西。你用了类,也不一定就是面向对象,当你真的把一个类看成“一个东西”的时候,才叫面向对象。

    建议你看一下这个页面,对Pascal的类语法有一个基础的了解。

    http://zh.wikipedia.org/zh/Object\_Pascal#Delphi.E5.92.8CFree\_Pascal.E7.9A.84Object_Pascal

    网络上Pascal的资料相对较少,可以参考一下C++。毕竟语法是不同的,思想是一致的。

  • @ 2009-05-18 20:01:14

    大牛,我是来跟着膜拜的..膜拜你啊!

  • 1

信息

ID
1000
难度
9
分类
(无)
标签
(无)
递交数
66270
已通过
25741
通过率
39%
被复制
69