Question

Đã trả lời bởi chuyên gia

Answer 1

Nếu dãy chỉ có một số hoặc hai số thì chắc chắn là cấp số cộng.

Nếu dãy có hơn hai số thì tính công sai là a[1]-a[0] sau đó duyệt cả mảng nếu có số nào vi phạm quy luật của cấp số cộng a[i] khác a[i-1]+d thì kết luận luôn không là cấp số cộng.

Nếu đến cuối dãy mà không có số nào vi phạm thì kết luận là cấp số cộng.

program csc;
uses crt;
var a:array[1..100] of integer;
i,n,d:integer;
t:boolean;
begin
clrscr;
write('nhap so phan tu cua day ');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
if n<=2
then
write('la cap so cong ')
else
begin
d:=a[2]-a[1];
t:=true;
for i:=3 to n do
if a[i]<>a[i-1]+d
then
begin
t:=false;
break;
end;
if t
then
write('la cap so cong')
else
write('khong phai cap so cong ');
end;
readkey;
end.
Kết quả:

Trường hợp là cấp số cộng:

Trường hợp không là cấp số cộng:

...Xem thêm

Answer 2

Nếu dãy chỉ có một số hoặc hai số thì chắc chắn là cấp số cộng.

Nếu dãy có hơn hai số thì tính công sai là a[1]-a[0] sau đó duyệt cả mảng nếu có số nào vi phạm quy luật của cấp số cộng a[i] khác a[i-1]+d thì kết luận luôn không là cấp số cộng.

Nếu đến cuối dãy mà không có số nào vi phạm thì kết luận là cấp số cộng.

program csc;
uses crt;
var a:array[1..100] of integer;
i,n,d:integer;
t:boolean;
begin
clrscr;
write('nhap so phan tu cua day ');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
if n<=2
then
write('la cap so cong ')
else
begin
d:=a[2]-a[1];
t:=true;
for i:=3 to n do
if a[i]<>a[i-1]+d
then
begin
t:=false;
break;
end;
if t
then
write('la cap so cong')
else
write('khong phai cap so cong ');
end;
readkey;
end.
Kết quả:

Trường hợp là cấp số cộng:

Trường hợp không là cấp số cộng:

1 câu trả lời 1710

Câu hỏi hot cùng chủ đề

Bài viết mới nhất Lớp 11