新手村之顺序与分支

P1422 小玉家的电费 代码：
总：分类（累）讨论。

var
  n:longint;
  ans:real;
begin
  readln(n);
  if n<=150 then ans:=n*0.4463;
  if (n>150) and (n<=400) then ans:=150*0.4463+(n-150)*0.4663;
  if n>400 then ans:=150*0.4463+250*0.4663+(n-400)*0.5663;
  write(ans:0:1);
end.

P1085 不高兴的津津 代码：
总：根据题意判断。

var
  a,b,i,s,t:longint;
begin
  s:=0;
  for i:=1 to 7 do
    begin
      readln(a,b);
      if a+b>s then begin s:=a+b; t:=i; end;
    end;
  write(t);
end.

P1089 津津的储蓄计划
总：根据题意做。

var
  i,s,n,t:longint;
  a:array [1..50] of longint;
begin
  for i:=1 to 12 do
    readln(a[i]);
  s:=0; t:=0;
  for i:=1 to 12 do
    begin
      s:=s+300-a[i];
      t:=t+s div 100;
      s:=s mod 100;
      if s<0 then
        begin
          write('-',i);
          exit;
        end;
    end;
  write(t*120+s);
end.

总结：

判断+模拟。