回 帖 发 新 帖 刷新版面

主题:菜鸟求教小问题,请大家帮帮忙

var
     s:string[4];
     letter:array [1..4] of char;

begin
     readln(s);
     ........


若读入的字符串s长度为4,我怎么才能将字符串s中的4个字符依次赋予数组letter呢?

谢谢大家

回复列表 (共2个回复)

沙发

for i := 1 to 4 do
   letter[i] := s[i];

板凳

楼上说得没错

我来回复

您尚未登录,请登录后再回复。点此登录或注册