Phân tích số N thành tổng các số liền nhau

[thanhlydongden02]

[/FONT]
Var A:array[1..100] of integer;
S,N,i,d,m,k,h,j:integer;
Begin
write('Nhap vao so nguyen duong N:'); Readln(N);
i:=1;  d:=0;
while i<=N div 2 do
Begin
k:=i; S:=0; j:=0;
 For h:=k to (N div 2)+1 do
  Begin
     j:=j+1;
    S:=S+h;
    A[j]:=h;
   if S=N then
     Begin
      d:=d+1;
        For m:=1 to j do write(A[m]:3);
        break;
    End
End;
 if S=N then break else
 i:=i+1;
 End;
if d=0 then write('k');
Readln
End.

[seotheanhgroup]

Chương trình của lehang chạy trên Tp nhưng không bật kiểm tra lỗi thì phải. Nếu bạn để Q+ hay R+ (mình không rõ lắm) thì chắc chắn sẽ thông báo lỗi ngay. Chạy vẫn cho ra kết quả vì Tp bỏ qua 1 số lỗi như tràn, i trong 2 vòng lồng, ... nếu không kiểm tra lỗi.

[muabandienthoai]

Tieulong xem lại giú tớ đi vì tớ vừa gõ trên máy dùng Tp chạy chuẩn rồi thì tớ mới post lên!

[seotn]

Bạn vào Tp nhé, rồi nhấn Ctrl + O + O (giữ phím Ctrl rồi nhấn 2 lần phím O) để hiện dòng {..} rồi tìm chỗ Q-, R- đổi thành Q+, R+ sau đó F9 thử xem. À mà thử với chương trình có 2 vòng lặp dùng i đồng thời ấy nhá.

[vytieubao]

Tieulong ah, nó hiện dòng như thế này, mình chưa hiểu là gì?
{$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+,Y+}
{$M 16384,0,655360}

[b5fixel]

Q+ hình như là để kiểm tra Stack Over Flow, R+ là kiểm tra Range Check Error thì phải. Mình cũng không nhớ rõ lắm. Giá trị mặc định của Turbo Pascal là Q-, R- cho nên muốn kiểm tra những cái đó thì mình phải đặt lại là Q+, R+. Để Q+, R+ thì chương trình sẽ chạy chậm hơn chừng 3 lần, chính vì thế nên lúc đi thi ta chỉ để Q+, R+ lúc test chương trình, còn khi test xong xuôi và nộp bài thì có thể bỏ đi cho chạy nhanh hơn cũng được.

[MinhPhuc123]

Tieulong ah, nó hiện dòng như thế này, mình chưa hiểu là gì?
{$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+,Y+}
{$M 16384,0,655360}

Trong dòng đó có chỗ Q- ,R- đó, bạn chỉnh thành Q+, R+ là xong. Đúng như anh Trung nói chương trình sẽ chạy chậm đi nhưng được cái sẽ kiểm tra chắc chắn có lỗi không, vì thế sẽ an toàn hơn cho code của bạn.

[remcuaminhdang]

Có ai biết tác dụng của từng lệnh sau không

regs:registers;
begin
regs.ah:=1;
regs.ch:=bot;
regs.cl:=top;
intr($10,regs);

[fanpckt]

Var N,j,i,SUM,k:Integer;

BEGIN
        Writeln('Nhap vao so N: ');
        Readln(N);
        j:=1;
        While j < N do
        Begin
                for i:=j to N do
                  Begin
                        SUM:=SUM+i;
                        if SUM=N then
                          break
                        else if SUM>N then
                        Begin
                          SUM:=0;
                          break;
                        End;
                  End;
                if SUM<> 0 then
                        break;
                j:=j+1;
        End;

        if SUM<>0 then
          for k:=j to i do
                Write(k,' ')
        else
         Write('K');
END.

Này là cái tui viết naz` anh em sem có Er gì ko ??

[quataovang]

Bạn sang thử test n=1 chưa? Mình chưa thử nhưng nghĩ là code bạn thiếu chỗ test đó.