WorksheetsBÀI TẬP TIN HỌC 11 - CÔ HÀ
Total questions: 10
Worksheet time: 10mins
Câu lệnh ghép có dạng?
Begin End;
Begin End
Begin
<các câu lênh>; End;
Tất cả các đáp án đều sai.
Hãy cho biết kết quả của đoạn chương trình sau:
x := 5; y:=10;
if x < y then
begin
max:=y;
min:=x;
end;
max = 5; min = 10;
max = 10; min = 5;
max = 10; min = 15;
max = 5;min = 5;
Hãy cho biết kết quả của đoạn chương trình sau:
X := 10;
If x – 3 > 5 then writeln (‘Xin chuc mung’);
Không thực hiện gì cả.
In ra kết quả là 7.
In ra kết quả là 5.
Đưa ra màn hình dòng chữ Xin chuc mung
Hãy cho biết kêt quả của đoạn chương trình sau:
X := 10; Y := 15;
If X > Y then X:= X – Y else Y := Y – X ;
X = 10; Y = 5;
X = 5; Y = 10;
X = 5; Y = 10;
X = 5; Y = 5;
Cho đoạn CT:
x:=2; y:=3;
IF x > y THEN F:= 2*x – y
ELSE
IF x=y THEN F:= 2*x
ELSE F:= x*x + y*y ;
Sau khi thực hiện CT, giá trị F là:
1
13
4
không xác định
Muốn kiểm tra đồng thời cả ba giá trị a, b, c có cùng lớn hơn 0 hay không ta viết câu lệnh If:
If a>0, b>0, c>0 then..
If (a>0) or (b>0) or (c>0) then..
If (a>0) and (b>0) and (c>0) then..
If a,b,c>0 then..
Hãy cho biết đoạn chương trình sau có mấy lỗi?
Var x, y : integer ;
Begin
X:=5
y:=15
If x > y then writeln(x);
end.
1
3
4
2
Hãy cho biết đoạn chương trình sau có mấy lỗi?
Var x, y : integer ; kq:boolean;
Begin
X:=2.5 ; y:=1
If x > y then kq = true ; else kq := false;
end.
5
3
4
2
Muốn kiểm tra 2 giá trị của A và B có khác nhau hay không ta viết câu lệnh If như thế nào cho đúng?
A. If A><B then… B. If A!=B then… C. If AB then… D. If A<>B then…
If A><B then…
If A!=B then…
If AB then…
If A<>B then…
Hãy viết câu lệnh if then dạng thiếu để tính giá trị biểu thức sau:
z= x +y nếu x>1 và y>1
if x >1 and y>1 then z:=x+ y;
if (x >1 )and (y>1) then z:=x+ y;
if (x >1 )and (y>1) then z=x+ y;
if (x >1 )and (y>1) then z:=x+ y
