Câu lệnh lặp For i:= 2 to 5 do Writeln(‘Day la lan lap thu ‘,i); sẽ in ra màn hình mấy dòng chữ?
A. 1
B. 3
C. 4
D. 5
Câu lệnh lặp For i:=1 to 5 do Writeln(‘Day la lan lap thu ‘,i); sẽ in ra màn hình mấy dòng chữ?
A. 1
B. 3
C. 5
D. 7
Câu lệnh lặp For i:=1 to 5 do Writeln(‘Day la lan lap thu ‘,i); sẽ in ra màn hình mấy dòng chữ?
A. 1
B. 3
C. 5
D. 7
Câu 1: Câu lệnh pascal nào sau đây là hợp lệ?
a) For i:=100 to 1 do writeln(‘A’);
b) For i:=1.5 to 10.5 do writeln(‘A’);
c) For i= 1 to 10 do writeln(‘A’);
d) For i:= 1 to 10 do writeln(‘A’);
Câu 2: Lệnh lặp For, mỗi lần lặp giá trị của biến đếm thay đổi như thế nào?
A. Tăng 1
B. Tăng 2
C. Tăng 3
D. Tăng 4
Câu 4: Vòng lặp for ..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à <=50
D. Biết trước số lần lặp nhưng giới hạn là >=50
Câu 5: Với ngôn ngữ lập trình Pascal 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: *
A. Integer
B. Real
C. String
D. Tất cả các kiểu trên đều được
Câu 6: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :
s:=0;
for i:=1 to 5 do
s := s+i;
writeln(s);
Kết quả in lên màn hình là của s là :
a) 11
b) 55
c) 101
d) 15
Câu 7: Để tính tổng S=1+3 + 5 + … + n; em chọn đoạn lệnh:
a) for i:=1 to n do
if ( i mod 2)=0 then S:=S + 1/i; c) for i:=1 to n do if ( i mod 2) < > 0 then S:=S + i;
b) for i:=1 to n do
if ( i mod 2)=0 then S:=S + i
Else S:= S + i; d) for i:=1 to n do if ( i mod 2)=0 then S:=S + i;
Câu 8: Để đếm có bao nhiêu số lẻ nhỏ hơn hay bằng n ; em chọn đoạn lệnh:
a) for i:=1 to n do
if ( i mod 2)< >0 then S:=S + 1; c) for i:=1 to n do if ( i mod 2) =0 then S:=S + 1;
b) 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 + i;
III. Bài tập thực hành: Viết chương trình nhập vào 1 số nguyên n. Viết ra 20 các số chẳn tiếp theo lớn hơn số n.
GIÚP VỚI !!!
1.C
2.A
4.A
5.A
6.D
7.C
8.A
III.
Program HOC24;
var n,d: integer;
begin
write('Nhap N: '); readln(n);
if n mod 2=1 then
begin
begin
n:=n+1;
write(n,' ');
end;
d:=1;
while d<20 do
begin
n:=n+2;
write(n,' ');
d:=d+1;
end;
end else
begin
d:=1;
while d<=20 do
begin
n:=n+2;
write(n,' ');
d:=d+1;
end;
end;
readln
end.
Câu 1: Câu lệnh lặp nào bên dưới có dạng đúng?
A. For i= 1 to 10 do writeln(‘A’);
B. For i:=1.5 to 10.5 do writeln(‘A’);
C. For i:= 1 to 10 do writeln(‘A’);
D. For i:=100 to 1 do writeln(‘A’);
E. x:=10; While x=10 do x=x+5;
F. x:=10; While x=10 to x:=x+5;
G. x:=10 While x=10 do x:=x+5;
H. x:=10; While x=10 do x:=x+5;
Câu 1:Trong ngôn ngữ Pascal, về mặt cú pháp câu lệnh nào sau đây đúng với cấu trúc lặp For ..to..do
A. for i:= 4 to 1 do writeln(‘A’); B. for i= 1 to 10 writeln(‘A’);
C. for i:= 1 to 10 do writeln(‘A’); D. for i to 10 do writeln(‘A’);
viết cú pháp câu lệnh lặp với số lần biết trc cho ví dụ c10 kiểm tra tính đúng sai của câu lệnh sauneeus sai sửu lại cho đúng
a for i = 1 to 5 do writeln (`A');
b, for i : 1.5 to 5.5 do writeln (`A');
c x : 5 ; while x : x=5 DO X: = x + 5 ;
d, var array : x [1.. 10] of interger ;
For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
a: Sai
Sửa lại: For i:=1 to 5 do writeln('A');
b: Sai
For i:=1 to 5 do writeln('A');
c: Sai
x:=5;
while x>=5 do
x:=x+5;
d: var x:array[1..10]of integer;
Câu 4. Cho câu lệnh lặp For i :=5 to 20 do j:= j + 2 ; Hãy cho biết số lần lặp của câu lệnh? A. 20 lan B. 19 lan C. 16 lan D. Không thực hiện.
Hãy cho bt đâu là lệnh lặp for...do để in chữ O
A for i:=1.5 to 10.5 do writeln('o');
B for i:=1 to 10 do writeln('O');
C for i:=100 to 1 do writeln('o')
D for i:=1 to 10 do; writeln('o')
Hãy cho bt đâu là lệnh lặp for...do để in chữ O
A for i:=1.5 to 10.5 do writeln('o');
B for i:=1 to 10 do writeln('O');
C for i:=100 to 1 do writeln('o')
D for i:=1 to 10 do; writeln('o')
Câu 13 : Câu lệnh pascal nào sau đây là hợp lệ?
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 13 : Câu lệnh pascal nào sau đây là hợp lệ?
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’); |