Viết phương trình bx+c=0 bằng câu lệnh while do
Viết c/trình Tính : S= 2/3 + 2/6 + 2/9 +...+2/36 Giải bằng câu lệnh while...do
Program HOC24;
var i,n: integer;
s: real;
begin
n:=3; s:=0;
while n<=36 do
begin
s:=s+2/n;
n:=n+3;
end;
write('S= ',S:1:2);
readln
end.
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 >;
viết chương trình tính tổng s=1+1/3+1/5+....+1/2n-1 bằng câu lệnh for do và while do
program tinh_tong;
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n*2-1 do
if i mod 2=1 then s:=s+1/i;
writeln('tong la: ',s);
readln;
end.
program tinh_tong;
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('nhap n:');readln(n);
i:=1;
while i<=n*2-1 do
begin
s:=s+1/i;
i:=i+2;
end;
writeln('tong la: ',s);
readln;
end.
* Nhận biết:
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 <câu lệnh 2>; D. While <điều kiện>; do <câu lệnh>;
Câu 2: Vòng lặp while ..do là vòng lặp:
A. Biết trước số lần lặp B. Chưa biết trước số lần lặp
C. Biết trước số lần lặp nhưng giới hạn là <=100 D. Biết trước số lần lặp nhưng giới hạn là >=100
Câu 3: Trong câu lệnh While...do, nếu điều kiện đúng thì:
A. Tiếp tục vòng lặp B. Vòng lặp vô tận
C. Lặp 10 lần D. Thoát khỏi vòng lặp
Câu 4: Trong câu lệnh while…do nếu điều kiện sai thì:
A. Tiếp tục vòng lặp B. Lặp 1 lần
C. Lặp vô hạn lần D. Thoát khỏi vòng lặp
Câu 5: Khi sử dụng câu lệnh lặp với số lần chưa biết trước, cần chú ý đầu tiên là:
A. Điều kiện B. Từ khóa C.Lỗi lặp vô hạn lần D. Câu lệnh đơn hay câu lệnh ghép.
* Thông hiểu:
Câu 1: <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 2: Cho đoạn chương trình sau đây:
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 D. Không phương án nào đúng
Câu 3: Khi sử dụng lệnh lặp While…do cần chú ý điều gì?
A. Phải biết số lần lặp.
B. Phải biết số lượng câu lệnh.
C. <điều kiện> trong câu lệnh phải dần dần đi đến kết quả là sai.
D. <điều kiện> trong câu lệnh phải dần dần đi đến kết quả là đúng.
Câu 4: Trong số các hoạt động dưới đây, hoạt động nào sẽ được thực hiện lặp lại với số lần chưa biết trước?
A. Tính tổng của 20 số tự nhiên đầu tiên.
B. Nhập một số hợp lệ, ví dụ nhập số nguyên trong khoảng từ 0 đến 10 vào máy tính. Nếu số nhập vào không hợp lệ thì được yêu cầu nhập lại.
C. Nhập các số nguyên từ bàn phím cho đến khi đủ 50 số.
D. Trừ một số nguyên dương a nhiều lần cho một số nguyên dương b cho đến khi hiệu thu được nhỏ hơn b.
Câu 5: Chỉ ra phát biểu sai trong các phát biểu dưới đây:
A. Cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực hiện lặp lại một hoạt động nào đó cho đến khi một điều kiện nào đó thỏa mãn.
B. Chỉ có ngôn ngữ lập trình Pascal mới có các câu lệnh lặp để thể hiện cấu trúc lặp.
C. Ngôn ngữ lập trình Pascal thể hiện cấu trúc lặp với số lần lặp cho trước bằng câu lệnh For..do.
D. Ngôn ngữ lập trình Pascal thể hiện cấu trúc lặp với số lần lặp không biết trước bằng câu lệnh While...do.
Viết chương trình in ra các ước số của N bằng câu lệnh For...do và While...do
Cứu mình!
uses crt;
var i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do if n mod i=0 then write(i:4);
readln;
end.
câu 1. Câu lệnh nào đúng ?
A. While (x mod 3=0) do s:=s+1; B. While (x mod 3)do s:=s+1;
C. While (x mod 3=0) ;do s:=s+1; D. While (x:=x mod 3) do s:=s+1;
câu 2 . cho đoạn chương trình sau:
S:=20; n:=0;
While s>=10 do
Begin
n:=n+3;
S:=S-n;
End;
hãy cho biết giá trị của S sau đoạn chương trình trên:
A. 4 B. 1 C. 2 D.3
b) Em hãy viết chương trình Tính tổng của 20 số tự nhiên đầu tiên bằng câu lệnh for … do và while… do ?
Sử dụng vòng lặp while...do:
program TinhTong20SoTNN;
var
i, sum: integer;
begin
i := 1;
sum := 0;
while i <= 20 do
begin
sum := sum + i;
i := i + 1;
end;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.
Sử dụng vòng lặp for...do:
program TinhTong20SoTNN;
var
i, sum: integer;
begin
sum := 0;
for i := 1 to 20 do
sum := sum + i;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.
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
Viết chương trình tính tổng S = 3 +6 +9 + … + 90 Sử dụng câu lệnh for do
Viết chương trình tính tổng S = 3 +6 +9 + … + 90 Sử dụng câu lệnh while do
For...do:
var s,i: integer;
begin
readln(s,i);
s:=0;
For i:=3 to 99 do
If i mod 3 = 0 do s:=s+i;
write(s);
readln;
end.
while ... do:
Var i,S:integer;
Begin
Readln(i,s);
S:=0;
i:=3;
while i<=99 do
if i mod 3 = 0 then s:=s+i;
write(s);
Readln;
End.