KIỂM TRA XEM MẢNG A CO PHẢI LA MẢNG TĂNG THEO CÂP SỐ C NG D HA...

13.

Kiểm tra xem mảng a co phải la mảng tăng theo câp số c ng d hay không?

ô

Input A1 = 1 4 5 6 7A2 = 1 4 7 10Output A1 không phải cấp số cộngA2 là cấp số cộng có công sai là 3 Xác định bài toán:- Input: mảng a, giá trị k- Output: thông báo mảng a có phải là cấp số cộng hay không? Thuật toán:- B1Nhập n, a

1

,a

2

, …, a

n

- B2: i 2, d  a

2

– a

1

, csc  true

-

B3: nếu a

i

<> a

i-1

+ d, thì csc  false.

-

B4: ii+1;- B5: nếu i > n, o B5.1: kiểm tra nếu csc = true thì tb mảng là cấp số cộng, kết thúco B5.2: csc = false thì tb mảng không là cấp số cộng và kết thúc- B6: quay lại bước 3. Chương trình: program cscong;uses crt;var a:array[1..15] of integer; d:integer; n,i:byte; csc:boolean;beginclrscr; write('nhap so luong ptu cua mang '); readln(n); for i:=1 to n do begin write('nhap phan tu a[',i,'] = '); readln(a[i]); end; write('mang moi nhap la: '); for i:=1 to n do write(a[i]:4); writeln; d:=a[2]-a[1]; csc:=true; for i:=2 to n do if (a[i]-a[i-1]<>d) then csc:= false; if csc=true then writeln('day la cap so cong co cong sai = ',d) else writeln('day khong la cap so cong');readln