uses crt;
var x,a,b:integer;
begin
clrscr;
write('Nhap a: ');
readln(a);
write('Nhap b: ');
readln(b);
x:=a+b*2;
if x>10 then write('X lon hon 10')
else write('X be hon 10');
readln;
end.
Xác định bài toán, mô tả thuật toán và viết chương trình các thuật toán sau
1.So sánh 2 số thực a và b (a ≠ b)2.Thông báo số lớn hơn trong 2 số thực a và b (a ≠ b)4) Cho biết kết quả phép so sánh trong đoạn lệnh sau đây:
a:=1; b:=2;
If (a+b<5) then a:=a+b;
a. Đúng b. Sai
5) Cho biết kết quả phép so sánh trong đoạn lệnh sau đây:
a:=2; b:=3;
If (a+b<5) or (b-a>0) then a:=a+b;
a. Đúng b. Sai
6) Cho biết kết quả phép so sánh trong đoạn lệnh sau đây:
a:=1; b:=2;
If (a+b<=3) and (b-a>1) then a:=a+b;
a. Đúng b. Sai
7) Câu lệnh nào sau đây được viết đúng cú pháp:
a) If N >4 then N=N+1;
d) If K:=2 then write(‘chao’);
c) If z+y=x then x:=z-y;
d) If X =>10 then
write(‘X lon hon hoac bang 10’);
8) Câu lệnh nào sau đây viết sai cú pháp:
a. if k>2 then k:=k-1;
else k:=k+1;
b. if a> b then
begin
a:=a+b; b:=b+1;
end
Else
begin
a:=a-b; b:=b-1;
end;
c. if N=K div 10 then write(K) else writeln(N);
d. if 2>3 then write(2) else write(3);
9) x có giá trị bao nhiêu sau khi thực hiện lệnh sau:
x:=5;
if x mod 2 = 1 then
x:=x+3;
a. 5 b. 3 c. 2 d. 8
10) x có giá trị bao nhiêu sau khi thực hiện lệnh sau:
x:=1; t:=3;
if x< t+5 then
x:=x+3;
else
begin
t:=t-1;
x:=x+t;
end;
x:=x*x;
a. 1 b. 3 c. 8 d.16
LÝ THUYẾT:
1) Năm nay là 2020 vậy tháng 2 có điều kiện THANG2 > 0 và điều kiện nào sao đây:
A. THANG2 <= 28 B. THANG2 <= 29 C. THANG2 <= 31 D. THANG2 <= 30
2) Để thể hiện điều kiện D lớn hơn hay 8 E là Gioi câu nào sau đây đúng
A. (D >= 8) OR (E = ' Gioi ') B. ( D >= 8) OR (E= ''Gioi'')
C. (D >= 8) OR (E = Gioi) D. D .= 8 OR E = Gioi
3) Để tìm giá trị lớn nhất của 2 số a,b thì ta viết:
A. Max:=b;If a> Max then Max:=a; B. If (a>b) then Max:=a;If (b>a) then Max:=b;
C. Max:=a;If b>Max then Max:=b; D. Cả 3 câu đều đúng
4) Lệnh nào thể hiện A là số chẵn:
A. If A mod 2 <> 1 then write (' A là số lẻ ');
B. If A mod 2 <> 0 then write (' A là số chẵn ');
C. If A mod 2 = 0 then write (' A là số chẵn ');
D. If A mod 2 = 1 then write (' A là số chẵn ');
5) Chương trình sau cho biết kết quả là gì?
Var a, b: real; x integer; Begin readln(a, b); If a > b then x:=a else x:=b; Write(x); End.
A. Đảo giá trị của 2 biến a, b cho nhau
B. Chương trình không thực hiện được do lỗi khai báo kiểu dữ liệu
C. Xuất ra màn hình số lớn trong 2 số a, b đã nhập
D. Xuất ra màn hình số nhỏ trong 2 số a, b đã nhập
6) Điều kiện nào hợp lệ trong các điều kiện sau khi nói về ngày trong tháng 8:
A. (NGAY > 0) AND (NGAY <= 31) B. (NGAY > 0) AND (NGAY <= 30)
C. NGAY <= 31 D. NGAY > 0
7) Để thể hiện điều kiện D lớn hơn hay bằng 8 và E là Gioi câu nào sau đây đúng:
A. D >= 8 AND E= Gioi B. (D >= 8) AND (E= Gioi)
C. (D >= 8) AND (E= "Gioi") D. (D >= 8) AND (E= 'Gioi')
8) Xác định học sinh thi đậu hay rớt bằng câu lệnh nào sau đây:
A. If ĐTB >= 0 then Writeln('Thi đậu');
B. If ĐTB >= 0 then Writeln('Thi rớt');
C. If ĐTB >= 5 then Writeln('Thi đậu') else Writeln('Thi rớt');
D. If X mod 2=0 then Writeln('Thi rớt') else Writeln('Thi đậu');
9) Tìm số bé nhất trong 3 số x, y, z bằng câu lệnh nào sau đây:
A. min:=x; If y>min then min:=y else min:=z;
B. min:=x; If y>min then min:=y; if z>min then min:=z;
C. min:=x; If y<min then min:=y else min:=z;
D. min:=x; If y<min then min:=y; if z<min then min:=z;
10) Để thể hiện B lớn hơn 10 câu nào sau đây đúng:
A. B >= '10' B. B>= '10' C. B > 10 D. B >= 10
\(I\), Lý thuyết:
1) Điều kiện B mod 2 <> 0 nếu đúng có ý nghĩa gì?
a) B là số dương b) B là số âm c) B là số chẵn d) B là số lẻ
2) Cấu trúc rẽ nhánh dạng đầy đủ:
a) If điều kiện then câu lệnh 1; else câu lệnh 2;
b) If điều kiện then câu lệnh 1else câu lệnh 2;
c) If điều kiện then câu lệnh;
d) If điều kiện then câu lệnh else câu lệnh;
3) Tìm số chẵn/ lẻ bằng câu lệnh nào sao đây :
a) If X mod 2= 0 then Writeln(' X là số lẻ ');
b) If X mod 2= 0 then Writeln(' X là số chẵn ');
c) If X mod 2= 0 then Writeln(' X là số lẻ ') else Writeln(' X là số chẵn ');
d) If X mod 2= 0 then Writeln(' X là số chẵn') else Writeln(' X là số lẻ ');
4) Tìm số lớn nhất trong 3 số x, y, z bằng câu lệnh nào sau đây:
a) max:=x; If y < max then max:= y else max:= z;
b) max:=x; If y > max then max:= y else max:= z;
c) max:=x; If y > max then max:= y; if z > max then max:= z;
d) max:=x; If y < max then max:= y; if z < max then max:= z;
5) Pascal sử dụng câu lệnh lặp nào sau đây là cấu trúc rẽ nhánh dạng thiếu
a) For ... to ... do; b) If ...then; c) If ...then...else d) While ...do;
6) Chọn câu lệnh Pascal hợp lệ trong các câu sau:
a) If a = 6 then x:= 100; b) If a > b then max:= a; else max:= b;
c) If a > b then max = a; d) If x := a + b then x: =x + 1;
1,chọn đúng hoặc sai tương ứng với các câu lệnh:
-if x:=7 then a=b;
-if x>5;then a:=b;
-if x>5 then a:=b;m:=n;
-if x>5 then a:=b;else m:=n;
2,cho các cụm từ: ngôn ngữ máy, ngôn ngữ lập trình, ngôn ngữ tự nhiên, chương trình, dãy bit, chương trình dịch.Điền các cụm từ thích hợp vào chỗ trống để dc câu hoàn chỉnh:
-các lệnh trong ngôn ngữ máy được viết dưới dạng......................
-...........................được sử dụng để viết chương trình
-chương trình thường được viết bằng ngôn ngữ lập trình, sau đó được ................. chuyển đổi sang ngôn ngữ máy
-...............................là ngôn ngữ duy nhất máy tính có thể hiểu được trực tiếp
-Dãy các lệnh để máy được thực hiện một nhiệm vụ nào đó gọi là...............................
3,sau mỗi câu lệnh sau đây, giá trị của biến x là bao nhiêu, nếu trước đó giá trị của biến x = 5.Điền giá trị của biến x thích hợp:
a) if ( 45 mod 3) = 0 then x:= x+1;
b) if x > 10 then x:= x+1;
Câu 1 Cho khai báo biến trong chương trình:
Var m,n: integer;
x,y : real
lệnh nào gán đúng?
A.m:=4.5;
B. n:=3.5;
C. x:=6;
D. y:=10;
Câu 2 câu lệnh sau đây cho kết quả là gì?
Write('5'+,'6')
A. 5+6
B. 11
C. '5'+'6'
D. Thông báo lỗi
Câu 3: các câu lệnh Pascal sau đây được viết đúng hay sai?
A. if x:5 then a=b; --->
B. if x>4; then a:=b; --->
C. if x>4 then a:=b;m:=n --->
D. if x>4 then a:=b; else m:n; --->
Các câu lệnh pascal sau đây có hợp lê không? vì sao?
a) if x:5 then a = b;
b) if x>2; then a:=b;
c) if x>5 then a:=b; m:=n;
d) if x>2 then a=b; else m:=n;
1. Các câu lệnh Pascal sau đây được viết đúng hay sai?
A. if x:=5 the a=b;
B. if x > 4; then a:=b;
C. if x > 4 then a:=b; m:=n;
D. if x > 4 then a:=b; else m:=n;
2. Để tìm giá trị lớn nhất của hai số a,b thì ta viết:
A. Max:=a; If b>Max then Max:=b;
B. If (a>b) then Max:=a; If ( b>a) then Max:=b;
C. Max:=b; If a>Max then Max:=a;
D. Cả 3 câu đều đúng
3. If.. Then...Else là:
A. Vòng lặp xác định
B. Vòng lặp không xác định
C. Câu lệnh điều kiện
D. Một khai báo
4. If a>8 then b:=3 else b:=5; Khi a nhận giá trị là 0 thì b nhận giá trị nào?
A. 0
B. 5
C. 8
D. 3
5. Phần dư trong phép chia của hai số nguyên 16 và 5 là:
A. 16 div 5 = 1
B. 16 mod 5=1
C. 16 div 5=3
D. 16 mod 5=3
6. A được khai báo là biến có kiểu dữ liệu số nguyên, X là biến dữ liệu kiểu xấu. Phép gán hợp lệ:
A. A:=4.5;
B. X:='1234'
C. X:=57;
D. A:='LamDong'
Câu 1. Viết chương trình nhập số tự nhiên, tự kiểm tra, ta xem số N là số chẵn hay lẽ. Sử dụng lệnh IF...THEN...ELSE và hàm mod để kiểm tra chẵn hay lẽ
Câu 2. Viết chương trình nhập vào chiều dài(d), chiều rộng(r) của hình chữ nhật. Tính diện tích(S), chu vi(CV)
SỬ DỤNG TURBO PASCAL
