如何使用 Pascal 打字（讀入行數 n）。

varn,i,j:integer;

beginreadln(n);

for i:=1 to n do beginfor j:=1 to i do beginwrite（‘*

end；writeln；

end；readln；

end.樓上錯了，n變數呢。

這有點問題。

為什麼 4 行是 2 顆星，5 排是一顆星。

你沒有說清楚。

這種解讀是錯誤的。

跟著你走，他就會成為。

p[1].name='jason 1 1'

p[1].x='herry'所以它與型別不匹配，你應該這樣做。

把你的 for i：=1 到 n do

with p[i] do

readln(name,x,y);

更改為 for i：=1 to n do

with p[i] do

beginreadln(st);

name:=copy(st,1,pos(' ',st)-1);

delete(st,1,pos(' ',st));

val(copy(st,1,pos(' ',st)-1),x,code);

delete(st,1,pos(' ',st));

val(st,y,code);

end;這只是乙個正常的字串過程。

vari,k,c:char;

n:longint;

beginreadln(n);

c:=chr(n+64);計算最後一行 i：= 的最後乙個字母'a'to c do 列舉每行開頭的最後乙個字母

for k:=c downto succ(i) do write(' ');第乙個字母也是該行的最後乙個字母，這個字母前面的字母是乙個空格，所以輸出空格 succ（） 用於取後繼字母，可以在 i 之後得到乙個字母。

for k:=i downto 'a' do write(k);從行的最後乙個字母列印到 A

for k:='b' to i do write(k);從 B 列印到行的最後乙個字母，因為 A 已經列印好了，每行中間只有乙個 A，所以不要重複列印。

writeln;列印一行後，換行。

end;end.