Bài 1:

Trong các câu lệnh Pascal sau đây, câu lệnh nào đúng, câu lệnh nào sai. Em hãy khoanh tròn vào chỗ sai.

a) While i=1 do t:=10;

b) while a<=b; do write('b khong nho hon a');

c) while 1=1 do write('Toi lap trinh gioi');

d) i:=1; while i<10 do sum:=sum+1; i:=i+1;

e) i:=1; x:=5;

while i<x do i:= i+1; write(' Gia tri cua i la',i);

Bài 2: Tìm hiểu đoạn chương trình sau và cho biết kết quả của i, j, k sau khi thực hiện đoạn chương trình là bao nhiêu

Đoạn 1:

i:=1; j:=2; k:=3;

while i<6 do i:= i+1; j:= j+1; k:= k+j;

writeln(i,' ',j,' ',k);

Đoạn 2:

i:=1; j:=2; k:=3;

while i<6 do

begin

i:= i+1; j:= j+1; k:= k+j;

writeln(i,' ',j,' ',k);

end;

1, Cho s và i là biến nguyên. Khi chạy đoạn chương trình: s:=0;for i:=1 to 3 do s := s+3*i; s:=s+5;writeln(s); Kết quả in lên màn hình là? * A.12 B. 10 C.23 D. 26

2, Kêt quả của câu lệnh For i:=1 to 20 do if i mod 3=2 then write(i:3); *

A.In ra các số lẻ từ 1 đến 20; B. In ra các số chẵn từ 1 đến 20; C. In ra các số chia hết cho 3 từ 1 đến 20; D. In ra các số chia hết cho 3 dư 2 từ 1 đến 20;

3, Trong câu lệnh lặp For i:=3 to 15 do s:=s+i; Có bao nhiêu vòng lặp? *

A. 15; B. 12; C. 13 D. 3;

4, Cho k,m,n nhận giá trị tương ứng 4,5,6; kết thúc câu lệnh sau:X:=n; If ((x mod 2=0)) or (x<=5) then x:=m*k else x:=m div k; thì x có giá trị là ? *

A. 1 B. 0 C. 5. D. 20 5, Cho biết đoạn chương trình Pascal sau đây chương trình thực hiện bao nhiêu vòng lặp?s:=0; n:=0; while s<=5 do n:= n+1;s:= s+n; * A. 3 B. 6 C. 10 D. kết quả khác 6, Cho a,b,c lần lượt nhận giá trị 10,30,20 . Hỏi sau đoạn chương trình Begin X:=a; If x>a then x:=a; if x>b then x:=b;if x>c then x:=c;end; x có giá trị là? * A. 20 B. 10 C. 30 D. Cả ba đáp án đều sai. 7, Cho x:=7; kết thúc câu lệnh If ((x mod 3=0)) and (x<=8) then x:=x+10; thì x có giá trị là ? * A. 8 B. 10 C. 17 D. 7 8, Cho s và i là biến nguyên. Khi chạy đoạn chương trình s := 1; for i:=1 to 5 do s := s+i; Kết quả in lên màn hình là của s là ? * A. 15 B. 16 C. 11 D. 22 9, Cho biết đoạn chương trình Pascal sau đây, khi kết thúc giá trị của S bằng bao nhiêu? S:=0; n:=0;while S<=3 do begin n:= n+1;S:= s+n; end; * A. 15 B. 10 C. 6 D. 3

Câu 2: Lệnh While...do thuộc loại lệnh nào sau đây?

a.Lệnh rẽ nhánh. c. Lệnh vòng lặp.

b.Lệnh lựa chọn. d. Lệnh ghép.

Câu 3:Việc đầu tiên lệnh While...do cần thực hiện là gì?

a.Thực hiện <câu lệnh> sau từ khóa While...do.

b.Thực hiện <câu lệnh> sau từ khóa Then.

c.Kiểm tra giá trị của < điều kiện>.

d.Kiểm tra < câu lệnh>.

Câu 4: Câu lệnh sau từ khóa do trong câu lệnh While...do được thực hiện ít nhất mấy lần?

a.0 lần. b. 1 lần. c. 2 lần. d. vô số lần.

Câu 5: Cho biết < câu lệnh> sau từ khóa DO trong đoạn chương trình sau được thực hiện mấy lần?

var i: byte;i:= 5;While i<=5 do i:= i-1;

a.1 lần b. 2 lần c. 5 lần d. 6 lần

Câu 6: Đoạn lệnh sau đây cho biết kết quả nào?

