pascal 怎么输入二维字符数组

答案:3 悬赏:70 手机版

解决时间 2021-12-01 16:07

提问者网友：佞臣
2021-12-01 07:44

pascal 怎么输入二维字符数组

最佳答案

五星知识达人网友：不想翻身的咸鱼
2021-12-01 07:59

这样就可以：
var a:array[1..20,1..20] of char;
for i:=1 to n do
begin for j:=1 to m do read(a[i,j]);
readln;
end;追问每个字母之间有一个空格间隔。有空格怎么办啊
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(a[i,j]);
if j<>m then
read(c);
end;
readln;
end;
这样可以，是这样吗？有没有更好的办法追答你没有说清楚输入数据的格式。
以上的程序输入时字符间不要有空格。
如果输入时是一个字符，一个空格这样的格式（一行上最后一个字符后面有没有空格也是要说清楚的），那么请试一下下面的程序：（你写的程序应该可以了）
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m-1 do
read(a[i,j],c);
readln(a[i,m]);
end;

全部回答

1楼网友：第四晚心情
2021-12-01 08:50

var i,j:longint;
      a:array[1..20,1..20] of char;
  for i:=1 to n do
  begin
    for j:=1 to m do
      read(a[i,j]);
    readln;
  end;

你没读空行。。。。

2楼网友：过活
2021-12-01 08:22

read字符的时候要注意把回车符过滤掉

可以这样：

var
a:array[1..20,1..20] of char;
n,m,i,j:longint;
begin
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do read(a[i][j]);
readln;
end;
end.

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息