Tin học [Lớp 8] Viết chương trình

[Katotwice. Kira]

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

Hãy tính tổng của các số nguyên tố!

 

[Tran Quang Huy]

Trớt quớt. Điều kiện đâu, các số nguyên tố tới mấy hay là các số nguyên tố của dãy số.

 

[S I M O]

Trớt quớt. Điều kiện đâu, các số nguyên tố tới mấy hay là các số nguyên tố của dãy số.

tin 8 cơ bản hình như chỉ có tổng các SNT từ 1 đến n thôi hay sao á.

 

[Tran Quang Huy]

Vậy mà chẳng nói cho người ta hiểu

 

[ka1412]

uses crt;
var i,n:integer;s:longint;
function snt(q:integer):boolean;
var w:integer;
begin
    snt := true;
    for w:=2 to trunc(sqrt(i)) do
    if q mod w=0 then snt:=false;
end;
begin
    clrscr;
    write('Nhap n:');readln(n);
    for i:=2 to n do
    if snt(i)=true then s:=s+i;
    write(s);
    readln
end.

 

[Tran Quang Huy]

Bạn vừa mới đăng code là của trường nào vậy? Lớp mấy?

 

[ka1412]

Bạn vừa mới đăng code là của trường nào vậy? Lớp mấy?

Mình tự làm thôi =)

 

[Tran Quang Huy]

Tại thấy code không có chuẩn hóa nên mới hỏi. Nhưng mà nó đúng. Với lại, mình hỏi về cậu chứ không phải là cái code.

 

[ka1412]

Tại thấy code không có chuẩn hóa nên mới hỏi. Nhưng mà nó đúng. Với lại, mình hỏi về cậu chứ không phải là cái code.

Chuẩn hóa? ¯\_(ツ)_/¯ .
Mình lớp 9 :v

 

[Tran Quang Huy]

Thế có nằm trong đội tuyển hsg tin không?

 

[Tran Quang Huy]

Chuẩn hóa: nhầm ý. Tối ưu hóa thì đúng hơn. Xin lỗi.
Ý mình muốn nói là code này chỉ sử dụng cho bài này thôi chứ cho vào bài khác là thua.

 

[ka1412]

Chuẩn hóa: nhầm ý. Tối ưu hóa thì đúng hơn. Xin lỗi.
Ý mình muốn nói là code này chỉ sử dụng cho bài này thôi chứ cho vào bài khác là thua.

Mỗi bài làm 1 kiểu khác nhau chứ bạn

 

[Tran Quang Huy]

Lại nói lộn nữa. Sorry.
Ý mình là cái chương trình con kiểm tra nguyên tố kìa.

 

[Tran Quang Huy]

function snt(q:integer):boolean;
var w:integer;
begin
snt := true;
for w:=2 to trunc(sqrt(i)) do
if q mod w=0 then snt:=false;
end;

Tham số là q. Vậy sao không để trunc(sqrt(q)) mà để trunc(sqrt(i)).
Nếu làm thế mà kiểm tra tính nguyên tố của k, trong ct chính không có biến i là sai rồi.

 

[ka1412]

uses crt;
var i,n:integer;s:longint;
function snt(q:integer):boolean;
var w:integer;
begin
    snt := true;
    for w:=2 to trunc(sqrt(q)) do
    if q mod w=0 then snt:=false;
end;
begin
    clrscr;
    write('Nhap n:');readln(n);
    for i:=2 to n do
    if snt(i)=true then s:=s+i;
    write(s);
    readln
end.

@Tran Quang Huy Đã sửa =)