tyvj-Begin 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.