[Tin học trẻ không chuyên] Xin giúp đỡ!!!

M

megamanxza

là sao bạn, mình chỉ mới học lập trình gần đây, bạn viết code ra giùm mình được không, mà lập trình pascal nha bạn

Là dân CNTT thì lách luật là sở trường của chúng ta, phải không bác Đệ nhất Dâm Tặc Lâm Đê Tiện nhỉ??? =))

Mã:
[COLOR="Blue"][B]Uses crt;
var i: Qword;
function KT (n: qword): boolean;
var j: qword;
  begin
    j:=2;
    while n mod j <> 0 do inc(j);
    if n=j then KT:=True else KT:=False;
  end;
begin
clrscr;
write ('Cac so nguyen to tu 32000 den 34000 la: ');
for i:= 32000 to 34000 do
  if KT(i)=True then write (i,'  ');
readln
end.[/B][/COLOR]

P/s: có gì sai thì mong bạn thông cảm! Đã hơn 5 tháng kể từ khi mình đụng Pascal. :D
Bác Mĩ Kèo đi cmnr thím Lâm ơi! :((
 
L

lamdetien36

Là dân CNTT thì lách luật là sở trường của chúng ta, phải không bác Đệ nhất Dâm Tặc Lâm Đê Tiện nhỉ??? =))

Mã:
[COLOR=Blue][B]Uses crt;
var i: Qword;
function KT (n: qword): boolean;
var j: qword;
  begin
    j:=2;
    while n mod j <> 0 do inc(j);
    if n=j then KT:=True else KT:=False;
  end;
begin
clrscr;
write ('Cac so nguyen to tu 32000 den 34000 la: ');
for i:= 32000 to 34000 do
  if KT(i)=True then write (i,'  ');
readln
end.[/B][/COLOR]
P/s: có gì sai thì mong bạn thông cảm! Đã hơn 5 tháng kể từ khi mình đụng Pascal. :D
Cần gì QWord, Word là đủ rồi =))
Mã:
var
    i: word;
function KT(n: word): boolean;
 var
    j: word;
 begin
    j := 2;
    while (n mod j <> 0) do
        inc(j);
    KT := (n = j);
 end;
begin
    writeln('Cac so nguyen to tu 32000 den 34000 la: ');
    for i := 32000 to 34000 do
        if KT(i) then write(i, '   ');
    readln
end.
Bác Mĩ Kèo đi cmnr thím Lâm ơi! :((
Ý thím là sao :confused: Không hiểu lắm ;;)

 
H

hung.nguyengia2013@gmail.com


Cho cái screenshot đê :| Tớ đâu phải mod đâu mà vào được box ẩn :|
Đơn xin nghỉ mod ở đây nè bạn:

gSsuUUd.png

 
R

rjnaloner

đề mới nè các bác ơi, thầy em kêu vẫn làm bài đó, nhưng với điều kiện là chỉ sử dụng kiểu dữ liệu integer T_T
 
R

rjnaloner

Thêm vào trước khai bào biến ạ???? nó báo lỗi "Invalid compiler diẻctive." là sao ạ??
 
L

lamdetien36

nếu mình dùng turbo thì phải làm sao cac bác
p.s: máy em bị lag máy ngày nay nên không thấy trả lời của mấy bác :((
Turbo Pascal thì làm thế bằng niềm tin và hy vọng rồi.
Tốt nhất nếu giới hạn <= 34000 thì cứ dùng kiểu dữ liệu Word. Kiểu dữ liệu có trong TP, giới hạn là từ 0 -> 65535.
Mà nói chung thì khuyến khích sử dụng Free Pascal.
 
R

rjnaloner


Turbo Pascal thì làm thế bằng niềm tin và hy vọng rồi.
Tốt nhất nếu giới hạn <= 34000 thì cứ dùng kiểu dữ liệu Word. Kiểu dữ liệu có trong TP, giới hạn là từ 0 -> 65535.
Mà nói chung thì khuyến khích sử dụng Free Pascal.

Thầy em bào đây là bài thi Tin học trẻ không chuyên cấp quốc gia hồi năm 2002-2003 gì đấy, bài làm trước mặt thầy ạ, trên máy của thầy luôn mà trên máy đó thì làm gì có free pascal :-SS
suy nghĩ tiếp em đi mấy bác, thầy em nói bài này đơn giản lắm, đừng nghĩ phức tạp, mà em hk hiểu thế *éo nào mà đơn giản được
 
L

lamdetien36

Thầy em bào đây là bài thi Tin học trẻ không chuyên cấp quốc gia hồi năm 2002-2003 gì đấy, bài làm trước mặt thầy ạ, trên máy của thầy luôn mà trên máy đó thì làm gì có free pascal :-SS
suy nghĩ tiếp em đi mấy bác, thầy em nói bài này đơn giản lắm, đừng nghĩ phức tạp, mà em hk hiểu thế *éo nào mà đơn giản được
Thì có cái *éo gì khó hiểu đâu =))
Cứ việc duyệt for từ 32k -> 34k, kiểm tra nguyên tố như bình thường. Chỉ khác là dùng kiểu dữ liệu Word thôi.
 
Top Bottom