Bạn chỉ cần bỏ khai báo thư viện đi là được thôi. Bỏ (uese crt và (clrscr nếu đã khai báo.
Bạn chỉ cần bỏ khai báo thư viện đi là được thôi. Bỏ (uese crt và (clrscr nếu đã khai báo.
Xin chao cac ban, minh la new member.
Co cau nay muon hoi cac anh chi day dan kinh nghiem.
Nhap so day thuc duong.tach day so thanh hai nua sao cho tri tuyet doi hieu cua tong hai nua dat gia tri min.
Giup minh vs, gan thi mat roi
bai nay hay nhung minh ko hiu mong pa` kon noi ro hon chut??
ai giup cho bai nay voi: nhap so n , lap ma phuong bac n. da ta nhiu nhiu nhiu
Bài này post ở đây rồi bạn.
http://www.ddth.com/showthread.php/5...%B1ng-quay-lui
thanks so much. hjjjjjjjjjjjjjjjjjjjj
program ct2;
uses crt;
var a:array[1..100,1..100] of integer;
n2,n,j,k,i:longint;
begin
clrscr;
write('moi nhap vao n='); readln(n);
writeln;
k:=1;i:=1;
j:=n div 2 +1;
n2:=sqr(n);
while k<=n2 do
begin
a[i,j]:=k;
if k mod n=0 then
begin
i:=i+1;
if i>n then i:=i-n;
end
else begin
if i=1 then i:=n else dec(i);
if j=n then j:=1 else inc(j);
end;
inc(k);
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3,' ');
writeln;
writeln;
end;
readln;
end.
thuat toan nay cung dc
Ể vậy chứ không do Crt thì sao!!!.
Rất có thể trong biểu thức có hành động gây lỗi khi chạy thì sao!!?
Giống lỗi tràn stack đó, có tạo một bộ đệm pro, kiểm tra tràn cũng không thấy thì sao?!
tks bac nghen..!!!!^^
Bookmarks