s-1.pas

来自「Checkletter——pascal PASCAL写的」· PAS 代码 · 共 27 行

PROGRAM checkletter(input,output);
  VAR
    y:char;
    i:integer;
  FUNCTION letter(x:char):integer;
    VAR
      z,y:set of char;
    BEGIN
    y:=['a','e','i','o','u','A','E','I','O','U'];
    z:=['a'..'z','A'..'Z'];
    IF x IN  y
      THEN Letter:=1
      ELSE
        IF x IN z-y
        THEN letter:=2
        ELSE letter:=0;
  END;
  BEGIN
    read(y);
    i:=letter(y);
    IF i=0
      THEN writeln('not letter')
      ELSE IF i=1
             THEN writeln('yuanyin')
             ELSE writeln('fuyin');
  END.