Tin học số nguyên tố

[Phác Xán Liệt]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết thuật toán nhập số tự nhiên N và dãy số A1,A2,...An
Yêu cầu :đếm các số nguyên tố nhỏ hơn bằng N
.
.
.
.
.
Mọi người giúp e với ạ ...........
@Trung Lê Tuấn Anh @trunghieuak53 @Hồng Nhật @Tùy Phong Khởi Vũ @ Dương Minh Nhựt @kingsman(lht 2k2) @KHANHHOA1808 .............
P/S : Làm ơn hãy khai sáng người mù công nghệ thông tin như e ^^

 

[datduong771988@gmail.com]

uses crt;
var a:array[1..100] of integer;
i,n,s,k,j:integer;
function snt(var h:integer):boolean;
begin
snt := true;
for j:=2 to trunc(sqrt(h)) do
if h mod j = 0 then snt:=false;
end;
begin
clrscr;
s := 0;
write('Nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']:');readln(a);
end;
for i:=1 to n do
begin
k := a;
if ((snt(k)=true) and (k<=n)) then s:=s+1;;
end;
write(s);
readln
end.

 

[trà nguyễn hữu nghĩa]

uses crt;
var a:array[1..100] of integer;
i,n,s,k,j:integer;
function snt(var h:integer):boolean;
begin
snt := true;
for j:=2 to trunc(sqrt(h)) do
if h mod j = 0 then snt:=false;
end;
begin
clrscr;
s := 0;
write('Nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']:');readln(a);
end;
for i:=1 to n do
begin
k := a;
if ((snt(k)=true) and (k<=n)) then s:=s+1;;
end;
write(s);
readln
end.

Thuật toán của bạn hơi rắc rối nhỉ, mình sửa lại thế này:

uses crt;
var a: integer;
i,n,s,j:integer;
function snt(var h:integer):boolean;
begin
snt := true;
for j:=2 to trunc(sqrt(h)) do {cho mình hỏi lệnh trunc() là gì vậy bạn}
if h mod j = 0 then snt:=false;
end;
begin
clrscr;
s := 0;
write('Nhap n:');readln(n);
for i:=1 to n do {Đoạn này bạn gộp 2 vòng for lại sẽ gọn hơn}
begin
write('a[',i,']:');readln(a);
if ((snt(a)=true) and (a<=n)) then s:=s+1;;
end;
write(s);
readln
end.

 

[Nguyễn Thánh Tiền]

Đề bài là viết mô tả thuât toán nhé các em

 

[trà nguyễn hữu nghĩa]

Đề bài là viết mô tả thuât toán nhé các em

OK, cũng đơn giản thôi:
B1: Nhập N và các số A1, A2...An;
B2: Dem <= 0;i <= 1;
B3: Nếu i > N thì đưa ra giá trị Dem rồi kết thúc;
B4: Nếu Ai là số nguyên tố và [tex]Ai\leq N[/tex] thì Dem <= Dem + 1;
B5: i <= i + 1; Quay lại bước 3;