tin 8

[Thái Vĩnh Đạt]

[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 kiểm tra n có phải là số nguyên tố hay không?

 

[Hoàng Long AZ]

program hoanglong;
uses crt;
var n,i,dem :longint;
begin
clrscr;
writeln('nhap so n');Readln(n);
For i:=1 to n do if n mod i=0 then dem:=dem+1;
if dem =2 then write(' n la so nguyen to')
else write(' n khong phai la so nguyen to');
readln;
end.

 

[Thái Vĩnh Đạt]

program hoanglong;
uses crt;
var n,i,dem :longint;
begin
clrscr;
writeln('nhap so n');Readln(n);
For i:=1 to n do if n mod i=0 then dem:=dem+1;
if dem =2 then write(' n la so nguyen to')
else write(' n khong phai la so nguyen to');
readln;
end.

Bạn ơi lúc đầu biến dem chưa có giá trị sao bạn thêm 1 được

 

[mỳ gói]

Bạn ơi lúc đầu biến dem chưa có giá trị sao bạn thêm 1 được

mặc định là 0 em nhé.

 

[Hoàng Long AZ]

mình quên, bạn phải gán biến dem bằng 0 đã(gán sau khi nhập số n)
dem :=0;

 

[mỳ gói]

mình quên, bạn phải gán biến dem bằng 0 đã(gán sau khi nhập số n)
dem :=0;

thật ra @Phạm Xuân Hoàng Long ,
Viết đầu tiên là đúng luôn rồi.
Không cần phải gán giá trị.
không tin thì chạy thử mà xem.
Mặc định nó là 0 mà.

 

[Hoàng Long AZ]

mặc định bằng 0 nhưng gán cũng không sao mà

 

[Thái Vĩnh Đạt]

Mình cho chạy thử chương trình rồi.Mình toàn nhận đc kết quả là 'n k phai la so nguyen to'?

 

[mỳ gói]

Mình cho chạy thử chương trình rồi.Mình toàn nhận đc kết quả là 'n k phai la so nguyen to'?

em nhập n bằng bao nhiều thế nhỉ ?
kiểm tra kĩ lại chương trình em nhé.

 

[Thái Vĩnh Đạt]

Hầu như là mọi n.Không tin chị chạy thử đi !!!!

 

[mỳ gói]

Hầu như là mọi n.Không tin chị chạy thử đi !!!!

chị chạy được mà em.
em nói như vậy thì chị chịu tại vì chị không biết em sd cái pascal nào.
em thử sửa phần khai báo : longint=> integer

 

[Thái Vĩnh Đạt]

chị chạy được mà em.
em nói như vậy thì chị chịu tại vì chị không biết em sd cái pascal nào.
em thử sửa phần khai báo : longint=> integer

Xin lỗi nhé ! Em nhầm !

 

[ka1412]

Mình dùng longint hay longword vẫn được mà.

uses crt;
var n,i:longword;k:boolean;
begin
    clrscr;
    k := true;
    write('Nhap n:');readln(n);
    if n<=1 then k:=false;
    if n>1 then
    for i:=2 to trunc(sqrt(n)) do
    if n mod i =0 then k:=false;
    if k=true then write('Day la so nguyen to') else write('Day khong la so nguyen to');
readln
end.

 

[Thái Vĩnh Đạt]

Bạn ơi có vài chỗ mình chưa hiểu như "k:boolean","k := true,k:=false","trunc(sqrt(n))"

 

[ka1412]

boolean là kiểu dữ liệu logic có 2 giá trị la đúng và sai thôi.
trunc(sqrt(n)) là làm tròn căn của n