- A+B Problem
- 2008-12-24 19:05:47 @
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.
3 条评论
-
庄nnnn额 LV 4 @ 2021-10-07 11:39:49
面向对象Py当然最强了
-
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
- 分类
- (无)
- 标签
- (无)
- 递交数
- 74382
- 已通过
- 28459
- 通过率
- 38%
- 被复制
- 220