tiet 33

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.  (tiếp theo) Bài 6b.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 1000. Hãy thông báo lên màn hình số lượng số nguyên tố trong dãy.   N là số nguyên tố khi nào? Khi n không có ước, ngoài 1 và chính nó. Nhắc lại thuật toán kiểm tra n là số nguyên tố hay không? Kiểm tra - Nếu n=1 thì n không là nguyên tố - Nếu 1<n<4 thì n là số nguyên tố - Nếu n>=4 kiểm tra n có ước trong phạm vi từ 2 đến phần nguyên căn bậc 2 của n hay không + Nếu có ước KL n không là nguyên tố + Ngược lại KL n là số nguyên tố  Ý tưởng giải bài toán? - Dem:=0; - Duyệt mảng A từ 1 đến n, trong quá trình duyệt kiểm tra - Nếu a[i] là số nguyên tố thì dem:=dem+1;  Chöông trình var A:array[1 100] of integer; i,n,k,dem: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;  Dem:=0 for i:=1 to n do begin if (a[i]>1) and (a[i]<4) then dem:=dem+1; if a[i]>=4 then begin k:=2; while (k<=trunc(sqrt(a[i]))) and (a[i] mod k<>0) do k:=k+1; if k>trunc(sqrt(a[i])) then dem:=dem+1; end; end; write(‘So luong so nguyen to ’,dem); readln; end.  Bài 7: Dãy F là dãy Phi-bô-na-xi nếu: F 0 =0; F 1 =1; F N =F N-1 +F N-2 với N>=2 Viết chương trình nhập từ bàn phím số nguyên dương N và đưa ra màn hình số hạng thứ N của dãy Phi-bô-na-xi. Chương trình của bạn thực hiện được với giá trò lớn nhất N là bao nhiêu?  Yêu cầu của bài toán là gì? - Nhập N từ bàn phím - Đưa ra màn hình số hạng thứ N của dãy Fibonaxi  Sử dụng câu lệnh lặp gì để thể hiện chương trình? - Lặp For - Hoặc lặp while 