Tính Tổng Số Nguyên Tố Trong Mảng - Em Yêu Tin Học

Trang chủ » Hàm Số Nguyên Tố Pascal » Tính Tổng Số Nguyên Tố Trong Mảng - Em Yêu Tin Học

Có thể bạn quan tâm

Close Menu Facebook Pinterest YouTube LinkedIn Flickr Tiêu điểm :
  • Đạo đức và An toàn trong Thế giới Số
  • Lớp 1 – Ôn tập tin học HK1 2025-2026
  • Lớp 2 – Ôn tập tin học HK1 2025-2026
  • Lớp 3 – Ôn tập tin học HK1 2025-2026
  • Lớp 4 – Ôn tập tin học HK1 2025-2026
  • Lớp 5 – Ôn tập tin học HK1 2025-2026
  • Quan Điểm và Thiên Kiến IC3 Digital Literacy
  • Test Internet và các khái niệm
Facebook YouTube Pinterest Flickr LinkedIn X (Twitter) Instagram WhatsApp EM YÊU TIN HỌC Em yêu tin học EM YÊU TIN HỌC Bài tập Pascal Tính tổng số nguyên tố trong mảngEm Yêu Tin HọcBy Em Yêu Tin Học26 Tháng 7, 2016Updated:21 Tháng 6, 202014 Bình luận2 Mins Read Facebook Twitter Pinterest LinkedIn Tumblr Email Thêm dòng, cột vào mảng hai chiều. Thêm dòng, cột vào mảng hai chiều.

Một bạn có hỏi cách giải bài lập trình pascal như nhau :

Nội dung chính

  • 1. Nhập vào mảng n phần tử xuất ra tổng của các số nguyên tố trong mảng đó.
  • 2. Dùng chương trình con.
  • 3. Không dùng chương trình con.

1. Nhập vào mảng n phần tử xuất ra tổng của các số nguyên tố trong mảng đó.

Đây là một đề tương đối dễ, do đó chúng tôi sẽ trình bày bài ở dạng sử dụng hàm để các bạn tiếp nhận thêm kiến thức. Hàm ở đây tên là NT với tham trị đưa vào là một con số và hàm này sẽ kiểm tra xem số đó có phải là số nguyên tố hay không, việc kiểm tra được thực hiện qua vòng lặp tối ưu While (n mod i <> 0)and(i<Sqrt(n)), các bạn có thể xem lại bài in ra các số nguyên tố ở đây.

Các bạn có thể thấy khi nhập số phần tử của mảng chúng tôi để nó trong vòng lặp, điều này đảm bảo rằng người nhập không thể nhập số âm hay lớn hơn max. Nếu cố tình nhập vòng lặp không thỏa điều kiện và người dùng sẽ phải nhập lại tuy nhiêu nếu họ cố ý nhập vào chuỗi hay số thực thì đành chịu.

2. Dùng chương trình con.

Program tong_cac_so_ng_to_trong_mang; Uses crt ; Const Max = 500; Type mang = Array[1..max] of integer; Var S,n,i:integer; A:mang; Function NT(n:integer):boolean; Var i:integer; Begin If (n=0)Or(n=1) then NT:=False Else Begin i:=2; While (n mod i <> 0)and(i<Sqrt(n)) do i:=i+1; If i>Sqrt(n) then NT:=True Else Nt:=False; End; End; {Function NT} Begin {Chuong trinh chinh} Repeat Clrscr; Write('Ban nhap mang co bao nhieu phan tu : '); Readln(n); Until (n<=max)And(n>0); For i:=1 to n do Begin Write('A[',i,']='); Readln(A[i]); End; S:=0; For i:=1 to n do If NT(A[i]) then S:=S+A[i]; Write('Tong cac so nguyen to trong mang = ',S); Readln; End.

3. Không dùng chương trình con.

Program tong_cac_so_ng_to_trong_mang; Uses crt ; Const Max = 500; Type mang = Array[1..max] of integer; Var S,n,i,j:integer; A:mang; NT:boolean; Begin {Chuong trinh chinh} Repeat Clrscr; Write('Ban nhap mang co bao nhieu phan tu : '); Readln(n); Until (n<=max)And(n>0); For i:=1 to n do Begin Write('A[',i,']='); Readln(A[i]); End; S:=0; For i:=1 to n do Begin j:=2; While (A[i] mod j <> 0)and(j<Sqrt(A[i])) do j:=j+1; If j>Sqrt(A[i]) then NT:=True Else Nt:=False; If NT then S:=S+A[i]; End; Write('Tong cac so nguyen to trong mang = ',S); Readln; End. 4.3 12 votes Đánh giá bài viết Share. Facebook Twitter Pinterest LinkedIn Tumblr Email Previous ArticleTìm hiểu về Hub, Repeater, Router, Switch, Bridge, Gateway. Next Article MSWLogo vẽ hình xoắn ốc Em Yêu Tin Học
  • Website
  • Facebook

٩(●̮̮̃•̃)۶ Không có lẽ yêu trên đời quá khó ٩(͡๏̯͡๏)۶ Mà thôi yêu cũng chẳng dễ chút nào! ٩(×̯×)۶

Related Posts

TurboWarp: Một Phiên Bản Cải Tiến của Scratch

Tin học trẻ Tuy Phong – Bình Thuận 2024

Chuyển SB3 thành ứng dụng Windows .exe (sb3 to exe)

Subscribe Thông báo khi có bình luận mới khi trả lời bình luận của tôi guest Label [+] Name* Email* WebSite URL guest Label [+] Name* Email* WebSite URL 14 Góp ý oldest newest most voted Inline Feedbacks View all comments Nam Nam 8 years ago

