tyvjBegin P1034 Begin2 Unit1 银行存款

背景 Background

在现代文明社会中，大家在诸如银行办理业务、车站买票等活动时都很文明
没有插队的现象，本着“先来先服务”的规矩。

描述 Description

五一马上到了，凡凡的爸爸打算上银行去取点钱，带着一向表现很好的凡凡同学到海南旅游，凡凡的爸爸到银行时发现很多人在办理业务，凡凡的爸爸就自觉地在排队机上去了一个业务号码，并焦急的等待着银行柜台叫自己的号码......

输入格式 Input Format

输入中包含I（表示等待办理业务）和顾客的序号；
或者 O（表示办理完业务的人离开）；
输入数据不超过100行。

输出格式 Output Format

输出银行排队中出队顾客序列，若队列为空（没人等待），则输出“None”

样例输入 Sample Input

O
I 1
I 2
O
I 3
O
O
O

样例输出 Sample Output

None
1
2
3
None

时间限制 Time Limitation

各个测试点1s

来源 Source

栈和队列

 

又是一次通过。。。今晚MJ附体？。。

 var
  w,q:array[1..100]of integer;
  k,i,r,l:integer;
  ch:char;
 begin
  k:=1;
  for i := 1 to 100 do q[i]:=0;
  r:=0;
  l:=0;
  while not(eof) do
  {for i := 1 to 8 do }
   begin
    read (ch);
    if ch = 'O' then
     begin
      readln;
      if r-l<=0 then
       begin
        w[k]:=101;
        inc(k);
       end
       else
        begin
         inc(l);
         w[k]:=q[l];
         inc(k);
        end;
     end;
    if ch = 'I' then
     begin
      inc(r);
      read(ch);
      readln(q[r]);
     end;
   end;
  for i := 1 to k-1 do
   if w[i]=101 then writeln ('None') else writeln (w[i]);
 end.