Font size
WorksheetsPascal Bài 8
Total questions: 50
Worksheet time: 26mins
Vòng lặp While – do kết thúc khi nào
Khi một điều kiện cho trước được thỏa mãn
Khi đủ số vòng lặp
Khi tìm được Output
Tất cả các phương án
Đoạn chương trình sau giải bài toán nào?
While not (1/(a+N) < 0.0001) do
Begin
N:=N+1;
S:=S+ 1.0/(a+N);
End;
Tính tổng các số nhỏ hơn 0,0001
Tính tổng các số lớn hơn 0,0001
Tính tổng s=1/a+1/(a+1)+1/(a+2)+⋯+1/(a+N)+⋯ cho đến khi 1/(a+N)>0,0001
Tính tổng s=1/a+1/(a+1)+1/(a+2)+⋯+1/(a+N)+⋯ cho đến khi 1/(a+N)<0,0001
Đoạn chương trình sau thực hiện công việc gì ?
i := 0 ; while i <> 0 do write(i, ‘ ’) ;
Đưa ra màn hình 10 chữ số 0
Không đưa ra thông tin gì;
Lặp vô hạn việc đưa ra màn hình số 0
Đưa ra màn hình một chữ số 0
Hãy cho biết đoạn chương trình sau làm công việc gì ?
I := 0 ; T := 0 ;
While I < 10000 do
Begin
T := T + I ;
I := I + 2 ;
End ;
Tính tổng các số tự nhiên nhỏ hơn hoặc bằng 10000
Tính tổng các số tự nhiên chẵn nhỏ hơn 10000
Tính tổng các số tự nhiên chẵn nhỏ hơn hoặc bằng 10000
Tính tổng các số tự nhiên nhỏ hơn hoặc 10000
Đoạn chương trình sau làm công việc gì? (Chọn phương án đúng nhất)
While a < (b+25) do readln(a,b);
Lặp lại việc nhập a,b cho đến khi a < b+25
Lặp lại việc nhập a,b cho đến khi a> b+25
Lặp lại việc nhập a,b cho đến khi a ≥ b+ 25
Lặp lại việc nhập a,b cho đến khi a ≤ b+25
Đoạn chương trình sau làm công việc gì? (Chọn phương án đúng nhất)
While a <> 2*b do
Begin a:=a+1; b:=b+1;
End;
Trong khi a ≠ 2b thì lặp lại việc tăng a, b, n lên 1 đơn vị
Lặp lại việc tăng a, b lên 1 đơn vị cho đến khi a ≠ 2b
Lặp lại việc tăng a, b lên 1 đơn vị cho đến khi a = 2b
Lặp lại việc tăng a, b lên 1 đơn vị cho đến khi a > 2b
Cho chương trình sau:
Màn hình cho kết quả gì khi nhập a = 5000 và b = 10000.
3 13720.0
1 10000.0
2 5000.0
3 10000.0
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 Do
Kiểm tra giá trị của < điều kiện >
Thực hiện câu lệnh sau từ khóa Then
Kiểm tra < câu lệnh >
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:
i := 5;
While i>=1 do i := i – 1;
1 lần
2 lần
5 lần
6 lần
Hãy cho biết sau khi chạy chương trình thì trên màn hình xuất hiện gì:
a:=10;While a < 11 do write (a);
Trên màn hình xuất hiện một số 10
Trên màn hình xuất hiện 10 chữ a
Trên màn hình xuất hiện một số 11
Chương trình bị lặp vô tận
Câu lệnh sau giải bài toán nào:
While M <> N do
If M > N then M:=M-N else N:=N-M;
Tìm UCLN của M và N
Tìm BCNN của M và N
Tìm hiệu nhỏ nhất của M và N
Tìm hiệu lớn nhất của M và N
Hoạt động nào sau đây lặp với số lần lặp chưa biết trước?
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
Ngày đánh răng 2 lần
cú pháp lệnh lặp với số lần chưa biết trước:
While < điều kiện > to < câu lệnh >;
While < điều kiện > to < câu lệnh 1 > do < câu lệnh 2 >;
While < điều kiện > do ;< câu lệnh >;
While < điều kiện > do < câu lệnh >;
Tính tống S = 1 + 2 + 3 + … + n + … cho đến khi S>108. Điều kiện nào sau đây cho vòng lặp while – do là đúng:
While S>=108 do
While S < 108 do
While S < 1.0E8 do
(Exp(8*ln(10))
While S >= E8 do
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:
For…do
While…do
If..then
If…then…else
Hãy đưa ra kết quả trong đoạn lệnh:
x:=1; While x<=5 do write(‘Hoa hau’);
x:=1
X>=5
Hoa hau
Không có kết quả.
cách khai báo thư viện toán học trong pascal
uses crt
uses crt;
use crt
use crt;
Hàm x lũy thừa y ( xy )sẽ được viết là:
Exp(y*ln(x))
Exp(x*ln(y))
Exp(y*(x))
Exp(x*(y))
Để sử dụng các hàm toán học (exp(), sqr(), sqrt(),... ) ta sẽ khai báo thư viện gì?
crt
rct
prc
prt
Cho đoạn chương trình Pascal sau đây:
tong:= 0;
While tong<= 10 do
tong:=tong+1;
Sau khi đoạn chương trình trên được thực hiện, giá trị của tổng bằng bao nhiêu:
9
10
11
12
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;
3
6
10
Kết quả khác
Lặp vô hạn
Trong câu lệnh WHILE…DO, điều kiện sau từ khoá “WHILE” thường là:
Một phép gán
Biểu thức số học
Một phép so sánh
Một phép toán
Cho biết khi thực hiện thuật toán sau, máy tính sẽ thực hiện bao nhiêu vòng lặp?
Bước 1. S ← 10, x ← 1.
Bước 2. Nếu S ≤ 5, chuyển tới bước 4.
Bước 3. S ← S - x và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
5
10
15
Kết quả khác
Cho biết khi thực hiện thuật toán sau, máy tính sẽ thực hiện bao nhiêu vòng lặp?
Bước 1. S ← 16, n ← 0
Bước 2. Nếu S ≤ 10, chuyển tới bước 4.
Bước 3. n ← n + 3, S ← S – n và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
1
2
3
4
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<=2 do
n:= n+1;
S:= s+n;
3
6
10
Kết quả khác
Lặp vô hạn
Cho biết đoạn chương trình Pascal sau đây còn thiếu lệnh gì để tránh việc lặp vô hạn?
S:=0; n:=0;
while S<=2 do
n:= n+1;
S:= s+n;
begin
...
end;
if ... then
for ... to ... do
for ... downto ... do
Không thiếu gì
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<=9 do
begin
n:= n+1;
S:= s+n
end;
3
6
10
15
Hoạt động nào sau đây là lặp với số lần chưa biết trước:
Chọn đáp án đúng nhất
Rửa tay
Lau bảng
Múc nước cho
Chạy quanh sân cho đến khi mệt
Câu lệnh sau từ khoá “DO” sẽ được bỏ qua nếu điều kiện:
Đúng
Sai
Cả hai đều đúng
Cả hai đều sai
Hoạt động nào sau đây lặp với số lần lặp chưa biết trước?
Ngày tắm hai lần
Gọi điện cho khi bắt máy
Mỗi tuần đi nhà sách một lần
Ngày đánh răng 2 lần
Khi sử dụng lệnh lặp While ... do cần chú ý điều gì?
Số lần lặp
Số lượng câu lệnh
Điều kiện dần đi đến đúng
Điều kiện dần đi đến sai
Kết quả trong đoạn lệnh dưới đây là
x:=2; While x<=5 do write(‘Con meo’);
x:=2
X>=5
Con meo
Không có kết quả.
Nếu điều kiện đúng thì < 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?
1 lần
0 lần
2 lần
Vô số lần
Câu lệnh lặp while…do nào bên dưới có dạng đúng?
x:=10; While x=10 do x=x+5;
x:=10; While x=10 do x:=x+5;
x:=10 While x=10 do x:=x+5;
X:=10; While x:=10 do x:=x+5;
Đoạn lệnh sau đúng hay sai, tại sao?
While n<=0 do;
Write(‘Nhap lai n:’);
Readn (n);
Đúng
Sai, sau do không có;
Sai, thiếu Begin end.
Sai, sau do không có; và Sai, thiếu Begin end.
đều đúng
Trong vòng lập While… do, nếu điều kiện sai thì:
câu lệnh sẽ bị bỏ qua và việc thực hiện lệnh lặp kết thúc
thực hiện câu lệnh và quay lại bước 1.
không chạy được
Tất cả đều sai
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:
i := 6;
While i>=1 do i := i – 1;
1 lần
2 lần
5 lần
6 lần
Lỗi lập trình cần tránh trong các câu lệnh điều kiện là gì?
Sai điều kiện
Lặp vô hạn lần
Sai từ khóa
Tất cả đều đúng
Hãy cho biết đoạn chương trình dưới đây sẽ như thế nào?
a:=10; While a < 11 do write (a);
Trên màn hình xuất hiện một số 11
Trên màn hình xuất hiện một số 10 và ngừng chương trình
Trên màn hình xuất hiện 10 chữ a
Hiện thị số 10 với lần lặp vô tận
Đoạn lệnh sau, mỗi lần lặp giá trị của biến i trong câu lệnh sau thay đổi như thế nào?
While i<=10 do i:=i+3;
Tăng 1
Tăng 2
Tăng 3
Tăng 4
Trong các câu lênh lặp Pascal sau đây, câu nào chương trình không báo lỗi?
While (n mod i <> 0) do i := i + 1;
while i := 1 do t := 10;
while x<=y to writeln ('y khong nho hon x');
While 1:=1 do Writeln ('Dung');
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:
i := 5;
While i>=1 do i := i – 1;
1 lần
2 lần
5 lần
6 lần
Câu lệnh lặp while…do có dạng đúng là:
X:=10; While x:=10 do x:=x+5;
x:=10 While x=10 do x:=x+5;
x:=10; While x=10 do x=x+5;
x:=10; While x=10 do x:=x+5;
Phát biểu nào sau đây là đúng?
Lệnh lặp while thực hiện khối lệnh với số lần lặp không biết trước. Khối lệnh lặp được thực hiện cho đến khi <điều kiện> = False.
Lệnh lặp while thực hiện khối lệnh với số lần lặp không biết trước. Khối lệnh lặp được thực hiện cho đến khi <điều kiện> = True.
Lệnh lặp while thực hiện khối lệnh với số lần lặp biết trước. Khối lệnh lặp được thực hiện cho đến khi <điều kiện> = False.
Lệnh lặp while thực hiện khối lệnh với số lần lặp biết trước. Khối lệnh lặp được thực hiện cho đến khi <điều kiện> = True.
Dấu so sánh khác trong pascal là:
=
!=
><
<>
Câu lệnh while để xét xem tên được nhập vào với tên cho trước có trùng hay không?
đáp án không viết hoa trừ While
Tất cả đều cách trừ <>, tên biến là ten, tên hằng (tên cho trước) là ten1
(a)
Kiểu dữ liệu của kiểu xâu (chuỗi kí tự)
Integer
real
Byte
String
Char
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:
i := 10;
While i>=4 do i := i – 1;
4 lần
5 lần
7 lần
6 lần
K sẽ nhận được giá trị nào sau khi chạy chương trình dưới đây?
Program Ln05;
Var k, i: byte;
begin
i:=1;
K := 1;
While i <= 3 do
begin
K := K + 1;
end;
readln;
end.
3
4
Không xác định được K
6
Lặp vô hạn
Cú pháp câu lệnh lặp While:
While <biến đếm> := <giá trị đầu> do <câu lệnh lặp>;
While <câu lệnh lặp> do <điều kiện>;
While <điều kiện> do; <câu lệnh lặp>;
While <điều kiện> do <câu lệnh lặp>;