var i: byte;

i:= 5;

While i<=5 do

Begin

Write(i:2);

i:= i-1;

end;

a.In ra các số từ 1 đến 5; b.In ra các số từ 0 đến 5;

c.In ra các số lần lượt từ 5 đến 0; d. In ra vô hạn các số5, mỗi số trên một dòng.

Câu 7:Đoạn lệnh sau đây cho biết kết quả nào?

Var so: byte:

so:= 1;

While so<10 do writeln(so);

so:=so+1;

a.In ra các số từ 1 đến 9; b.In ra các số từ 1 đến 10;

c.In ra vô hạn các số1, mỗi số trên một dòng. d.In ra các số từ 10 đến 1.

Câu 8:Cho đoạn chương trình sau:

Var x, tong : byte;

x:=0; tong:=0;

While tong <= 20 do

Begin

Writeln(tong);

tong:=tong +1;

End;

x:=tong;

Sau khi đoạn chương trình trên được thực hiện, giá trị của x bằng bao nhiêu?

a.20. b. 21. c. Không xác định. d. 0.

Câu 9: Hãy cho biết kết quả của đoạn chương trình dưới đây?

a:=10;

While a< 11do writlen(a);

a.Trên màn hình xuất hiện một số 10.

b.Trên màn hình xuất hiện 10 chữ.

c.Trên màn hình xuất hiện vô số chữ số10,chương trình bị lặp vô tận.

d.Trên màn hình xuất hiện một số11.

Câu 10: Khi sửdụng lệnh While...do cần chú ý điều gì?

a.Số lần lặp. b. Số lượng câu lệnh.

c.Không cần chú ý gì cả. d.Điều kiện vòng lặp để tránh vòng lặp không bao giờ kết thúc.

Câu 11:Câu lệnh viết đúng cú pháp lệnh lặp với số lần chưa biết trước.

a.While <điều kiện> to < câu lệnh>;

b.While <điều kiện>to < câu lệnh 1> do < câu lệnh 2>;

c.While <điều kiện> do < câu lệnh>;

d.While <câu lệnh> do < câu lệnh>;

Giup mình với nhé, mn

Câu 1: Đoạn chương trình sau cho kết quả gì? For i:=1 to 10 do write(i,’ ‘);

☒1 2 3 4 5 6 7 8 9 10

☐Đưa ra 10 khoảng trắng

☐Không có kết quả

☐10 9 8 7 6 5 4 3 2 1

Câu 2: Đoạn chương trình sau cho kết quả gì? For i:=5 to 10 do write(‘i’);

☐iiiiii

☒5678910

☐i

☐iiiii

Câu 3: Đoạn chương trình sau cho kết quả gì?

For i:=5 to 10 do

If i mod 5 = 0 then write (i);

☐i i i i i

☐1 2 3 4 5

☐1 2 3 4 5 6 7 8 9 10

☒5 10

Câu 4: Đoạn chương trình sau cho kết quả gì?

S:=1; For i:=5 to 10 do if i mod 3 = 0 then S:=S * i; Write(S);

☒54

☐15

☐50

☐151200

Câu 5: Cho đoạn chương trình sau:

a:=3; b:=2;

If a>b then a:=4 else b:=1;

Sau khi thực hiện đoạn chương trình trên cho kết quả:

☐a=3

☐b=2

☒a=4

☐b=1

Câu 6: Đoạn chương trình sau cho kết quả gì?

S:=0;

For i:=1 to 9 do S:=S+i;

Write(s);

☐0

☒45

☐40

☐55

Câu 7: Cho x là biến thực đã được gán giá trị 13.56423. Để hiện lên màn hình nội dung “x=13.6” cần chọn câu lệnh nào sau đây?

☐Writeln(x:5);

☐Writeln(x);

☐Writeln(‘x=’,x:5:2);

☒Writeln(‘x=’,x:2:1);

Câu 8: Trong NNLT Pascal phát biểu nào sau đây là đúng:

☐Có phân biệt chữ hoa chữ thường.

☒Sau mỗi câu lệnh đều phải có dấu chấm phẩy.

☐Trước lệnh Else bắt buộc phải có dấu chấm phẩy.

☐Lệnh Readln trước câu lệnh End. Không nhất thiết phải có dấu chấm phẩy.

Câu 9: Để thoát khỏi chương trình Pascal ta sử dụng tổ hợp phím nào?

☐Ctrl + Q

☐Ctrl + X

☐Alt + Q

☒Alt + X

Câu 10: Vòng lặp sau đây lặp lại mấy lần?

