[Help] Tin lớp 10 - Thuật toán

[Anna Phạm]

Viết dùm thuật toán bài này cho em cái ạh :sweet_kiss:

Cho dãy số a1 ->a
Xác định số số nguyên tố có trong dãy :byebye: Em xin cạm ơn

cũng mò ra bóc mà lập 2pic :byebye:

 

[mitom_yb30_12]

program so_nguyen_to;
uses crt;
var a:array[ 1..100] of integer;
n,i,j:integer;
ok:boolean;
begin
clrscr;
write('nhap n=');readln;
for i:=1 to n do
begin write('nhap gia tri so thu ',i,':');readln(a); end;
for i:=1 to n do
begin
if a<2 then ok:=false
else
begin
ok:=true;
for j:=1 to a div 2 do if a mod j=0 then ok:=false else ok:=true;
end;
end;
if ok=true then writeln(' ',a,'la so nguyen to')
else writeln(' ',a,'la so nguyen to');
readln
end;

 

[dailuong]

Bạn nên xây dựng 1 function kiểm tra số nguyên tố, tham số đầu vào là 1 số nguyên a
- Cách đơn giản nhất:
B1: Gán Dem = 0; i = 1;
B2: Nếu i > a -> Bước 5
B3: Kiểm tra a mod i = 0 hay không?
+ Nếu bằng: Dem := Dem + 1;
B4: i := i + 1; Quay trở lại B2
B5: Nếu Dem = 2 thì a là nguyên tố, trả về true;
Nếu không thì (Dem <> 2), a không phải là số nguyên tố, trả về false.

- Tiếp theo là function đếm số nguyên tố, tham số đầu vào là 1 mảng a gồm n phần tử.
B1: Dem = 0; i = 1.
B2: Nếu i > n -> Bước 5
B3: Kiểm tra a có phải là nguyên tố không?
+ Nếu Đúng, Dem := Dem + 1;
B4: I := i + 1. Quay lại bước 2
B5: Trả về giá trị biến Dem.