gặp Division by zero thì xem ở đây

[tuutac]

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.

[chuyentinqb]

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

[strainvh]

bai nay hay nhung minh ko hiu mong pa` kon noi ro hon chut??

[superhacker_97]

ai giup cho bai nay voi: nhap so n , lap ma phuong bac n. da ta nhiu nhiu nhiu

[HGMinh95]

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

[superhacker_97]

thanks so much. hjjjjjjjjjjjjjjjjjjjj

[superhacker_97]

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

[tinhyeubeau]

Ể 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?!

[tangsy18299]

tks bac nghen..!!!!^^

[auauau97]

Ể 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?!

Bác không đọc kĩ #1 à, bác chủ thớt bảo là
Tiếp theo mới là điều đáng nói đó là trong chương trình của bạn chẳng có tí tẹo nào về chia cho 0 cả mà vẫn lỗi như bình thường hoặc cùng lắm là chỉ có đoạn lệnh này cũng lỗi
uses crt;
begin
end.
đó