nhập vào dẫy n số cho biết dãy đó có phải là cấp số cộng hay không

0 bình luận về “nhập vào dẫy n số cho biết dãy đó có phải là cấp số cộng hay không”

1. var a: array[1..250] of real;

         i, n: byte;

        d: real;

        kt: boolean;

   Begin

       Write(‘nhap n = ‘); readln(n);

       For i:=1 to n do

           Begin

               Write(‘nhap a[‘, i, ‘] = ‘);

               readln(a[i]);

           End;

       d:=a[2]-a[1]; kt:=true;

       For i:=2 to n-1 do if a[i+1]-a[i]<>d then

           begin

                Kt:=false;

                Break;

           End;

       If kt=true then write(‘la cap so cong’)

       Else write(‘khong la cap so cong’);

       Readln

   End.

   {GM Kiet}

   Bình luận

2. program cap_so_cong;

   Uses crt;

   var A:array[1..1000] of integer;

        n,i,t:integer;

   begin

          clrscr;

          write(‘Nhap so n: ‘);  readln(n);

          for i:=1 to n do

                 begin

                        write(‘Nhap so thu ‘,i,’: ‘);   readln(A[i]);

                 end;

          t:=A[2]-A[1];

          for i:=2 to n-1 do

                 if A[i+1]-A[i]<>t then break;

          if i=n then write(‘La cap so cong va so cong la ‘,t)

                 else write(‘Khong phai’);

          readln;

   end.

   Bình luận