Viết chương trình xác định xem một số có phải là số nguyên tố hay không ?

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

Viết chương trình xác định xem một số có phải là số nguyên tố hay không ?

Bài gửi by teacher on Sat 23 Apr 2011, 9:46 am

Yêu cầu :
bạn viết chương trình để nhập vào một số tự nhiên và nếu nó là số nguyên tố thì phải thông báo ra là số nguyên tố còn nếu không phải là số nguyên tố ( là hợp số thì hãy in ra tất cả các ước số của nó .

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Em sẽ lớn lên như tôi đã từng khôn lớn
và sẽ bay cao bay xa hơn tôi ..... !!!
* thành viên câu lạc bộ học khuya*

avatar
teacher
CỐ VẤN
CỐ VẤN

Nam
Tổng số bài gửi : 352
điểm điểm : 800
Đến từ : classicfat32@gmail.com

Xem lý lịch thành viên https://sites.google.com/site/dayhocdientu/

Về Đầu Trang Go down

Re: Viết chương trình xác định xem một số có phải là số nguyên tố hay không ?

Bài gửi by LeXuanQuocAnh on Thu 29 Dec 2011, 7:58 pm

Program snt;
Uses crt;
Var i,n,dem:integer;
Begin
Writeln(' Nhap so can kiem tra')';Readln(n);
dem:=0;
For i:=n downto 1 do
If n mod i = 0 then dem:=dem+1;
If dem=2 then Writeln(n,' la so nguyen to');
Readln;
End.
avatar
LeXuanQuocAnh
USES
USES

Nam
Tổng số bài gửi : 18
điểm điểm : 36
Birthday : 19/03/1999
Đến từ : thainguyen

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Viết chương trình xác định xem một số có phải là số nguyên tố hay không ?

Bài gửi by teacher on Thu 29 Dec 2011, 8:33 pm

Thuật toán của chương trình này chưa tối ưu bị kiểm tra nhiều dữ liệu thừa ! Em xem tối ưu hóa lại nhé !

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Em sẽ lớn lên như tôi đã từng khôn lớn
và sẽ bay cao bay xa hơn tôi ..... !!!
* thành viên câu lạc bộ học khuya*

avatar
teacher
CỐ VẤN
CỐ VẤN

Nam
Tổng số bài gửi : 352
điểm điểm : 800
Đến từ : classicfat32@gmail.com

Xem lý lịch thành viên https://sites.google.com/site/dayhocdientu/

Về Đầu Trang Go down

Re: Viết chương trình xác định xem một số có phải là số nguyên tố hay không ?

Bài gửi by tramy_8a on Mon 22 Oct 2012, 3:07 pm

teacher oi cho em hoi: tai Pascal o dau a?

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Cam on doi moi som mai thuc day
Ta co them ngay nua de yeu thuong
sunny sunny
avatar
tramy_8a
USES
USES

Tổng số bài gửi : 22
điểm điểm : 23
Birthday : 10/03/1999
Đến từ : truong thcs chua hang 2

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Viết chương trình xác định xem một số có phải là số nguyên tố hay không ?

Bài gửi by yugioh_thcsch2 on Mon 22 Oct 2012, 5:11 pm

Lâu rồi ko chơi cái nì Basketball

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Đừng bao giờ tự thỏa mãn vì những gì đã làm được, hãy luôn cố tự thực hiện những điều mình chưa làm được, đỉnh cao trí tuệ không bao giờ đón chào những kẻ tự cao.
avatar
yugioh_thcsch2
PRO TOÁN
PRO TOÁN

Tổng số bài gửi : 124
điểm điểm : 182
Birthday : 08/02/1998
Đến từ : Thái Nguyên
Job/hobbies : học sinh

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Viết chương trình xác định xem một số có phải là số nguyên tố hay không ?

Bài gửi by yugioh_thcsch2 on Mon 22 Oct 2012, 5:25 pm

Làm thử cái nào ^^
program snt;
uses crt;
var a,n,i:integer;
u: array[1..99] of integer;
begin
clrscr;
n:=0;
write('So can kiem tra la a= '); readln(a);
if a>=2 then begin
for i:=1 to a do
if a mod i = 0 then begin n=n+1; u[i]:=i end;
if n=2 then writeln(a,' la so nguyen to')
else begin
writeln('Cac uoc so cua ',a,' la:');
for i:=1 to a do
if u[i]<>0 then write(u[i]:6);
end;
end;
readln;
end.

Lâu ko chơi cái này, năm ngoái ôn cật lực thế rồi cô bảo ko thi nữa nên chán, có gì sai sót xin chỉ bảo, hỳ hỳ Very Happy


-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Đừng bao giờ tự thỏa mãn vì những gì đã làm được, hãy luôn cố tự thực hiện những điều mình chưa làm được, đỉnh cao trí tuệ không bao giờ đón chào những kẻ tự cao.
avatar
yugioh_thcsch2
PRO TOÁN
PRO TOÁN

Tổng số bài gửi : 124
điểm điểm : 182
Birthday : 08/02/1998
Đến từ : Thái Nguyên
Job/hobbies : học sinh

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Viết chương trình xác định xem một số có phải là số nguyên tố hay không ?

Bài gửi by teacher on Tue 30 Oct 2012, 2:10 am

@tramy_8a đã viết:teacher oi cho em hoi: tai Pascal o dau a?
tải ở chuyên mục phần mềm thủ thuật nhé !

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Em sẽ lớn lên như tôi đã từng khôn lớn
và sẽ bay cao bay xa hơn tôi ..... !!!
* thành viên câu lạc bộ học khuya*

avatar
teacher
CỐ VẤN
CỐ VẤN

Nam
Tổng số bài gửi : 352
điểm điểm : 800
Đến từ : classicfat32@gmail.com

Xem lý lịch thành viên https://sites.google.com/site/dayhocdientu/

Về Đầu Trang Go down

Re: Viết chương trình xác định xem một số có phải là số nguyên tố hay không ?

Bài gửi by teacher on Tue 30 Oct 2012, 2:21 am

@yugioh_thcsch2 đã viết:Làm thử cái nào ^^
program snt;
uses crt;
var a,n,i:integer;
u: array[1..99] of integer;
begin
clrscr;
n:=0;
write('So can kiem tra la a= '); readln(a);
if a>=2 then begin
for i:=1 to a do
if a mod i = 0 then begin n=n+1; u[i]:=i end;
if n=2 then writeln(a,' la so nguyen to')
else begin
writeln('Cac uoc so cua ',a,' la:');
for i:=1 to a do
if u[i]<>0 then write(u[i]:6);
end;
end;
readln;
end.

Năm nay có tham gia thi cái này nữa không ? chương trình trên bị thừa số phép tính vẫn chưa tối ưu hóa , mảng chỉ giới hạn đến giá trị 100 thôi sao ? Nếu số lớn hơn lại chịu người dùng đâu có biết được điều đó mà số bé trong phạm vi 100 thì cần gì chương trình (nên để là số tối đa có thể - là số nguyên lớn nhất chẳng hạn ) , kiểm tra lại và có gì thì thắc mắc nhé !
Em xem chương trình này thày đã làm tại đây https://sites.google.com/site/dayhocdientu/homepage/encyclopedias-databases/phanmemkiemtrasonguyentodungdelienketvoibaigiang

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Em sẽ lớn lên như tôi đã từng khôn lớn
và sẽ bay cao bay xa hơn tôi ..... !!!
* thành viên câu lạc bộ học khuya*

avatar
teacher
CỐ VẤN
CỐ VẤN

Nam
Tổng số bài gửi : 352
điểm điểm : 800
Đến từ : classicfat32@gmail.com

Xem lý lịch thành viên https://sites.google.com/site/dayhocdientu/

Về Đầu Trang Go down

Chuong trinh kiem tra xem so co phai la so nguyen to hay k

Bài gửi by xuanhoang_ch2 on Tue 26 Mar 2013, 9:31 pm

program snt;
uses crt;
var x, d, i : integer;
begin clrscr;
d:=0;
write (' Nhap so='); readln(x);
for i:=1 to x div 2 do
if x mod i =0 then inc(d);
if d=2 then writeln(' So vua nhap la SNT!')
elsse writeln('So vua nhap khong la SNT!');
readln;
end.

Thay xem bai cua em co duoc k thay


Được sửa bởi xuanhoang_ch2 ngày Thu 28 Mar 2013, 9:24 am; sửa lần 1.
avatar
xuanhoang_ch2
PRO TOÁN
PRO TOÁN

Nam
Tổng số bài gửi : 8
điểm điểm : 6
Birthday : 10/12/1999
Job/hobbies : học sinh

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Viết chương trình xác định xem một số có phải là số nguyên tố hay không ?

Bài gửi by Classic - VAN THIEM on Tue 26 Mar 2013, 9:40 pm

@xuanhoang_ch2 đã viết:program snt;
var x, d, i : integer;
begin
d:=0;
write (' Nhap so='); readln(so);
for i:=1 to x div 2 do
if x mod i =0 then inc(d);
if d=2 then writeln(' So vua nhap la SNT!')
elsse writeln('So vua nhap khong la SNT!');
readln;
end.

Thay xem bai cua em co duoc k thay
inc(d)
phần màu đỏ là phần cần giải thích , không có trong khai báo và thủ tục nào !
nếu là chương trình con hay thủ tục nào cần phải có khai báo sử dụng chứ !
thầy không sửa ngay cho em chỗ nào để em tự suy nghĩ nhá !

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Em sẽ lớn lên như tôi đã từng khôn lớn
và sẽ bay cao bay xa hơn tôi ..... !!!
* thành viên câu lạc bộ học khuya*
classicfat32@gmail.com
MIE Thiemvan@outlook.com
https://sites.google.com/site/dayhocdientu/
https://www.facebook.com/thiemvan.ngo.39
CHÚT LÃNG MẠN http://sacmauthoigian.wordpress.com/category/classic/
avatar
Classic - VAN THIEM
Admin
Admin

Nam
Tổng số bài gửi : 324
điểm điểm : 878
Birthday : 27/10/1979
Đến từ : classicfat32@gmail.com

Xem lý lịch thành viên https://sites.google.com/site/dayhocdientu/

Về Đầu Trang Go down

Re: Viết chương trình xác định xem một số có phải là số nguyên tố hay không ?

Bài gửi by Classic - VAN THIEM on Tue 26 Mar 2013, 9:54 pm

- inc(i) : là tăng số nguyên lên 1 đơn vị, với i phải là số nguyên (integer, word, char).
Nếu i là ký tự "A", sau lệnh INC(i) thì i sẽ trở thành "B".
- inc(i,x) : là tăng số nguyên i lên x đơn vị, cả i và x cùng 1 kiểu dữ liệu.

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Em sẽ lớn lên như tôi đã từng khôn lớn
và sẽ bay cao bay xa hơn tôi ..... !!!
* thành viên câu lạc bộ học khuya*
classicfat32@gmail.com
MIE Thiemvan@outlook.com
https://sites.google.com/site/dayhocdientu/
https://www.facebook.com/thiemvan.ngo.39
CHÚT LÃNG MẠN http://sacmauthoigian.wordpress.com/category/classic/
avatar
Classic - VAN THIEM
Admin
Admin

Nam
Tổng số bài gửi : 324
điểm điểm : 878
Birthday : 27/10/1979
Đến từ : classicfat32@gmail.com

Xem lý lịch thành viên https://sites.google.com/site/dayhocdientu/

Về Đầu Trang Go down

Re: Viết chương trình xác định xem một số có phải là số nguyên tố hay không ?

Bài gửi by luumanh9x99 on Wed 27 Mar 2013, 4:00 pm

ct của em là:

program ct123;
uses crt;
var i,a:longint;
begin
clrscr;
i:=2;
write('nhap so nguyen(>1) de xet, a= ');
readln(a);
If a<2 Then writeln('so nhap sai, an Enter de nhap lai...') else
If a=2 then writeln(a,' la so nguyen to') else
begin
while (a mod i<>0) do i:=i+1; {nhu vay, neu a chia het cho i, cau lenh se dung lap}
if i=a then writeln(a,' la so nguyen to') else writeln(a,' khong phai so nguyen to');
{do neu i chay toi a tuc la a k chia het cho so i nao toi khi i=a ==> a ,la so nguyen to}
end;
readln;
End.

thầy thấy thế nào, được thì nhắn tin cho em,

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
facebook.com/duc.luumanh.pro
avatar
luumanh9x99
PRO TIN
PRO TIN

Nam
Tổng số bài gửi : 60
điểm điểm : 84
Birthday : 30/01/1999
Đến từ : THPT Chuyên Thái Nguyên
Job/hobbies : hoc sinh

Xem lý lịch thành viên http://xonefm.com

Về Đầu Trang Go down

Re: Viết chương trình xác định xem một số có phải là số nguyên tố hay không ?

Bài gửi by Classic - VAN THIEM on Fri 29 Mar 2013, 3:12 am

@luumanh9x99 đã viết:
begin
while (a mod i<>0) do i:=i+1; {nhu vay, neu a chia het cho i, cau lenh se dung lap}
if i=a then writeln(a,' la so nguyen to') else writeln(a,' khong phai so nguyen to');
{do neu i chay toi a tuc la a k chia het cho so i nao toi khi i=a ==> a ,la so nguyen to}
end;
có cách nào tối ưu hóa hơn không ? chắc có đấy vì bị dữ liệu thừa từ a div 2 đến a

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Em sẽ lớn lên như tôi đã từng khôn lớn
và sẽ bay cao bay xa hơn tôi ..... !!!
* thành viên câu lạc bộ học khuya*
classicfat32@gmail.com
MIE Thiemvan@outlook.com
https://sites.google.com/site/dayhocdientu/
https://www.facebook.com/thiemvan.ngo.39
CHÚT LÃNG MẠN http://sacmauthoigian.wordpress.com/category/classic/
avatar
Classic - VAN THIEM
Admin
Admin

Nam
Tổng số bài gửi : 324
điểm điểm : 878
Birthday : 27/10/1979
Đến từ : classicfat32@gmail.com

Xem lý lịch thành viên https://sites.google.com/site/dayhocdientu/

Về Đầu Trang Go down

Re: Viết chương trình xác định xem một số có phải là số nguyên tố hay không ?

Bài gửi by luumanh9x99 on Sat 30 Mar 2013, 9:49 am

ct của em là:

program ct123;
uses crt;
var i,a:longint;
begin
clrscr;
i:=2;
write('nhap so nguyen(>1) de xet, a= ');
readln(a);
If a<2 Then writeln('so nhap sai, an Enter de nhap lai...') else
If a=2 then writeln(a,' la so nguyen to') else
begin
while (a mod i<>0) do i:=i+1; {nhu vay, neu a chia het cho i, cau lenh se dung lap}
if i=a then writeln(a,' la so nguyen to') else writeln(a,' khong phai so nguyen to');
{do neu i chay toi a tuc la a k chia het cho so i nao toi khi i=a ==> a ,la so nguyen to}
end;
readln;
End.


-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
facebook.com/duc.luumanh.pro
avatar
luumanh9x99
PRO TIN
PRO TIN

Nam
Tổng số bài gửi : 60
điểm điểm : 84
Birthday : 30/01/1999
Đến từ : THPT Chuyên Thái Nguyên
Job/hobbies : hoc sinh

Xem lý lịch thành viên http://xonefm.com

Về Đầu Trang Go down

Re: Viết chương trình xác định xem một số có phải là số nguyên tố hay không ?

Bài gửi by luumanh9x99 on Sat 30 Mar 2013, 3:31 pm

ct của em là:

program ct123;
uses crt;
var i,a:longint;
begin
clrscr;
i:=2;
write('nhap so nguyen(>1) de xet, a= ');
readln(a);
If a<2 Then writeln('so nhap sai, an Enter de nhap lai...') else
If a=2 then writeln(a,' la so nguyen to') else
begin
while (a mod i<>0) do i:=i+1;
if i=a then writeln(a,' la so nguyen to') else
begin
write(a,' la hop so, cac uoc cua a la: ');
i:=2;
while i<=a-1 do begin
If (a mod i=0) write(i,' ; ');
i:=i+1;
End;
End;
end;
readln;
End.

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
facebook.com/duc.luumanh.pro
avatar
luumanh9x99
PRO TIN
PRO TIN

Nam
Tổng số bài gửi : 60
điểm điểm : 84
Birthday : 30/01/1999
Đến từ : THPT Chuyên Thái Nguyên
Job/hobbies : hoc sinh

Xem lý lịch thành viên http://xonefm.com

Về Đầu Trang Go down

Re: Viết chương trình xác định xem một số có phải là số nguyên tố hay không ?

Bài gửi by Classic - VAN THIEM on Sat 30 Mar 2013, 3:33 pm

@luumanh9x99 đã viết:ct của em là:

program ct123;
uses crt;
var i,a:longint;
begin
clrscr;
i:=2;
write('nhap so nguyen(>1) de xet, a= ');
readln(a);
If a<2 Then writeln('so nhap sai, an Enter de nhap lai...') else
If a=2 then writeln(a,' la so nguyen to') else
begin
while (a mod i<>0) do i:=i+1; {nhu vay, neu a chia het cho i, cau lenh se dung lap}
if i=a then writeln(a,' la so nguyen to') else writeln(a,' khong phai so nguyen to');
{do neu i chay toi a tuc la a k chia het cho so i nao toi khi i=a ==> a ,la so nguyen to}
end;
readln;
End.

ấn enter để nhập lại được không ?
và có thể loại được các giá trị thừa như thầy đã nói được không ?

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Em sẽ lớn lên như tôi đã từng khôn lớn
và sẽ bay cao bay xa hơn tôi ..... !!!
* thành viên câu lạc bộ học khuya*
classicfat32@gmail.com
MIE Thiemvan@outlook.com
https://sites.google.com/site/dayhocdientu/
https://www.facebook.com/thiemvan.ngo.39
CHÚT LÃNG MẠN http://sacmauthoigian.wordpress.com/category/classic/
avatar
Classic - VAN THIEM
Admin
Admin

Nam
Tổng số bài gửi : 324
điểm điểm : 878
Birthday : 27/10/1979
Đến từ : classicfat32@gmail.com

Xem lý lịch thành viên https://sites.google.com/site/dayhocdientu/

Về Đầu Trang Go down

Re: Viết chương trình xác định xem một số có phải là số nguyên tố hay không ?

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết