exer3-2.pas

关于课件 好多种结构的算法 等等 大家自己看吧

program e3_2(input,output);
var
  s,p,a,b,c:real;
begin
  write('input s');
  readln(s);
  writeln('s=',s);
  p:=0;
  if s>10000 then
    begin
     a:=s-10000;
     p:=a*5/100;
     s:=s-a;
    end;
  if ((s<=10000) and (s>5000)) then
    begin
     a:=s-5000;
     p:=p+a*3/100;
     s:=s-a;
    end;
  if (s>1000) and (s<=5000) then
    begin
      a:=a-1000;
      p:=p+a*2/100;
      s:=s-1000;
    end;
  writeln('p=',p,'  s=',s);
  readln(p)
end.