tiet 32

BÀI T P THỰC HÀNH SỐ 5Ậ Yêu cầu: - Biết khai báo kiểu dữ liệu để giải những bài toán cụ thể. - Biết cách phân tích giải một bài toán với kiểu dữ liệu có cấu trúc.  Bài 5.Viết 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 1 ,A 2 , .A N có giá trò tuyệt đối không lớn hơn 100. Hãy cho biết dãy A có phải là một cấp số cộng hay không? Thông báo kết quả ra màn hình.   Để dãy A là cấp số cộng. Dãy A có tính chất gì? a[i]=a[i-1]+d (v i iớ ≥2) Trong đó: d là công sai a[i]=a[i-1]+d (v i iớ ≥2) Trong đó: d là công sai Trong công thức trên giá trò nào đã biết và giá trò nào cần phải tính? Cần tính d (công sai) Giả sử D:=a[2]-a[1]  Ý tưởng giải bài toán? - d:=a[2]-a[1] ; - Duy t m ng A t 3 đ n n, trong quá trình ệ ả ừ ế duyệt kiểm tra điều kiện: + Nếu a[i]=a[i-1]+d thì duyệt m ng A tiếpả + Nếu a[i]<>a[i-1]+d thì dừng. - Kiểm tra nếu i>n thì KL A là cấp số cộng, ngược lại A không là cấp số cộng.  Chöông trình var A:array[1 100] of integer; i,n:integer Begin write(‘Nhap so PT’);readln(n); for i:=1 to n do begin Write(‘Nhap PT thu ’,i,’la : ’); readln(a[i]); end;  d:=a[2]-a[1]; i:=3; while (i<=n) and (a[i]=a[i-1]+d) do i:=i+1; if i>n then write(‘Day A la cap so cong ’) else write(‘Day A khong la cap so cong’); readln; end.  Bài 2: Viết 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 A1, A2, , An có giá trò tuyệt đối không lớn hơn 1000. Hãy đưa ra những thông tin sau: a)Số lượng số chẵn và số lẻ trong dãy b)Số lượng số nguyên tố trong dãy  Hàm nào dùng để kiểm tra 1 số là số lẻ hoặc chẵn? - Odd(x): Trả giá trò TRUE nếu x lẻ, FALSE nếu x chẵn  Ýù tưởng để giải bài toán? - Slc:=0;Sll:=0; - Duyệt mảng A từ phần tử 1 đến n, trong quá trình duyệt kiểm tra điều kiện: - If Odd(i) then Sll:=Sll+1 else Slc:=Slc+1; 