program day_du_cau_lenh;
uses crt;
var i,n:integer;
a:array[1..100]of intrger;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;
while i<=n do
begin
write('nhap a[',i,']:');readln(a[i]);
i:=i+1;
end;
for i:=1 to n do
if a[i]>=0 then write(a[i]) else write('');
readln;
end.
mn ới, ét o ét nèo ;-;
Câu 8: Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp biết trước?
A. if...then B. if...then...else C. for...to…do D. while...do
Câu 9. Trong Câu lệnh lặp: For i := 1 to 15 do s:= s + 2*i. Khi kết thúc Câu lệnh lặp trên, Câu lệnh tính s được thực hiện bao nhiêu lần?
A. 10 lần ; B. 15 lần; C. 20 lần; D. Không thực hiện.
Câu 10 : Trong câu lệnh lặp for i :=1 to 20 do begin s:= s+i; end ;
câu lệnh gán được thực hiện bao nhiêu lần?
a) Không lần nào. b) 1 lần c) 2 lần d) 20 lần
Câu 11 : Trong câu lệnh lặp: For <Biến đếm>:=<Giá trị đầu> to <Giá trị cuối> do <câu lệnh>; Khi thực hiện ban đầu Biến đếm nhận giá trị = Giá trị đầu, sau mỗi vòng lặp biến đếm tăng thêm:
A. 1 đơn vị B. 2 đơn vị C. 3 đơn vị D. 4 đơn vị
Câu12: Khi nào thì câu lệnh lặp For…do (dạng tiến) kết thúc?
A. Khi biến đếm nhỏ hơn giá trị cuối. B. Khi biến đếm bằng giá trị đầu.
C. Khi biến đếm bằng giá trị cuối. D. Khi biến đếm lớn hơn giá trị cuối.
ét o ét đê ;-;
Câu 8: Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp biết trước?
A. if...then B. if...then...else C. for...to…do D. while...do
Câu 9. Trong Câu lệnh lặp: For i := 1 to 15 do s:= s + 2*i. Khi kết thúc Câu lệnh lặp trên, Câu lệnh tính s được thực hiện bao nhiêu lần?
A. 10 lần ; B. 15 lần; C. 20 lần; D. Không thực hiện.
Câu 10 : Trong câu lệnh lặp for i :=1 to 20 do begin s:= s+i; end ;
câu lệnh gán được thực hiện bao nhiêu lần?
a) Không lần nào. b) 1 lần c) 2 lần d) 20 lần
Câu 11 : Trong câu lệnh lặp: For <Biến đếm>:=<Giá trị đầu> to <Giá trị cuối> do <câu lệnh>; Khi thực hiện ban đầu Biến đếm nhận giá trị = Giá trị đầu, sau mỗi vòng lặp biến đếm tăng thêm:
A. 1 đơn vị B. 2 đơn vị C. 3 đơn vị D. 4 đơn vị
Câu12: Khi nào thì câu lệnh lặp For…do (dạng tiến) kết thúc?
A. Khi biến đếm nhỏ hơn giá trị cuối. B. Khi biến đếm bằng giá trị đầu.
C. Khi biến đếm bằng giá trị cuối. D. Khi biến đếm lớn hơn giá trị cuối.
Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp A. if...then B. if...then...else C. for...to...do D. while...do
Câu 1. Câu lệnh lặp For...do, vòng lặp dừng lại khi nào?
A. Có lệnh dừng lại C. Không thê dừng B. Biến đếm bằng giá trị cuối D. Biến đếm bằng giá trị đầu
Câu 2. Trong Pascal, câu lệnh nào để lặp với số lần biết trước?
A. If...then B. If…then…else C. For…do D. While…do
Câu 3. Chọn phát biểu sai:
A. Biến đếm là biến kiểu số nguyên
B. Câu lệnh lặp với số lần chưa biết trước có dạng: For...do...
C. Câu lệnh có thể là câu lệnh đơn hay câu lệnh ghép
D. Sau mỗi vòng lặp, biến đếm được tự động tăng thêm một đơn vị
Câu 4. Hãy cho biết số lần lặp của câu lệnh sau: For i:=1 to 100 do...
A. 100 B. 101 C. 99 D. 1
Câu 18: 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 < điều kiện > do < câu lệnh >;
Câu 16:
Trong ngôn ngữ lập trình Pascal, câu lệnh lặp với số lần chưa biết trước là:
A.
While < điều kiện > do < câu lệnh >;
B.
Var i,n: Integer;
C.
Cả A và C đều đúng.
D.
If < điều kiện > then < câu lệnh >;
Vòng lặp While – do kết thúc khi nào
Khi tìm được Output
Tất cả các phương án
Khi một điều kiện cho trước chưa được thỏa mãn
Khi đủ số vòng lặp
Cần xem lại
2
Việc đầu tiên mà câu lệnh While ... do cần thực hiện là gì?
Thực hiện câu lệnh sau từ khóa Then
Kiểm tra < câu lệnh >
Kiểm tra giá trị của < điều kiện >
Thực hiện < câu lệnh > sau từ khóa Do
Cần xem lại
3
Hoạt động nào sau đây lặp với số lần lặp chưa biết trước?
Ngày đánh răng 2 lần
Ngày tắm hai lần
Học bài cho tới khi thuộc bài
Mỗi tuần đi nhà sách một lần
Cần xem lại
4
Cú pháp lệnh lặp với số lần chưa biết trước:
While < điều kiện > do ;< câu lệnh >;
While < điều kiện > to < câu lệnh >;
While < điều kiện > do < câu lệnh >;
While < điều kiện > to < câu lệnh 1 > do < câu lệnh 2 >;
Cần xem lại
5
Pascal sử dụng câu lệnh lặp nào sau đây để lặp với số lần chưa biết trước:
While…do
If..then
For…do
If…then…else
Cần xem lại
6
Kiểu dữ liệu của biến đếm trong lệnh lặp For – do:
Không cần phải xác định kiểu dữ liệu
Chỉ cần khác kiểu với giá trị đầu
Cùng kiểu với các biến trong câu lệnh
Cùng kiểu với giá trị đầu và giá trị cuối
Cần xem lại
7
Chọn cú pháp câu lệnh lặp là:
for < biến đếm > = < giá trị đầu > to < giá trị cuối > do < câu lệnh >;
for < biến đếm > : = < giá trị đầu > to < giá trị cuối > do < câu lệnh >;
for < biến đếm > := < giá trị cuối > to < giá trị đầu > do < câu lệnh >;
for < biến đếm > = < giá trị đầu > to < giá trị cuối >; do < câu lệnh >;
Cần xem lại
8
Cho các câu lệnh sau hãy chỉ ra câu lệnh đúng :
for i:=1 to 10; do x:=x+1;
for i:=1 to 10 do x:=x+1;
for i =10 to 1 do x:=x+1;
for i:=10 to 1 do x:=x+1;
Cần xem lại
9
Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 do x:=x+1; thì biến đếm i phải được khai báo là kiểu dữ liệu nào?
String
Real
Integer
Tất cả các kiểu trên đều được
Cần xem lại
10
Trong lệnh lặp For – do:
Giá trị đầu phải bằng giá trị cuối
Giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối
Giá trị đầu phải lớn hơn giá trị cuối
Giá trị đầu phải nhỏ hơn giá trị cuối
Cần xem lại
11
Trong câu lệnh lặp: For (Biến đếm):=(Giá trị đầu) to (Giá trị cuối) do (câu lệnh); Khi thực hiện ban đầu Biến đếm nhận giá trị = Giá trị đầu, sau mỗi vòng lặp biến đếm tăng thêm:
1 đơn vị
4 đơn vị
2 đơn vị
3 đơn vị
Cần xem lại
12
Trong các câu lệnh lặp Pascal sau đây, câu nào đúng
While i= 1 do T:=10;
While 1 := 1 do Writeln ('Dung');
While (n mod i <> 0) ; do i:= i+ 1 ;
While x<=y do Writeln ('y khong nho hon x')
Cần xem lại
13
Trong câu lệnh lặp for…do, số vòng lặp là biết trước và bằng:
giá trị cuối – giá trị đầu
giá trị cuối – giá trị đầu - 1
giá trị cuối – giá trị đầu
giá trị cuối – giá trị đầu + 1
Cần xem lại
14
Điều kiện trong câu lệnh lặp với số lần chưa biết trước thường là :
phép gán
Câu lệnh ghép
Phép so sánh
Câu lệnh đơn
Cần xem lại
15
Cho biết câu lệnh sau Do thực hiện mấy lần trong đoạn chương trình sau:
b := 3;
While b>=1 do b := b– 1;
2 lần
1 lần
4 lần
3 lần
Cần xem lại
16
Hãy cho biết kết quả của đoạn chương trình dưới đây:
a:=10; While a < 11 do write (a);
Trên màn hình in ra một số 10
Chương trình bị lặp vô tận
Trên màn hình in ra 10 chữ a
Trên màn hình in ra một số 11
Cần xem lại
17
Hãy đưa ra kết quả trong đoạn chương trình sau:
x:=1;
While x<=5 do
Begin
writeln(‘khoi 8’);
X:=x+x;
End;
Trên màn hình in ra dòng chữ "khoi 8"
Trên màn hình in ra 1 dòng chữ "khoi 8 khoi 8 khoi 8"
Chương trình bị lặp vô tận
Trên màn hình in ra 03 dòng chữ "khoi 8"
Cần xem lại
18
Xác định số vòng lặp cho bài toán: tính tổng các số nguyên từ 1 đến 100
1
Tất cả đều sai
99
100
Cần xem lại
19
Em hãy ghép nối cột bên trái với cột bên phải để được ý nghĩa đúng của các câu lệnh:
Câu lệnh {5}
Khởi tạo gán biến t= 1
Câu lệnh {2}
In ra màn hình kết quả của biến t
Câu lệnh {7}
Khai báo biến
Câu lệnh {10}
In ra màn giá trị biến đếm i từ 1 đến 5 trên 5 dòng
Câu lệnh {8}
Câu lệnh gán giá trị t = t* i
Câu lệnh {4}
Câu lệnh lặp for ..do: lặp 5 lần thực hiện câu lệnh ghép
Cần xem lại
20
For k:= 0 to 10 do writeln(k);
-Đoạn chương trình viết bằng câu lệnh while ..do như sau:
;
while do
;
;
;
21
Em hãy ghép nối cột bên trái với cột bên phải để được ý nghĩa đúng của các câu lệnh chính trong CẤU TRÚC CHUNG CỦA MỘT CHƯƠNG TRÌNH PASCAL:
{1} Program (tên chương trình);
{2} Uses (tên thư viện);
{3} Begin
{4} Clrscr;
(các câu lệnh);
{5} Readln;
{6} End.
Câu lệnh {5}
Bắt đầu chương trình chính
Câu lệnh {1}
Kết thúc chương trình chính
Câu lệnh {6}
Tạm ngừng màn hình để xem kết quả
Câu lệnh {4}
Khai báo tên chương trình
Câu lệnh {3}
Khai báo thư viện
Câu lệnh {2}
Xóa màn hình kết quả
Hãy. Nêu cú pháp và cách thực hiện của câu lệnh lặp for ..to..đó và while..đó trong ngôn ngữ pascal( mn chị em vs ạ mai em thì rùi 🥺 ai giúp em thì em cảm ơn ạ)
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: Cú pháp của câu lệnh lặp for … do … là ? *
A. If (điều kiện) then (câu lệnh);
B. Var n, i:interger;
C. Phải kết hợp cả a, b và c.
D. For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Câu 3: 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 đến đầ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 tới khi xong
Câu 4: Vòng lặp while .. do là vòng lặp: *
A. Biết trước số lần lặp
B. Biết trước số lần 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 5: Trong ngôn ngữ Pascal, đoạn chương trình sau đưa ra màn hình kết quả gì?For 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 dấu cách
D. Không đưa ra kết quả gì
Câu 6: Bạn An ăn sáng mỗi ngày? *
A. Lặp với số lần biết trước.
B. Lặp với số lần chưa biết trước.
C. Không có hoạt động lặp.
D. Đáp án khác.
Câu 7: Câu lệnh nào sau đây hợp lệ *
A. for i:=100 to 1 do writeln(‘A’);//
B. for i:= 1.5 to 10.5 do writeln(‘A’);//biến đếm là số nguyên
C. for i:= 1 to 10 do; writeln(‘A’); //thừa dấu ; sau do
D. for i:=1 to 10 do writeln(‘A’);
Câu 8: Câu lệnh Pascal : While (4*5>=20) do Writeln (4*5); sẽ : *
A. In số 20 ra màn hình 4 lần.
B. In số 20 ra màn hình 5 lần.
C. Không thực hiện lệnh Writeln (4*5);
D. Lặp vô hạn lần lệnh Writeln (4*5);
Câu 9: While S<=20 do Writeln(S); Điều kiện để dừng chương trình là *
1 điểm
A. S>20
B. S=20
C.S<>20
D. S<20
Câu 10: Đoạn lệnh sau đây sẽ cho kết quả gì?so:=1;While so < 10 do writeln(so); so:=so + 1; *
1 điểm
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 11: Câu lệnh nào sau đây lặp vô hạn lần *
1 điểm
A. s:=5; i:=0; While i<=s do s:=s + 1;
B. s:=5; i:=1; While i> s do i:=i + 1;
C. s:=5; i:=1; While i<=s do i:=i + 1;
D. s:=0; i:=0; n:=5; While i<=n do Begin If (i mod 2)=1 Then S:=S + i; Else :=i+1; End;
Câu 12: Để tính tổng S=1/2+1/4 + 1/6 + … +1/ n; em chọn đoạn lệnh: *
1 điểm
A. for i:=1 to n do if ( i mod 2)=0 then S:=S + 1/i;
B. for i:=1 to n do if ( i mod 2)=0 then S:=S – 1/i Else S:= S + 1/i;
C. for i:=1 to n do if ( i mod 2) < > 0 then S:=S + i;
D. for i:=1 to n do if ( i mod 2)=0 then S:=S +1/i Else S:=S-1/i;
Câu 13. Trong câu lệnh lặp For i:=1 to 10 do begin…end; câu lệnh ghép được thực hiện bao nhiêu lần? *
1 điểm
A. Không lần nào
B. 1 lần
C. 2 lần
D. 10 lần
Câu 14. Đoạn lệnh sau đây: so:=1; while so<10 do begin writeln(so); so:=so+1; end; sẽ cho kết quả là gì? *
1 điểm
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. Cả a, b, c đều sai
Câu 15: Số vòng lặp trong câu lệnh:For (Biến đếm):=(Giá trị đầu) to (Giá trị cuối) do (câu lệnh); được xác định: *
1 điểm
A. Giá trị đầu - Giá trị cuối + 1
B. Giá trị đầu - Biến đếm + 1
C. Giá trị cuối - Giá trị đầu + 1
D. Giá trị cuối - Biến đếm + 1
Câu 16: Trong câu lệnh lặp: For (Biến đếm):=(Giá trị đầu) to (Giá trị cuối) do (câu lệnh); Khi thực hiện ban đầu Biến đếm nhận giá trị = Giá trị đầu, sau mỗi vòng lặp biến đếm tăng thêm: *
1 điểm
A. 1 đơn vị
B. 2 đơn vị
C. 3 đơn vị
D. 4 đơn vị
Câu 17: trong câu lệnh lặp với số lần xác định trước, <câu lệnh> được thực hiện bao nhiêu lần? *
1 điểm
A. (<giá trị đầu> – <giá trị cuối>) lần.
B. (<giá trị cuối> – <giá trị đầu>) lần.
C. (<giá trị cuối> – <giá trị đầu> + 1) lần.
D. Khoảng 10 lần
Câu 18: Tìm giá trị S khi thực hiện đoạn chương trình sau đâyS:=0;For i:=1 to 5 do S:= S+i; *
1 điểm
A. S=0.
B. S= 1.
C. S=10.
D. S=15.
Câu 19: Hãy cho biết kết quả của b trong đoạn chương trình sau đây.a:=10; b:=5;while a>=10 dobegin b:=b+a; a:=a-1; end; *
1 điểm
A. b=5.
B. b=10.
C. b=15.
D. B=20.
Câu 20: Lúc nào thì câu lệnh lặp While..Do sẽ dừng lại? *
1 điểm
A. <Điều kiện> có giá trị đúng.
B. < Điều kiện> có giá trị sai.
C. Các câu lệnh bên trong < câu lệnh> đã thực hiện xong.
D. Tất cả phương án trên đều sai.
Câu 21: Bạn Ngọc muốn in ra màn hình 5 chữ B và 5 chữ C trên màn hìnhbằng đoạn chương trình sau:For i:=1 to 5 doWriteln(‘B’); writeln(‘C’);Theo em bạn Ngọc viết như thế nào *
1 điểm
A. Đúng rồi
B. Phải đưa Writeln(‘B’); writeln(‘C’) vào trong cặp từ khóa Begin và End;
C. Phải đổi Writeln thành Write.
D. Phải đặt Writeln(‘B’); writeln(‘C’); trên hai dòng riêng biệt.
Câu 22: Việc đầu tiên câu lệnh While cần thực hiện là gì? *
1 điểm
A. Thực hiện <câu lệnh> sau từ khóa Do.
B. Kiểm tra giá trị của <điều kiện>.
C. Thực hiện < câu lệnh > sau từ khóa Then.
D. Kiểm tra <câu lệnh>.
Câu 23: Kết quả của < điều kiện> trong câu lệnh While ..Do có giá trị gì? *
1 điểm
A. Là 1 số nguyên.
B. Là 1 số thực.
C. Đúng hoặc sai.
D. Là 1 dãy kí tự.
Câu 24: Câu lệnh sau từ khóa Do trong câu lệnh While sẻ được thực hiện bao nhiêu lần? *
1 điểm
A. 0 lần.
B. 1 lần
C. 2 lần
D. Tùy thuộc bài toán.
Câu 25. Đối với từng đoạn chương trình Pascal sau đây, hãy cho biết lệnh writeln in ra màn hình giá trị của j, k là bao nhiêu? (1.5 điểm)j:=2; k:=3;for i:=1 to 5 do j:=j+1;k:=k+j;cach:=’ ’;writeln(j,cach, k); *
1 điểm
A. j = 3; k = 5
B. j = 5; k = 7
C. j = 7; k = 10
D. j = 10; k = 7
Câu 26. Đối với từng đoạn chương trình Pascal sau đây, hãy cho biết lệnh writeln in ra màn hình giá trị của i , j, k là bao nhiêu? (1.5 điểm)i:=1; j:=2; k:=3;while i<6 do i:=i+1; j:=j+1; k:=k+j;cach:=’ ’;writeln(i,cach, j,cach, k); *
1 điểm
a. i=2; j = 3; k =4
b. i=4; j = 5; k =6
c. i=5; j = 3; k =6
d. i=6; j = 3; k =6
Câu 27: Trong ngôn ngữ lập trình Pascal, câu lệnh lặp với số lần chưa biết trước là: *
1 điểm
A. If (Điều kiện) then (Câu lệnh);
B. Var i,n: Integer;
C. While (điều kiện) do (câu lệnh);
D. For (Biến đếm):=(Giá trị đầu) downto (Giá trị cuối) do (câu lệnh);
Câu 28: Trong câu lệnh lặp: For (Biến đếm):=(Giá trị đầu) to (Giá trị cuối) do (câu lệnh); Khi thực hiện ban đầu Biến đếm nhận giá trị = Giá trị đầu, sau mỗi vòng lặp biến đếm tăng thêm: *
1 điểm
A. 1 đơn vị
B. 2 đơn vị
C. 3 đơn vị
D. 4 đơn vị
Câu 29: Đâu là hoạt động lặp với số lần chưa biết trước? *
1 điểm
A. Hàng ngày em đi học.
B. Một tuần trường em tổ chức chào cờ 1 lần.
C. Ngày em đánh răng ba lần
D. Em sẽ đến nhà bà ngoại chơi vào hôm cả bố và mẹ đi vắng.
Câu 30: Câu lệnh pascal nào sau đây là hợp lệ? *
1 điểm
A. For i=1 to 10 do writeln(‘A’)
B. For i : = 1 to 10 do writeln(‘A’);
C. For i:=5 to 30 do; writeln(‘A’)
D. For i:= 10 to 1 do writeln(‘A’);
Câu 31: Trong các câu lệnh lặp Pascal sau đây, câu nào đúng *
1 điểm
A. While i= 1 do T:=10;
B. While (n mod i <> 0) ; do i:= i+ 1 ;
C. While 1 = 1; do Writeln (‘Dung’);
D. While x<=y do; Writeln (‘y khong nho hon x’);
Câu 32: Sau khi thực hiện đoạn chương trình sau, giá trị của biến a bằng bao nhiêu? a:=0 ; for i:= 1 to 3 do a:= a+i; *
1 điểm
A. 3
B. 4
C. 6
D. 2
Câu 33: Trong câu lệnh lặp for i:=1 to 10 do begin…end; câu lệnh ghép được thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?) *
1 điểm
A. Không lần nào
B. 1 lần
C. 10 lần
D. 2 lần
Câu 34: Trong ngôn ngữ Pascal, đoạn chương trình sau thực hiện bao nhiêu vòng lặp?S:=2; n:=0; While s<=10 do Begin n:=n+1; s:= s+ n end; *
1 điểm
A. 3 lần
B. 4 lần
C. 5 lần
D. 6 lần
Câu 35: Trong ngôn ngữ Pascal, đoạn chương trình sau thực hiện bao nhiêu vòng lặp?S:=2; While s<=10 do s:= s+ n; *
1 điểm
A. 2.
B. 10.
C. Phụ thuộc vào biến n
D. Vô số lần
