Viết chương trình pascal đếm số nguyên tố

Trong bài viết trước, Code Pascal đã giới thiệu cách xác định tính nguyên tố của 1 số được nhập vào từ bàn phím. Mở rộng đề bài ra thành đếm số nguyên tố trong dãy số N được nhập vào từ bàn phím cũng không quá khó.

Có rất nhiều cách để giải bài toán này, cách dưới đây tuy không bám sát vào cách làm trong bài viết Kiểm tra số nguyên tổ trong pascal nhưng cũng khá dễ hiểu.

var i,j,n:Integer;

    A:array[1..50] of Integer;

begin

      write('nhap n:');

      readln(n);

      for i:=1 to n do

      begin

            write('nhap a[',i,'] ');

            readln(a[i]);

      end;

      j:=1;

      for i:=1 to n do

            if a[i]>1 then

            begin

                 repeat

                       inc(j);

                 until (a[i] mod j=0);

                 if j>(a[i] div 2) then inc(d);

                 j:=1;

            end;

      write('Co ',d,' so ngto trog day');

      readln;

end.

Related Posts : Bài tập Pascal,Mảng 1 chiều,Pascal cơ bản

Nhãn: Bài tập Pascal, Mảng 1 chiều, Pascal cơ bản

Program NN;
Uses crt;
Var n,i,d: longint;

Function ngto(a: longint): boolean;
Var i: longint;
Begin
        If a<2 then exit(false);
        For i:=2 to trunc(sqrt(a)) do
                If a mod i = 0 then exit(false);
        exit(true);
End;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0;
        For i:=1 to n do
                If ngto(i) then inc(d);
        Write('D = ',d);
        Readln
End.

Được gửi bởi Project_T

có ai chỉ em BT pascal nay ko :
cho N so bat ki; {n la so duoc nhap tu ban phim}
dem cac so lon hon 10 va nho hon 20 sau do tinh tong cua chung;
sau do dua ra man hinh :
cac so >10 va <20 la: {gia tri} {liet ke}
tong cua chung la: {gia tri}
lam on ghi loi giai con khong viet cach giai gium em; {X.X}

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.

Xin giới thiệu với các bạn bài số 2 trong đề thi HSG tin 9 TP Bảo Lộc năm học 2018 – 2019 đó là bài  Số nguyên tố trong dãy. Dưới đây là các bài tập kiểm tra số nguyên tố pascal mới nhất hãy tham khảo với onthihsg ngay nhé các bạn.

Video hướng dẫn số nguyên pascal

Related Articles

• Thật kỳ lạ với số mạnh mẽ, số hoàn hảo, code minh họa bằng pascal

  27 Tháng Mười Một, 2022

• Hướng dẫn vẽ 5 hình thoi nằm trong hình tròn trong Scratch

  27 Tháng Mười Một, 2022

• Hướng dẫn làm Game luyện tập chuột bằng Scratch

  27 Tháng Mười Một, 2022

1. Kiểm tra số N có phải là số nguyên tố trong pascal

Ví dụ:             N = 19            Kết quả là: 19 la so nguyen to

N = 33            Kết quả là: 33 khong phai la so nguyen to

Yêu cầu: Input:   N, là số tự nhiên bất kỳ.

Output: Trả lời “N la so nguyen to”

hoặc “N khong phai la so nguyen to” tùy theo N.

Lưu ý: Số nguyên tố là số chỉ có thể chia hết cho 1 và chính nó ( N ).

Ngược lại, N là không phải là số nguyên ==> N chia hết cho một số trong khoảng từ 2 đến (N-1).

Hướng dẫn cách tìm số nguyên tố trong pascal kiểm tra số nguyên tố pascal pascal kiểm tra số nguyên tố pascal số nguyên tố số nguyên pascal Số nguyên tố số nguyên tố pascal số nguyên tố trong pascal tìm số nguyên tố pascal tìm số nguyên tố trong pascal viết chương trình kiểm tra số nguyên tố trong pascal viết chương trình tìm số nguyên tố pascal