NPSC補完計劃

登入註冊帳號.

請輸入帳號, 密碼以及預計登入時間
進階搜尋  

最新消息:

歡迎光臨NPSC補完計劃

+ NPSC補完計劃 » NPSC國中組 » NPSC2008國中組決賽
 [PASCAL]B. 外星人的讯息

作者 主題: [PASCAL]B. 外星人的讯息  (閱讀 1482 次)

liouzhou_101

  • 初級會員
  • **
  • 文章數: 44
    • 檢視個人資料
[PASCAL]B. 外星人的讯息
« 於: 七月 12, 2010, 12:05:04 pm »

这题是字符串的处理,不同的语言有不同的处理方法。
一下贴PASCAL的:
代碼: [選擇]
var s,s1 : string;
    ch : array[1..4] of char;
    a,b : longint;
begin
  while not eof do begin
    readln(s);
    read(ch[1],ch[2],ch[3]);
    while not ((ch[1]='E') and (ch[2]='N') and (ch[3]='D')) do begin
      read(ch[4]);
      if (ch[1]='A') and (ch[2]='D') and (ch[3]='D') then begin
        readln(s1);
        s:=s+s1;
        writeln(s);
      end else if (ch[1]='A') and (ch[2]='D') and (ch[3]='H') then begin
        readln(s1);
        s:=s1+s;
        writeln(s);
      end else if (ch[1]='E') and (ch[2]='R') and (ch[3]='A') then begin
        readln(a,b);
        delete(s,a,b-a+1);
        writeln(s);
      end else if (ch[1]='S') and (ch[2]='U') and (ch[3]='B') then begin
        readln(a,b);
        s:=copy(s,a,b-a+1);
        writeln(s);
      end else if (ch[1]='S') and (ch[2]='P') and (ch[3]='A') then begin
        readln(a);
        insert('_',s,a);
        writeln(s);
      end;
      read(ch[1],ch[2],ch[3]);
    end;
    read(ch[4]);
  end;
end.
記錄
+ NPSC補完計劃 » NPSC國中組 » NPSC2008國中組決賽
 [PASCAL]B. 外星人的讯息