Function là gì ạ

0 Trả lời Em Yêu Tin Học Em Yêu Tin Học Author Reply to Nam 8 years ago

Là một chương trình con gọi là hàm nó trả về một giá trị khác với Procedure cũng là chương trình con nhưng không trả về giá trị, hình như lớp 8 thì chưa học cái này. Bạn có thể hình dung clrscr là một procedure đã được viết sẵn Sqtr là hàm cũng đã được viết sẵn, bạn muốn sử dụng cái mà chưa được viết ra thì bạn khai báo là Function hoặc procedure 🙂

0 Trả lời Tấn Dũng Tấn Dũng 7 years ago

Hay a

0 Trả lời Duy Duy 7 years ago

chương tình này có trong kiến thức 11 ko ???

1 Trả lời Em Yêu Tin Học Em Yêu Tin Học Author Reply to Duy 7 years ago

Lớp 11 đã học qua mảng rồi, nhưng không phải là không ra đề kiểu này.

1 Trả lời húc húc 7 years ago

Làm cách nào để xuất các số nguyên tố liên tiếp dài nhất?

-1 Trả lời liên liên 7 years ago

muốn viết riêng trong mảng thôi, ko muôn dùng chương trình con, mong được giúp ạ

-1 Trả lời Em Yêu Tin Học Em Yêu Tin Học Author Reply to liên 7 years ago

Cái này dễ mà, bê nguyên code ở function xuống tạo thêm 2 biến là được thôi.

1 Trả lời Lig Lig 6 years ago

Giúp em viết chuiwng trình tính tổng các số âm trong mảng số nguyên gồm N phần tử vs ạ

1 Trả lời Em Yêu Tin Học Em Yêu Tin Học Author Reply to Lig 6 years ago

For i:=1 to n do If A[i]<0 then S:=S+A[i]; ý chính chỉ có dòng này thôi, bài này dễ bạn nên tự làm.

1 Trả lời T.s T.s 6 years ago

Viết chương trình tính trung bình cộng các số trong mảng số nguyên gồm N phần tử

1 Trả lời Em Yêu Tin Học Em Yêu Tin Học Author Reply to T.s 6 years ago

Ý chính như thế này thôi For i:=1 to n do S:=S+A[i]; TBC:=S/n;

0 Trả lời Chi Chi 6 years ago

Viết chương trình đếm số nguyên tố trong khoảng p-q thì nn ạ

1 Trả lời Em Yêu Tin Học Em Yêu Tin Học Author Reply to Chi 6 years ago

Bạn khai báo các biến p,q,i,dem_so_nt, giữ lại hàm NT sau khi nhập p,q gán dem_so_nt:=0; thì chỉ như thế này thôi. For i:=p to q if NT(i) then inc(dem_so_nt)

1 Trả lời
  • Bài Viết Mới
  • Phổ Biến
19 Tháng 12, 2025

Đạo đức và An toàn trong Thế giới Số

5 Tháng 12, 2025

Lớp 1 – Ôn tập tin học HK1 2025-2026

5 Tháng 12, 2025

Lớp 2 – Ôn tập tin học HK1 2025-2026

5 Tháng 12, 2025

Lớp 3 – Ôn tập tin học HK1 2025-2026

5 Tháng 12, 2025

Lớp 4 – Ôn tập tin học HK1 2025-2026

5 Tháng 12, 2025

Lớp 5 – Ôn tập tin học HK1 2025-2026

24 Tháng 4, 2016

Một số lệnh căn bản trong MSWLogo.

24 Tháng 4, 2016

Lệnh rẽ nhánh trong MSWLogo.

31 Tháng 7, 2016

MSWLogo Vẽ cờ đỏ sao vàng – Quốc kỳ Việt Nam

5 Tháng 1, 2018

Hướng dẫn giải một số bài tập Scratch.

8 Tháng 6, 2016

MSWLogo vẽ ngôi sao.

2 Tháng 9, 2016

Giải đề thi tài năng trẻ tin học toàn quốc 2016

Bình luận gần đây
  • Em Yêu Tin Học trong 01. Ôn Tập IC3 GS6 Level 3.
  • Asa Enami trong 01. Ôn Tập IC3 GS6 Level 3.
  • Phungngocdiem trong Tổng hợp IC3 Spark level 1
  • Nguyễn Khánh Duy trong Ôn Tập IC3 – GS6 Level 1
  • lê nhã khanh trong IC3 Spark Level 2 Test 1
Các bài trắc nghiệm

💥IC3 Spark -Level 1 Trắc nghiệm lập trình Scratch Trắc nghiệm lập trình MSWLogo Trắc nghiệm tin học văn phòng Trắc nghiệm ôn tập IC3 P1 Trắc nghiệm ôn tập IC3 P2 Living Online Spark Test LTTH cùng IC3 Spark Test IC3 GS5 -Computing Fundamentals IC3 GS6 -Level 1 IC3 GS6 -Level 2 (7,8) Module 4 - CNTT Tiểu học

Videos hướng dẫn
subscribeTheo dõi kênh Youtube« Prev1 / 16Next »loadingplay2 1 practice tasksplayLập trình với KudoplayPowerPoint - Chuyển động theo đường vẽ« Prev1 / 16Next »loading Submit

Type above and press Enter to search. Press Esc to cancel.

140Hãy để lại bình luận của bạn nhé!x()x| Trả lờiInsert

Từ khóa » Hàm Số Nguyên Tố Pascal