Question

这是lazarus里我编的程序。哪里错了啊

program num3;
var
f,p,w,s:integer;
begin
readln(s,w,p);
if s<250 then f:=s*p*w;
if(s>=250)and(s<500) then f:=s*p*w*(1-0.02);
if(s>=500)and(s<1000) then f:=s*p*w*(1-0.05);
if(s>=1000)and(s<2000) then f:=s*p*w*(1-0.08);
if(s>=2000)and(s<3000) then f:=s*p*w*(1-0.1);
if(s>=3000) then f:=s*p*w*(1-0.15);
writeln(f);
readln;
end.

Answer 1

类型不匹配，f应该定义为double 或extended 如下编写即可：
program num3;
var
p,w,s:integer;
f:extended;
begin
readln(s,w,p);
if s<250 then f:=s*p*w;
if(s>=250)and(s<500) then f:=s*p*w*(1-0.02);
if(s>=500)and(s<1000) then f:=s*p*w*(1-0.05);
if(s>=1000)and(s<2000) then f:=s*p*w*(1-0.08);
if(s>=2000)and(s<3000) then f:=s*p*w*(1-0.1);
if(s>=3000) then f:=s*p*w*(1-0.15);
writeln(f);
readln;
end.

追问

非常感谢，你在看看我的其他提问吧