Viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải là số nguyên tố hay không.. Thuật toán:.[r]
(1)ĐỀ CƯƠNG TIN HỌC 8
HỌC KÌ II NĂM HỌC 2009 - 2010 I Trắc nghiệm Khoanh tròn chữ đứng trước câu trả lời đúngCâu 1: Trong vòng lặp For <biến đếm>:=<giá trị đầu> to <giá trị cuối> <câu lệnh> ; củaPascal, vòng lặp, biến đếm thay đổi
a +1 b -1
c Một giá trị d Một giá trị khác không Câu 2: Câu lệnh pascal sau hợp lệ?
a For i:=100 to writeln(‘A’); b For i:= to 10 writeln(‘A’); c For i:=1.5 to 10.5 writeln(‘A’); d For i= to 10 writeln(‘A’); Câu 3: Lệnh lặp sau đúng?
a. For i:=1 to 10; x:=x+1; b. For i:=10 to x:=x+1; c. For i:=1 to 10 x:=x+1; d. For i=1 to 10 x:=x+1;
Câu 4: Với ngơn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 x:=x+1; biến đếm i phải khai báo kiểu liệu
a. Interger; b. Real;
c. String d. Tất kiểu
Câu 5: Sau thực đoạn chương trình j:= 0; for i:= to j:=j+2; giá trị in hình của j là?
a b c d 10
Câu 6: Để tính tổng S=1+1/2 +1/3 + 1/4 … 1/n; em chọn đoạn lệnh: a for i:=1 to n
if ( i mod 2)=0 then S:=S + 1/i; b for i:=1 to n doif ( i mod 2)=0 then S:=S + i Else S:= S + I;
c for i:=1 to n
S:=S + 1/i; d for i:=1 to n doif ( i mod 2)<>0 then S:=S + 1/i Else S:=S-1/i; Câu 7: Để tính tổng S=1+3 + + … + n; em chọn đoạn lệnh:
a for i:=1 to n
if ( i mod 2)=0 then S:=S + 1/i; b for i:=1 to n doif ( i mod 2) < > then S:=S + i; c for i:=1 to n
if ( i mod 2)=0 then S:=S + i else S:= S + I;
d for i:=1 to n
if ( i mod 2)=0 then S:=S + i; Câu 8: Vòng lặp while vòng lặp:
b. Biết trước số lần lặp c. Chưa biết trước số lần lặp
d. Biết trước số lần lặp giới hạn <=100 e. Biết trước số lần lặp giới hạn >=100 Câu 9: Đoạn lệnh sau So:=1; While so<10 writeln(so); So:=so+1; Sẽ cho kết gì?
a. In số từ đến b. In số từ đến 10
c. Không phương án d. In vơ hạn số 1, số dịng
Câu 10: Tìm hiểu đoạn lệnh sau cho biết với đoạn lệnh chương trình thực vòng lặp
S:=0; n:=0;
While S< =10 n:=n+1; s:=s+n;
a lần b 10 lần c 11 lần d Vô hạn lần
Câu 11: Câu lệnh lặp while…do có dạng là:
a x:=10; While x:=10 x:=x+5; b x:=10; While x:=10 x=x+5; c x:=10; While x=10 x=x+5; d x:=10; While x=10 x:=x+5; Câu 12: Lần lượt thực câu lệnh for i:= to 3.5 writeln(i:3:1); viết hình?
a Thứ tự biến đếm, chiếm chỗ lấy chữ số sau phần thập phân b Viết số viết số 3.5
c Chỉ viết số 3.5 mà
(2)Câu 13: Tìm hiểu đoạn lệnh sau cho biết với đoạn lệnh chương trình thực vòng lặp
S:=0; n:=0; While S< =10 do
Begin n:=n+1; s:=s+n;end;
a lần b lần c lần d 10
Câu 14: Câu lệnh sau lặp vô hạn lần a s:=5; i:=0;
While i<=s s:=s + 1;
b s:=5; i:=1;
While i<=s i:=i + 1; c s:=5; i:=1;
While i> s i:=i + 1;
d s:=0; i:=0; While i<=n
if (i mod2)=1 then S:=S + I else i:=i+1;
Câu 15: Hãy tìm hiểu đoạn chương trình sau Khơng cần viết chương trình, cho biết lệnh Writeln in hình giá trị i, j, k bao nhiêu?
i:=1; j:=2; k:=3; Trả lời
While i<=6 i:=i+1; j:=j+1; k:=k+j; I=
Space:=’ ’; J=
Write(I,space,j,space,k); K=
Câu 16: Hãy tìm hiểu đoạn chương trình sau Khơng cần viết chương trình, cho biết lệnh Writeln in hình giá trị i, j, k bao nhiêu?
i:=1; j:=2; k:=3; TRẢ LỜI
While i<=6 I=
Begin i:=i+1; j:=j+1; k:=k+j; end; J=
Space:=’ ’; K=
Write(I,space,j,space,k);
Câu 17: Hãy tìm hiểu đoạn chương trình sau Sau đoạn chương trình thực hiện, giá trị x bao nhiêu?
X:=0; Tong:=0; While tong<=20 do Begin
Writeln(tong); Tong:=tong+1; End.
X:=tong;
a 20 b 21 c Không xác định d
Câu 18: Để tính tổng S=1+1/3 + 1/5 + … +1/ n; em chọn đoạn lệnh: a for i:=1 to n
if ( i mod 2)=1 then S:=S + 1/i;
b for i:=1 to n
if ( i mod 2) =0 then S:=S + 1/i; c for i:=1 to n
if ( i mod 2)=0 then S:=S + 1/i else S:= S + 1/;
d for i:=1 to n
if ( i mod 2)=0 then S:=S + i; Câu 19: Để tính tổng S=1+2+3+ 4+ + … + n; em chọn đoạn lệnh:
a s:=0; i:=0;
While i<=n S:=S + 1; b s:=0; i:=0;While i<=n If (I mod 2)= Then S:=S + i; c s:=0; i:=0;
While i<=n begin
S:=S + i; i:=i+1; End;
d s:=0; i:=0; While i<=n
begin
if (i mod2)=1 Then S:=S + i Else i:=i+1;
End; Câu 20: Hãy xác định sai cho phát biểu đây
Nội dung Đúng Sai
Không nên thay đổi giá trị biến đếm câu lệnh lặp For … do, ví dụ câu lệnh lặp sau không nên sử dụng For i:=1 to n i:=i+2;
(3)Nếu giá trị đầu < giá trị cuối chương trình dịch báo lỗi để ta chỉnh sữa lại
Câu lệnh lặp For… thuận tiện hữu ích việc tránh phải viết lặp lặp lại nhiều lần câu lệnh Chẳng hạn để in số nguyên đơn vị từ 1 đến 15 ta viết câu lệnh sau For i:=1 to 15 writeln(i:3:1);
Mọi câu lệnh lặp While…do thay cách thích hợp câu lệnh For do II Tự luận
Bài Điền vào chỗ trống để câu đúng:
1 Câu lệnh điều kiện có hai dạng: Ngơn ngữ Pascal thể cấu trúc lặp với số lần lặp cho trước câu lệnh: Câu lệnh lặp với số lần chưa biết trước Pascal là: Bài Viết chương trình tính tổng N số tự nhiên đầu tiên, với N số tự nhiên nhập vào từ bàn phím
program Tinh_tong; var N,i: integer;
S: longint; begin
write(‘Nhap so N = ‘); readln(N); S:= 0;
for i:= to N S:= S+i;
writeln(‘Tong cua’, N, ‘so tư nhien dau tien S = ‘, S); readln
end
Bài Ta kí hiệu N! tích N số tự nhiên Viết chương trình tính N! = 1.2.3 N program Tinh_Giai_Thua;
var N,i:integer; P:longint; begin
write(‘Nhap so N = ‘); readln(N); P:= 1;
for i:= to N P:= P*i; writeln( N, ‘! = ‘, P); readln
end
Bài Viết chương trình tính tổng số lẻ từ đến n. program tinh_tong;
uses crt;
var S, n, i: integer; begin
clrscr;
write(‘nhap so nguyen n=’); readln(n); S:= 0;
for i:= to n
if i mod 2<>0 then S:= S+i; writeln(‘tong S=,’ S);
(4)Bài Viết chương trình xuất hình tổng bình phương số lẻ từ đến N Với N số tự nhiên nhập vào từ bàn phím (tương tự 4)
Bài Viết chương trình nhận biết số tự nhiên N nhập vào từ bàn phím có phải số ngun tố hay khơng.
Thuật tốn:
Bước 1: Nhập số tự nhiên N từ bàn phím.
Bước 2: Nếu N£ thông báo N số nguyên tố, chuyển đến bước 4. Bước 3: Nếu N > 1:
3.1 i¬2;
3.2 Trong N mod i <> 0, i¬ i+1;
3.3 Nếu i = N thơng báo N số nguyên tố, ngược lại thông báo N số nguyên tố
Bước 4: Kết thúc thuật toán.
Uses Crt; Var n,i:integer; Begin
Clrscr;
write('Nhap vao mot so nguyen: '); readln(n); If n<=1 then writeln('N khong la so nguyen to') else
begin i:=2;
while (n mod i<>0) i:=i+1;
if i=n then writeln(n,' la so nguyen to!') else writeln(n,' khong phai la so nguyen to!'); end;
readln End.
Bài Viết chương trình xuất hình số nguyên tố nhỏ 100 Program CAC_SO_NGUYEN_TO;
Var i, t: integer; Begin
Clrscr;
Writeln(‘Cac so nguyen to nho hon 100:’); For t:=2 to 100
Begin i:= 2;
while (t mod i <> 0) i:=i+1; If i=t then Write(t:5);