Bài 1 (TL/139):
Hãy cho biết trong các câu lệnh Pascal sau, câu nào không hợp lệ? Giải thích lý do?
If x:=a then x:= x+1;
If x=a then x:=x+1;
If a>b then max:=a; else max:=b;
If a>b then max:=a else max:=b;
Luyện tập:
Bài 1 (TL/139)
If x:=a then x:= x+1; Sai vì: Thừa dấu : sau từ khóa if
If x=a then x:=x+1; Đúng
If a>b then max:=a; else max:=b; Sai vì: Thừa dấu ; trước else.
If a>b then max:=a else max:=b; Đúng
Bài 2 (TL/139):
Hãy cho biết với mỗi câu lệnh sau đây giá trị của biến x sẽ là bao nhiêu? Nếu trước đó giá trị của x = 5
A. If (45 mod 3)=0 then x:=x+1;
B. If x>10 then x:=x+1 else x:=x-1;
Bài 3 (TL/139):
Hãy viết chương trình nhập chiều cao của hai bạn Anh Quân và Thùy Anh. In ra màn hình kết quả so sánh chiều cao của 2 bạn, chẳng hạn “Bạn Anh Quân cao hơn” hay “Bạn Thùy Anh cao hơn”?
Thuật toán:
B1: Nhập chiều cao bạn Anh Quân.
B2: Nhập chiều cao bạn Thùy Anh.
B3: Nếu chiều cao bạn Anh Quân > chiều cao bạn Thùy Anh thì in thông báo “Bạn Anh Quân cao hơn” ngược lại in dòng thông báo “Bạn Thùy Anh cao hơn”.
B4: Kết thúc.
Chương trình:
Var quan, anh: Real;
Begin
write(‘Nhap chieu cao 2 bạn:’); readln (quan, anh);
if (quan>anh) then write(Ban Anh Quan cao hon!”)
else write(‘Ban Thùy Anh cao hon!”);
readln;
End.
Bài 4 (TL/139):
Hãy viết chương trình giải phương trình bậc nhất ax+b=0. Với a và b được nhập từ bàn phím.
Thuật toán:
B1: Nhập hệ số a và b;
B2: Nếu a=0 thì thông báo “phương trình vô nghiệm”, ngược lại thông báo “phương trình có nghiệm là: -b/a”;
B3: Kết thúc.
Chương trình:
Var a,b:integer;
Begin
write(‘Nhap hệ số:’); readln (a,b);
if a=0) then write(‘Phuong trinh vo Nghiem’)
else write(‘Phuong trinh co Nghiem:’,-b/a);
readln;
End.
Bài 5:
Một cửa hàng có chương trình khuyến mại: Khách mua hàng với tổng số tiền >100k thì được giảm giá 30%, ngược lại chỉ được giảm giá 10%. Em hãy viết chương trình nhập số lượng, đơn giá của một mặt hàng từ bàn phím và in ra màn hình số tiền mà khách hàng phải trả.
Thuật toán:
B1: Nhập số lượng, đơn giá;
B2: Tính tiền (t) = số lượng* đơn giá;
B3: Nếu (t>=100) thì tiền thanh toán = t - t*30% ngược lại tiền thanh toán = t - t*10%;
B4: In tiền thanh toán;
B5: Kết thúc.
Chương trình:
Var sl, dg, t;
Begin
write(‘số lượng, đơn giá:’); readln(sl, dg);
t=sl*dg;
if (t>=100) then t=t - t*30/100
else t=t - t*10/100;
write(‘Tien thanh toan:’,t);
readln;
End.
nguon VI OLET
