[Pascal] Tìm và sửa lỗi sai.

[cafekd]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Mn nhìn xem bài này mình sai chỗ nào nhỉ? Mình học kém tin lắm!

Đề: Nhập 1 dãy rồi kiểm tra xem đó có phải là 1 cấp số cộng hay không và thông báo kết quả ra màn hình.

Tớ nhập N = 5 rồi nhập dãy 1,3,5,7,9. Lẽ ra đây là một CSC rồi vậy mà máy báo dãy không phải là cấp số cộng. Tại sao?

 

[hai6f2009]

về: sửa và tìm lỗi

:-* đây là code của mình, bạn có thể tham khảo để sửa bài của mình

const  fi='sumarray.inp';
       fo='sumarray.out';
var a:array[1..100] of integer;
    n,i,k,d:integer;
    td:boolean;
    f:text;
begin
 assign(f,fi);reset(f);
 readln(f,n);
 for i:=1 to n do readln(f,a[i]);
 close(f);
 d:=a[2]-a[1];
 td:=true;
 for i:=3 to n do
  begin
   k:=a[i]- a[i-1];
  if k<> d then
   begin
    td:=false;
    break;
   end;
  assign(f,fo);rewrite(f);
  if td=true then writeln(f,'Day la cap so cong') else writeln(f,'Day khong la cap so cong');
  close(f);
end;
end.

Đó, vậy thôi

 

[baoquocphan]

Bài của bạn chỉ sai ở chỗ

For i:=2 to N

Vì nó chạy đến A[n] tức A[5] theo VD của bạn thì A[6] - A[5]=-9 (vì A[6]=0) nên kq sai.
Sửa thành

For i:=2 to N-1

là được
Thân!