COBOL算术运算.ppt

cobolformainframefundamentals,ch4cobol算术运算,算术运算语句,addsubtractmultiplydividecompute,add语句1,语法1:addidentifier-1(orliterals),identifier-2,toidentifier-n,roundedonsizeerrorstatement-1notonsizeerrorstatement-2end-add例子:addnum1tonum2.addnum1,10tonum2,num3.addnum1,num2tonum3onsizeerrorperform100-error.,add语句2,语法2:addidentifier-1(orliterals),identifier-2,toidentifier-ngivingidentifier-mroundedonsizeerrorstatement-1notonsizeerrorstatement-2end-add例子:addnum1tonum2givingnum3.addnum1,num2givingnum3.addnum1,10tonum2givingnum3.,例子,add语句3,语法3:addcorridentifier-1toidentifier-2,roundedonsizeerrorstatement-1notonsizeerrorstatement-2end-add例子:03current-month.05paypic9(3)v9(2).05taxpic9(2)v9(2).03ytd.05paypic9(3)v9(2).05taxpic9(2)v9(2).addcorrcurrent-monthtoytd.,rounded,receivingfieldactualresulttruncatedresultroundedresultpic9(3)v9.123.45123.4123.5pic9(3).123.45123123,sizeerror,receivingfieldactualresultsizeerrorpic9(3)v9.123.45ypic9(3)v9.1234.5ypic9(3).123npic9(3).1234ypic9(3)v9notrounded123.45ypic9(3)v9rounded123.45npic9(3)v9rounded1234.56y,subtract语句1,语法1:subtractidentifier-1(orliterals),identifier-2,fromidentifier-n,roundedonsizeerrorstatement-1notonsizeerrorstatement-2end-subtract例子:subtractnum1fromnum2.,subtract语句2,语法2:subtractidentifier-1(orliterals),identifier-2,fromidentifier-ngivingidentifier-mroundedonsizeerror语句-1notonsizeerror语句-2end-subtract例子:subtractnum1fromnum2givingnum3.,例子:,subtract语句3,语法3:subtractcorridentifier-1fromidentifier-2,roundedonsizeerrorstatement-1notonsizeerrorstatement-2end-subtract例子:subtractcorrrec1fromrec2.,multiply语句1,语法1:multiplyidentifier-1(orliterals),byidentifier-2,roundedonsizeerrorstatement-1notonsizeerrorstatement-2end-multiply例子:multiplynum1bynum2.multiply100bynum.,multiply语句2,语法2:multiplyidentifier-1(orliterals),byidentifier-2givingidentifier-3roundedonsizeerrorstatement-1notonsizeerrorstatement-2end-multiply例子:multiplynum1bynum2givingnum3.,例子,divide语句1,语法1:divideidentifier-1(orliterals)intoidentifier-2roundedonsizeerrorstatement-1notonsizeerrorstatement-2end-divide例子:dividenum1intonum2.,divide语句2,语法2:divideidentifier-1(orliterals)intoidentifier-2givingidentifier-3roundedonsizeerrorstatement-1notonsizeerrorstatement-2end-divide例子:dividenum1intonum2givingnum3.,divide语句3,语法3:divideidentifier-1(orliterals)byidentifier-2(orliterals)givingidentifier-3roundedonsizeerrorstatement-1notonsizeerrorstatement-2end-divide例子:dividenum1bynum2givingnum3.,divide语句4,语法4:divideidentifier-1(orliterals)intoidentifier-2(orliterals)givingidentifier-3roundedremainderidentifier-4onsizeerrorstatement-1notonsizeerrorstatement-2end-divide例子:dividenum1intonum2givingnum3remaindernum4.,divide语句5,语法5:divideidentifier-1(orliterals)byidentifier-2(orliterals)givingidentifier-3roundedremainderidentifier-4onsizeerrorstatement-1notonsizeerrorstatement-2end-divide例子:dividenum1bynum2givingnum3remaindernum4.,例子,compute语句,语法:computeidentifier-1rounded,identifier-2rounded,=arithmetic-expressiononsizeerrorstatement-1notonsizeerrorstatement-2end-compute例子:computeresult=num1*num2+num3-num4.computeprice=unitprice/rate*100.,算术表达式符号,代数符号:+,-乘方:*乘法:*除法:/加、减:+,-,内置函数,语法:functionfunction-name(argument1,argument2,.)例子:movefunctionsum(x,y,z)tosum-xyz.,日期函数,例子结果functioncurrent-date2005100709052100+0800functiondate-of-integer(145732)20000101functionday-of-integer(145732)2000001functioninteger-of-date(19980721)145203functioninteger-of-day(1998054)145055functionwhen-compiled200510070905210000000,算术函数,例子结果functionacos(0.717)0.771307functionlog10(10)1.000000functionsum(17,21,4.5,-6)36.5functionsqrt(11)3.316625functionfactorial(4)24functioninteger(4.5)4functioninteger(-3.5)-4functioninteger-part(4.5)4functioninteger-part(-3.5)-3functionrem(11.0,5)1.0functionrandom0.773515,算术函数,例子结果functionchar(65)afunctionlength(abc9ax)6functionlower-case(abc)abcfunctionupper-case(abc)abcfunctionnumval(+709.)709.0functionnumval(52db)-52.0functionnumval-