nkmnkm
10-04-2011, 12:10 PM
đây là đầu bài ạ!
Viết ra màn hình 5 hình như sau:
1
2 3
4 5 6 7
8 9 10 11 12 13
và đây là chương trình
program bt;
uses crt;
var i,d,dong:longint;
procedure ve;
var j:longint;
begin
dong:=0;
for j:=1 to 13 do
begin
write(j:4);
if (dong*2)=d then
begin
writeln;
d:=0;
dong:=dong+1;
end;
d:=d+1;
end;
end;
BEGIN
clrscr;
for i:=1 to 5 do
begin
ve;
writeln;
end;
END.
nhưng khi in ra
http://i1108.photobucket.com/albums/h413/nkmnkm1/untitled-1.jpg?t=1302409089
Viết ra màn hình 5 hình như sau:
1
2 3
4 5 6 7
8 9 10 11 12 13
và đây là chương trình
program bt;
uses crt;
var i,d,dong:longint;
procedure ve;
var j:longint;
begin
dong:=0;
for j:=1 to 13 do
begin
write(j:4);
if (dong*2)=d then
begin
writeln;
d:=0;
dong:=dong+1;
end;
d:=d+1;
end;
end;
BEGIN
clrscr;
for i:=1 to 5 do
begin
ve;
writeln;
end;
END.
nhưng khi in ra
http://i1108.photobucket.com/albums/h413/nkmnkm1/untitled-1.jpg?t=1302409089