A:=2

For i:=0 to 7 do a:=a+1;

☐6

☐7

☒8

☐9

Câu 1: câu lệnh viết đúng cú pháp là

a.While<điều kiện> to<câu lệnh>;

b.While<điều kiện> do <câu lệnh>;

c.While<điều kiện> to<câu lệnh1> do;

d.While<điều kiện>; do<câu lệnh>;

Câu 2: Hoạt động nào sau đây có thể tính toán được số lần làm việc

a.Múc từng gáo nước đầy bể

b.Đi lên tầng, đén tầng 10 thì dừng

c. Học cho tới khi thuộc bài

d. Nhặt từng cọng rau cho đến khi xong

Câu 3: Vòng lặp while... do là vòng lặp

a.Biết trước số vòng lặp

b. Biết trước số vòng lặp nhưng giói hạn là <=100

c.Chưa biết trước số lần lặp

d. Biết trước số lần lặp nhưng giới hạn là >=10

Câu 4: Trong ngôn ngữ pascal, đoạn chương trình sau đưa ra kết quả gì?

Fow i:=1 to 10 do write (i,'');

a. 1 2 3 4 5 6 7 8 9 10

b.10 9 8 7 6 5 4 3 2 1

c. Đưa ra 10 đấu cách

d.Không đưa ra kết quả gì

Câu 5: Phần mềm giúp em học vẽ hình là?

a. Sun times

b.Yenka

c. Finger break out

d.geogebra

Câu 6: Khai báo biến mảng nào đúng

a. Var Y: Array[6..20] of Integer;

b.Var Y; Array[10.5..25.5] of Real;

c.Var Y: Array[10,50] of Integer;

d.Var Y: Array[30..15] of Real;

Câu 7: Để nhập một giá trị vào phần tử a[3] của mảng a thì ta viết là

a. Readln(a)

b.Readln(a[3])

c.Readln(a[i])

d.Readln(a(3))

Câu 8: Đoạn lệnh sau đây sẽ cho kết quả gì?

so := 1;

While so < 10 do writeln(so);

so:=so+1;

a.In ra vô hạn các số 1, mỗi số trên một dòng

b.Không phương án nào đúng

c. In ra các số từ 1 đến 9

d. In ra các số từ 1 đến 10

Câu 9: Để tính tổng S=1/2+1/4+1/6+...+1/n; em chọn đoạn lệnh

a. for i:=1 to n do b.for i:=1 to n do

if (i mod 2)= 0 then S:=S-1/i ; Else S := S+1/i

if (i mod 2) = 0 then S:=S+1/i;

c.for i:= 1 to 10 do d.for i:=2 to n do

if (i mod 2) <>0 then S=S+i; if (i mod 2) <> ) then S:= S=S +i/1

Else S:= S-1/i;

Câu 10: Câu lệnh cho phép nhập giá tị của C từ bàn phím

a. Write(C);

b. Writeln(C);

c.Write('Nhap gia tri cua C');

d.Readln(C);

Part#1

1) Trong đoạn lệnh sau đây, chương trình đã thực hiện bao nhiêu vòng lặp?

S:=0; i:=0;

While S<=20 do

Begin

S:=S+i; i:=i+1;

end;

a) 2 b) 4 c) 8 d) vô hạn

2) Trong đoạn lệnh sau đây, chương trình đã thực hiện bao nhiêu vòng lặp?

x:=0;

For i:=1 to 5 do x:=x+3;

a) 1 b) 3 c) 5 d) 15

3) Sau khi thực hiện đoạn chương trình sau, giá trị của biến x bằng bao nhiêu?

x:=0;

For i:=1 to 5 do x:=x+3;

a) 1 b) 3 c) 5 d) 15

4) Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu?

S:=0; i:=0;

While S<=20 do

Begin S:=S+i; i:=i+1; end;

a) 18 b) 21 c) 25 d) 52

5) Đoạn chương trình sau đây đã mắc phải lỗi gì?

a:=5;

While a<=6 do Writeln(‘A’);

a) Sử dụng sai cú pháp lệnh While ... do

b) Cho biết trước số lần lặp

c) Không cho biết trước số lần lặp

d) Lặp vô hạn

6) Trong ngôn ngữ lập trình Pascal, câu lệnh For ... do là lệnh:

a) Không cho biết trước số lần lặp

b) Cho biết trước số lần lặp

c) Biết trước hay không biết trước số lần lặp đều sử dụng được

d) Cả a, b, c đều sai

