Tin học Bài tập lập trình Pascal lớp 11

[awlq]

[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.

Mọi người giúp em với, hoặc là chỉ cho em cái sườn, em cần phải làm những gì chứ giờ em không biết phải làm gì hết ạ. Em xin cảm ơn.
Bài tập: Viết chương trình ghi tất cả các số nguyên tố nằm trong từ 0 đến 2000 vào tệp NGUYENTO.DAT. Yêu cầu các số nguyên tố phải được ghi vào tệp theo thứ tự từ nhỏ đến lớn, mỗi số được ghi trên 1 dòng và cuối chương trình xuất hiện trên màn hình thông báo có bao nhiêu số nguyên tố đã được ghi vào tệp. Sau đó đọc tất cả các số nguyên tố chứa trong tệp NGUYENTO.DAT và ghi vào tệp TONG.DAT tổng các số nguyên tố chứa trong tệp NGUYENTO.DAT.

 

[Trâm Nguyễn Thị Ngọc]

Mọi người giúp em với, hoặc là chỉ cho em cái sườn, em cần phải làm những gì chứ giờ em không biết phải làm gì hết ạ. Em xin cảm ơn.
Bài tập: Viết chương trình ghi tất cả các số nguyên tố nằm trong từ 0 đến 2000 vào tệp NGUYENTO.DAT. Yêu cầu các số nguyên tố phải được ghi vào tệp theo thứ tự từ nhỏ đến lớn, mỗi số được ghi trên 1 dòng và cuối chương trình xuất hiện trên màn hình thông báo có bao nhiêu số nguyên tố đã được ghi vào tệp. Sau đó đọc tất cả các số nguyên tố chứa trong tệp NGUYENTO.DAT và ghi vào tệp TONG.DAT tổng các số nguyên tố chứa trong tệp NGUYENTO.DAT.

Có thể viết một CTC để kiểm tra số nguyên tố

Function snt(a:integer):boolean;
  Var kt:=boolean;
 begin
  kt:=true;
  For i:=1 to a-1 do
   if a mod i=0 then kt:=false;
  snt:=kt;
 end;

Còn phần tính tổng thì em nghĩ anh/chị làm đc rồi

 

[awlq]

tg:=a;a:=a[j];a[j]:=tg;

Cái đây có ý nghĩa gì thế ạ?

 

[Trâm Nguyễn Thị Ngọc]

Cái đây có ý nghĩa gì thế ạ?

Là đổi chỗ đó ạ, nếu mà a[ i ]>a[ j ] thì em sẽ đổi chỗ a[ i ] và a[ j ] với nhau thông qua biến trung gian

 

[awlq]

Là đổi chỗ đó ạ, nếu mà a[ i ]>a[ j ] thì em sẽ đổi chỗ a[ i ] và a[ j ] với nhau thông qua biến trung gian

À dạ vâng ạ. Cảm ơn bạn nhiều ạ.

để kiểm tra số nguyên tố

À bạn ơi, kiểu như mình muốn kiểm tra từ 1-50 có bao nhiêu số nguyên tố thì mình phải viết như nào ạ? Như cách bạn viết có vẻ là phải nhập từng số vô nhưng nếu với số lượng lớn quá thì mình không biết phải làm sao ạ.

 

[Trâm Nguyễn Thị Ngọc]

À bạn ơi, kiểu như mình muốn kiểm tra từ 1-50 có bao nhiêu số nguyên tố thì mình phải viết như nào ạ? Như cách bạn viết có vẻ là phải nhập từng số vô nhưng nếu với số lượng lớn quá thì mình không biết phải làm sao ạ.

Không cần nhập đâu ạ, nếu anh/chị muốn đếm xem từ 1-50 có bao nhiêu snt thì như này:

d:=0;
For i:=1 to 50 do
 if snt(i)=true then d:=d+1;

Nhưng mà phải kết hợp với cái CTC em viết trên kia nữa ạ
p/s:Anh/chị thông cảm, em vốn định viết Code luôn mà h hơi mệt nên chỉ nói thuật toán đc thôi

 

[awlq]

Không cần nhập đâu ạ, nếu anh/chị muốn đếm xem từ 1-50 có bao nhiêu snt thì như này:

d:=0;
For i:=1 to 50 do
 if snt(i)=true then d:=d+1;

Nhưng mà phải kết hợp với cái CTC em viết trên kia nữa ạ
p/s:Anh/chị thông cảm, em vốn định viết Code luôn mà h hơi mệt nên chỉ nói thuật toán đc thôi

Dạ vâng ạ, để mình làm thử, nếu gặp gì không biết mình lại hỏi bạn được chứ ạ?

 

[Trâm Nguyễn Thị Ngọc]

Dạ vâng ạ, để mình làm thử, nếu gặp gì không biết mình lại hỏi bạn được chứ ạ?

Vâng ạ,nếu câu hỏi nằm trong khả năng của em thì em sẽ cố hết sức ạ

 

[awlq]

Vâng ạ,nếu câu hỏi nằm trong khả năng của em thì em sẽ cố hết sức ạ

Mình gặp khủng hoảng rồi bạn ơi ))) chỉnh hộ mình chỗ số nguyên tố với

 

[Trâm Nguyễn Thị Ngọc]

Mình gặp khủng hoảng rồi bạn ơi ))) chỉnh hộ mình chỗ số nguyên tố với
View attachment 108208

Mình gặp khủng hoảng rồi bạn ơi ))) chỉnh hộ mình chỗ số nguyên tố với
View attachment 108208

Hình như chị hiểu sai ý em rồi thì phải, phần CTC để kiểm tra số nguyên tố là ở trên đầu CT, sau phần khai báo thôi ạ, nếu không dùng CTC thì chị có thể viết như này

For i:=2 to 50 do
 begin
  kt:=true;
  For j:=2 to i-1 do
    if i mod j=0 then kt:=false;
  if kt=true then
    begin
      dem:=dem+1;
      writeln(f,i);
    end;
end;

Không được đem CT con vào phần CT chính được đâu ạ