Viết chương trình pascal

[Võ Nguyễn Thu Uyên]

[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 chương trình pascal cho đề sau:
Cho số tự nhiên N, hãy:
a. đưa ra các ước của N
b. đếm xem có bao nhiêu ước
c. tính tổng các ước thực
d. Ncó phải là số nguyên tố không

 

[Nguyễn Thánh Tiền]

viết chương trình pascal cho đề sau:
Cho số tự nhiên N, hãy:
a. đưa ra các ước của N
b. đếm xem có bao nhiêu ước
c. tính tổng các ước thực
d. Ncó phải là số nguyên tố không

em cần gợi ý hay cần code

 

[Võ Nguyễn Thu Uyên]

em cần gợi ý hay cần code

bài làm cụ thể ạ. Giúp nha. Dùng "for... to... do" với " If ... then" ý.

 

[realjacker07]

Mình không viết hộ bạn đâu, chỉ đưa cho bạn một vài gợi ý:
a) Ước của N(Ư) phải chia hết cho N, vậy thì chỉ cần kiểm tra xem N mod Ư = 0 hay khác 0
b) Theo công thức sau nhé:
[tex]N = m^{a}.n^{b} \rightarrow N co x + 1 Uoc[/tex]
c)nếu x phân tích ra thừa số nguyên tố dạng [tex]N=m^{a}.n^{b}[/tex] thì tổng các ước dương của x là [tex](m^{a-1} + m^{a-2} + m^{a-3}+...+1).(n^{b}+n^{b-1}+n^{b-2}+n^{b-3}+...+1)[/tex]

 

[Võ Nguyễn Thu Uyên]

d) Bạn xem thử ở đây và ở đây nhé:
https://daynhauhoc.com/t/wiki-ham-kiem-tra-so-nguyen-to-trong-c-c/2171
https://vi.wikipedia.org/wiki/Kiểm_tra_tính_nguyên_tố

cảm ơn nha, nhưng mấy cái đó tụ mk chưa học

 

[realjacker07]

Tốt nhất, khi làm những công việc như việc code, cần phải có tư duy thì mình không nên nhờ người khác làm hộ bài. Việc làm hộ bài dễ sinh ra tâm lý lười suy nghĩ. Lấy ví dụ như diễn đàn stackoverflow, những thành viên trên ấy rất ghét việc nhờ viết hộ code. Mình đưa cho bạn các gợi ý như vậy rồi từ từ áp dụng. Khi làm mà thấy có lỗi mà không tự mình sửa được mới nhờ trên diễn đàn.
Chúc bạn học tốt )

cảm ơn nha, nhưng mấy cái đó tụ mk chưa học

Đơn giản hơn, lúc bạn tìm ra câu a) nếu ước của nó chỉ có 1 và chính nó thì câu d) sẽ có kết quả là số nguyên tố.

 

[Võ Nguyễn Thu Uyên]

Tốt nhất, khi làm những công việc như việc code, cần phải có tư duy thì mình không nên nhờ người khác làm hộ bài. Việc làm hộ bài dễ sinh ra tâm lý lười suy nghĩ. Lấy ví dụ như diễn đàn stackoverflow, những thành viên trên ấy rất ghét việc nhờ viết hộ code. Mình đưa cho bạn các gợi ý như vậy rồi từ từ áp dụng. Khi làm mà thấy có lỗi mà không tự mình sửa được mới nhờ trên diễn đàn.
Chúc bạn học tốt )

mk biết. Nhưng đang bí lắm cơ. Với lại mk làm nãy giờ toàn sai nên mới lên đây nhờ...

 

[realjacker07]

mk biết. Nhưng đang bí lắm cơ. Với lại mk làm nãy giờ toàn sai nên mới lên đây nhờ...

Mình không giỏi pascal lắm đâu, kiểu như nó không phải trọng tâm của mình
Bạn có thể nhờ các bạn khác tìm bug và fix nhé!

 

[Nguyễn Thánh Tiền]

mk biết. Nhưng đang bí lắm cơ. Với lại mk làm nãy giờ toàn sai nên mới lên đây nhờ...

sai upcode lên đây anh sửa, anh cũng ghét những người đi xin code

 

[Nguyễn Thánh Tiền]

gợi ý

for i =1 to n do

if n mod i==0 then

begin

viết ra ;

đếm ;
tính tổng ;
end;
if đêm ==2 thẹn là nguyên tố

 

[Nguyễn Thánh Tiền]

Mình không viết hộ bạn đâu, chỉ đưa cho bạn một vài gợi ý:
a) Ước của N(Ư) phải chia hết cho N, vậy thì chỉ cần kiểm tra xem N mod Ư = 0 hay khác 0
b) Theo công thức sau nhé:
[tex]N = m^{a}.n^{b} \rightarrow N co x + 1 Uoc[/tex]
c)nếu x phân tích ra thừa số nguyên tố dạng [tex]N=m^{a}.n^{b}[/tex] thì tổng các ước dương của x là [tex](m^{a-1} + m^{a-2} + m^{a-3}+...+1).(n^{b}+n^{b-1}+n^{b-2}+n^{b-3}+...+1)[/tex]

đúng nếu đây là dân toán em nhé

 

[Nguyễn Thánh Tiền]

mk biết. Nhưng đang bí lắm cơ. Với lại mk làm nãy giờ toàn sai nên mới lên đây nhờ...

sai upcode anh sửa

sau đây là gợi y

for i=1 to n do
if n mod i==0 then
begin
in ra;

tinh tong

dem
end;

if dem==2 then la so nguyen to

 

[H.Đ.O.M.G]

định viết code cho em ý mà chả biết nên ko

 

[Nguyễn Thánh Tiền]

định viết code cho em ý mà chả biết nên ko

anh gợi ý hết cỡ rồi viết hộ em nó đi Anh quên hết từ khóa rồi