数据库应用程序设计离线作业答案(5)

2013浙大远程教育

paykm:integer;

pay:real=0;

begin

try

{ TODO -oUser -cConsole Main : Insert code here }

writeln('请输入行车里程数:');

readln(km);

if (km>0)and(km<=3) then

begin

pay:=6;

writeln('输出应付车费为:',pay,'元整');

end

else if (km>3) then

begin

paykm:=km-3;

pay:=6+paykm*1.5;

writeln('输出应付车费为:',pay,'元整');

end

else

writeln('输出应付车费为:0元整');

readln;

except

on E:Exception do

Writeln(E.Classname, ': ', E.Message);

end;

end.

3、编写计算阶乘的函数，在主程序中调用函数求4！+6！+9！。

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

function ff(n:integer):integer;

var f:integer;

begin

if (n=0)or(n=1)then

f:=1

else

f:=ff(n-1)*n;

ff:=f;

end;

var x,y,z,fact:integer;

begin

x:=4;