菜鸟问简单题目

Question

2 输入一个数字(0-6)，用中英文显示星期几。
2.
  case InputNumber of
    0:
      begin
        Label1.Text := '星期一';
        Lable2.Text := 'Monday';
      end;
    1:
      begin
        Label1.Text := '星期二';
        Lable2.Text := 'Monday';
      end;
    2:
      begin
        Label1.Text := '星期一';
        Lable2.Text := 'Monday';
      end;
    3:
      begin
        Label1.Text := '星期一';
        Lable2.Text := 'Monday';
      end;
    4:
      begin
        Label1.Text := '星期一';       
 Lable2.Text := 'Monday';
      end;
    5:
      begin
        Label1.Text := '星期一';
        Lable2.Text := 'Monday';
      end;
    6:
      begin
        Label1.Text := '星期一';
        Lable2.Text := 'Monday';
      end;
   end;
case i of
    0:
      showmessage('星期天');
    1:
      showmessage('星期一');
    2:
      showmessage('星期二');
    3:
      showmessage('星期三');
    4:
      showmessage('星期四');
    5:
      showmessage('星期五');
    6:
      showmessage('星期六');
  end;
完整回答这题是否这样
还是要怎样修改

Answer 1

function WeekStr(const i:integer):string;
var s:string;
begin
    s:='日一二三四五六';
    Result:='星期'+s[i*2+1]+s[i*2+2];
end;

Answer 2

function WeekStr(const i:integer):string;
var s:string;
begin
    s:='日一二三四五六';
    Result:='星期'+s[i];
end;