YOMEDIA
NONE

Viết chương trình nhập từ bàn phím số nguyên dương N (N không quá 100) và dãy A gồm N số nguyên A1…AN có giá trị tuyệt đối lớn hơn 1000. Hãy cho biết dãy A có phải là một cấp số cộng hay không và thông báo kết quả ra mành hình.

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • Lê Trung Phuong

    Để lập chương trình nhập từ bàn phím số nguyên dương N (N<100) và dãy

    A gồm N số nguyên A, A1…AN có giá trị tuyệt đối không lớn hơn 100, thì ta cần phải thực hiện việc kiểm tra xem số N nhập vào (số phần tử của dãy) có thỏa mãn yêu cầu của đầu bài hay không nghĩa là 0< N< 100, nếu không đưa ra thông báo “Mời nhập lại”. Còn các phần tử, A1,…AN của mảng cũng phải là những số nguyên và có giá trị tuyệt đối không lớn hơn 100 (A[i] >= -100 và A[i]<=100), nếu không đưa ra thông báo “Mời nhập lạĩ’

    Tiếp đến ta phải kiểm tra dãy A nhập vào có phải là một cấp số cộng hay không nghĩa là các phần tử của dãy A vừa nhập vào có làm thành một cấp số cộng hay không và đưa ra màn hình thông báo kết quả ra màn hình “A là cấp số cộng’ hoặc “A không là cấp số cộng”. Bởi vậy,

    Lấy d= A[2] — A[1]

    Khi đó, dãy A là cấp số cộng nếu thỏa mãn điều kiện:

    A[i]=A[1] + (i-1)d.

    (hoặc điều kiện A[i] – A[i-1] = d với (1

    Trong chương trình ta dùng một vòng lặp theo biến đếm i để kiểm tra xem mỗi A[i] có thỏa mãn điều kiện nói trên hay không, chi cần phát hiện được một phần tử của A không thỏa mẫn là kết luận được dãy A không là cấp số cộng.

    Chương trình:

    program bai5_chuong4;

    uses crt;

    var

    A: array[1..100] of integer;

    d,rt,i, dem: integer;

    begin

    clrscr;

    writeln(‘Nhap mot so lon hon 0 va nho hon 100’); repeat

    write (‘Nhap N:’);

    readln(N)

    if (N>=1000) or (N<=0 ) then writeln(’Moi nhap lai !’);

    until (N>0) and (N<1000); writeln(‘Nhap cac gia tri cac so hang co tri tuyet doi khong lon hon 1000’);

    for i:=1 to n do repeat

    write (‘ a [‘, i ,’] = ‘)

     readln (a [i]) ; if (A[i]>100) or (A[i]<-1000) then write(’Moi nhap lai ‘);

    until (A[i]>-1000) and (A[i]<1000);

    {Kiem tra xem CO la cap so cong khong?} d: = A[2] – A[ 1 ] ; dem:=0;

    for i:= 2 to n do if A[i] – A[i-l]od then dem:= dem + 1; if dem >0 then writeln(‘A khong la cap so cong’) else writeln(’A la cap so cong’);

    readln,

    end.

      bởi Lê Trung Phuong 23/11/2021
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

XEM NHANH CHƯƠNG TRÌNH LỚP 11

 

YOMEDIA
ATNETWORK
ON