7) Trong ngôn ngữ lập trình Pascal, câu lệnh lặp được dùng để thể hiện:

a) Cấu trúc lặp c) Cấu trúc điều kiện

b) Cấu trúc rẽ nhánh d) Cấu trúc mảng

8) Trong ngôn ngữ lập trình Pascal, lệnh lặp với số lần chưa biết trước là câu lệnh:

a) For ... do c) If ... then ...

b) While ... do d) If ... then ... else...

9) Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây hợp lệ?

a) For i:=10 to 1 do Writeln(‘A’);

b) For i:=10.5 to 1.5 do Writeln(‘A’);

c) For i=1 to 10 do Writeln(‘A’);

d) For i:=1 to 10 do Writeln(‘A’);

10) Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây hợp lệ?

a) x:=10; While x:=10 do x:=x+5;

b) x=10; While x=10 do x=x+5;

c) x:=10; While x=10 do x:=x+5;

d) x=10; While x:=10 do x=x+5;

Phần I. Trắc nghiệm. (5 điểm)
1. Nhặt thóc ra khỏi gạo cho đến khi trong gạo không còn lẫn thóc là hoạt động:
a. Lặp 10 lần c. Lặp vô số lần (lặp vô hạn)
b. Lặp với số lần chưa biết trước d. Lặp với số lần biết trước
2. Trong câu lệnh lặp For i:=1 to 10 do begin.... end bao nhiêu vòng lặp được thực hiện?
a. Không lần nào b. 10 lần c. 1 lần d. 2 lần
3. Điều kiện kết thúc vòng lặp For... do của Pascal là:
a. Biến đếm lớn hơn giá trị cuối c. Giá trị đầu bằng giá trị cuối
b. Biến đếm lớn hơn hoặc bằng giá trị cuối d. Giá trị đầu lớn hơn giá trị cuối
4. Trong các câu lệnh Pascal sau, câu lệnh nào hợp lệ?
a. For i:=1 to 10; do x=x+1; c. For i:=1 to 10 do x:=x+1;
b. For i:=10 to 1 do x:=x+1; d. For i:=1.5 to 10 do x:=x+1;
5. Trong lệnh lặp For... do của Pascal, sau từ khóa “do” nếu có từ 2 câu lệnh trở lên (câu lệnh
ghép) thì câu lệnh ghép đó phải đặt trong cặp từ khóa nào sau đây?
a. Begin.....readln; b. Begin.....and;
c. End.....Begin d. Begin.....end;
6. Câu lệnh sau đây cho kết quả như thế nào?
For i:=1 to 10 do Writeln(‘A’);
a. In dãy số từ 10 đến 1 ra màn hình c. In dãy số từ 1 đến 10 ra màn hình
b. In 20 ký tự A ra màn hình d. In 10 ký tự A ra màn hình
7. Sau khi thực hiện đoạn chương trình sau, giá trị của biến T bằng bao nhiêu?

i := 0; T := 0;
While i &lt; 3 do
begin T := T + 1; i := i + 1; end;

a. T = 2 b. T = 3 c. T = 4 d. T = 5
8. Cú pháp của câu lệnh lặp với số lần chưa biết trước trong Pascal:
a. While <câu lệnh> do <điều kiện>; c. While <điều kiện> do <câu lệnh>;
b. While <giá trị cuối > do <giá trị đầu>; d. While <giá trị đầu> do <giá trị cuối>;
9. Trong lệnh lặp While... do của Pascal, nếu điều kiện đúng thì:
a. Tiếp tục vòng lặp c. Vòng lặp vô tận
b. Lặp 10 lần d. Thoát khỏi vòng lặp
10. Trong các câu lệnh Pascal sau, câu lệnh nào hợp lệ?
a. x:=1; while x:= 10 do x:=x+5; c. x =1 while x>10 do x:=x+5;
b. x:=1; while x <10 do x:=x+5; d. x:=10; while x<10 do x=x+5;
Phần II. Bài tập. (5 điểm)
Câu 1: Cho đoạn chương trình sau: (2đ)

m:=2; k:=3;
For i:= 0 to 4 do begin

m:=m+1;
k :=k+m;
end;

Sau khi thực hiện đoạn chương trình trên giá trị của các biến m, k bằng bao nhiêu?
1. Câu 2: (3đ)Viết chương trình tính tổng: S= 1+ 1/2 + 1/3 + ….. + 1/N

(n là số nguyên được nhập từ bàn phím)

Làm giúp mình trước ngày 29/04/2020 nha !