Ðề tài: [Help] Tin lớp 10 - Thuật toán

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(n)
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:

View more random threads:

• Lỗi này khó xử lý quá !
• [Pascal 11] Mảng 2 chiều dạng xoắn ốc?
• Ai có tài liệu an toàn bảo mật máy tính không? Giúp...
• Không tải được Yahoo! Messenger 10
• ĐỔI ĐỊNH DẠNG VIDEO TỪ FVF sang 3GP
• [Cần giúp] Bài tập pascal
• Kho tàng tài liệu hỗ trợ học hành đây
• CPU1, CPU1 core, CPU0 core là gì
• Cách vẽ đường tròn ngoại tiếp tam giác?
• Xin Driver may IN Epson 1410 cho WIN 7 32bit

Nguồn: http://diendankienthuc.net.

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(n);
for i:=1 to n do
begin write('nhap gia tri so thu ',i,':');readln(a[i]); end;
for i:=1 to n do
begin
if a[i]<2 then ok:=false
else
begin
ok:=true;
for j:=1 to a[i] div 2 do if a[i] mod j=0 then ok:=false else ok:=true;
end;
end;
if ok=true then writeln(' ',a[i],'la so nguyen to')
else writeln(' ',a[i],'la so nguyen to');
readln
end; Nguồn: http://diendankienthuc.net.

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[i] 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. Nguồn: http://diendankienthuc.net.