用TURBO PASCAL输出图形

来源：百度知道 编辑：UC知道 时间：2024/05/09 00:08:02
A
A B
A B C
. . . . . . .
. . . . . . . .
A B . . ..Y Z

.是省略号

var i,j:char;
begin
for i:='A' to 'Z' do
begin
for j:='A' to i do
write(j);
writeln;
end;
readln;
end.

var
i,j:integer;
begin
for i:=65 to 90 do begin
for j:=65 to i do write(chr(j));
writeln;
end;
end.
chr是将‘（’，‘）’内的数值转换为ASCII表内字符，如chr(65)的值为‘A’。
运行过程:
1.i=65 j:=65 writeln(chr(65));--->A
2.i=65+1=66 j:=65,66 writeln(chr(65)) writeln(chr(66))--->AB
...
26.i=90 j:=65...90 writeln(chr(65))...writeln(chr(90))--->AB..Z