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

awlq said:

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.

Bấm để xem đầy đủ nội dung ...

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;

awlq said:

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

Bấm để xem đầy đủ nội dung ...

awlq said:

À 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 ạ.

Bấm để xem đầy đủ nội dung ...

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

awlq said:

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ứ ạ?

Bấm để xem đầy đủ nội dung ...

awlq said:

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

Bấm để xem đầy đủ nội dung ...

awlq said:

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

Bấm để xem đầy đủ nội dung ...

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;