2.Khai báo Var a: integer; b: Char; có ý nghĩa gì?
3.Khai báo Var a: integer; b: String; có ý nghĩa gì?
4.Sau khi thực hiện đoạn lệnh Begin c:=a; a:=b; b:=c; End.Cho biết kết quả.
5.Giả sử a và b là 2 biến số.Hãy cho biết kết quả của việc thực hiện chương trình: a:=a+b; b:=a-b; a:=a-b;
6.Sau khi thực hiện đoạn lệnh: Begin a:=a+b; b:=a-b; a:=a-b; End.Cho biết kết quả
7.Kết quả của phép toán a/b là...?
8.Trong câu lệnh điều kiện if....then....else có thể sử dụng ... lần?
9.Điều kiện sử dụng trong câu lệnh if...then...else có kết quả là ?
A.Chỉ đúng không sai B.Chỉ sai không đúng C.Chỉ có thể đúng hoặc sai D.Không đúng không sai
10.Sửa lỗi cho chương trình tính diện tích hình vuông sau:
Program bai1;
Uses crt;
Var canh integer;
Begin
Clscrs;
Writeln ('nhap canh:') reandln(canh)
dientich =canh*canh;
Writeln ('dien tich hinh vuong la:, dientich);
Readln;
End.
11.Sửa lỗi cho chương trình tính tổng
Program bai1;
Uses crt;
var a. b:integer;
Begin
Clscrs;
Writeln ('nhap a:') readln(a);
Writeln ('nhap b:'); readln(b)
Tong =a+b;
Writeln ('tong hai so a va b la:, tong);
Readln;
End.
12.viết câu lệnh so sánh 2 số a và b
13.Cho trước 3 số dương a,b,c.Viết chuong trình in ra ba số a,b,c có phải là độ dài của 1 tam giác hay không
14.Viết chương trình xét xem một tam giác có là tam giác cân hay không khi biết 3 cạnh của tam giác
15.Nhập 3 số a,b,c.Hãy viết chương trình tìm giá trị lớn nhất của
chúng và gắn giá trị lớn nhất đó cho biến MAX
16.Cho 3 biến a,b,c.Hãy viết chương trình hoán đổi 3 biến nói trên để a,b,c có thứ tự không tăng
17,Giải phương trình bậc nhất bx+c+0(với b,c được nhập từ bàn phím)
18,Cho 3 biến a,b,c.Hãy viết chương trình hoán đổi 3 biến nói trên để a,b,c có thứ tự không giảm
c1: 5+6
c2: a là 1 số nguyên
b là 1 kí tự
c3: a là 1 số nguyên
b là 1 xâu kí tự
c4: hai số a,b được hoán vị cho nhau như vậy lúc này a mang giá trị của b, b mang giá trị của a. a=b,b=a
c5,6: tương tự câu 4
c7: kết quả là:a/b
c8: 1
c9: c
c10:
sai lệnh ' clscrs ' đúng là 'clrscr;
sau lệnh readln(canh) thiếu dấu ";"
chưa khai báo biến "dientich"
dòng writeln thứ 2 thiếu dấu " ' " ở trước dấu phẩy.
c11:
phần khai báo sai chỗ "a.b" đúng là "a,b"
sai lệnh clrscr;
thiếu ";" sau lệnh readln(b)
chưa khai báo biến tổng
câu lệnh in kết quả sai ( thiếu " ' ")
c12:
if a>b then { a lớn hơn b } else
if a<b then { a nhỏ hơn b } else
{ a bằng b }
c13: dễ nhưng hơi dài chỉ cần so sánh từng biến với tổng 2 biến còn lại là đươc
c14: bạn viết tương tự như c13 bổ sung thêm điều kiện
nếu có 2 trong 3 cạnh bằng nhau thì in ra là tam giác cân
c15:
max:=a;
if (max>b) and(max >c) then max:=a else
if b>c then max:=b else max:=c;
write(max)
c16: làm tương tự c4,5,6
c17: bx+x+0 ???
c18: làm tương tự c16
