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

Chương trình
Const max=10000;
Var F:array[0 max] of real;
i,N:integer;
Begin
write(‘Nhap N’) ;readln(n);
f[0]:=0;f[1]:=1;
for i:=2 to n do f[i]:=f[i-1]+f[i-2]
writeln(‘So hang thu’, N,’ la: ’,F[N]:5:2);
End.


Xem chi tiết: tiet 33