Bai1

Chương trình Kiểm tra Tam giác với độ dài 3 cạnh thự cho trước: Program kttgiac; Var a , b , c : real ; BEGIN Writeln (' Nhap do dai 3 canh cua tam giac : ') ; Write (' a = ') ; Readln ( a ) ; Write (' b = ') ; Readln ( b ) ; Write (' c = ') ; Readln ( c ) ; If ( a + b > c ) and ( b + c > a ) and ( c + a > b ) and ( a > 0 ) and ( b > 0 ) and ( c > 0 ) Then Writeln (' Thoa man : Day la 3 canh cua mot tam giac ') Else Writeln (' Khong thoa man ! ') ; Readln ; END . Giải thích: 1) Program kttgiac;

khai báo tên chương trình ( tên chương trình khong có khoảng trống)

2) Var a , b , c : real ; Khai báo 3 biến a, b, c ( là bắt buộc vì trong chương trình có sử dụng 3 biến này) 3) BEGIN ……. ……. END . Thân chính của chương trình bên trong gồm những dòng lệnh kết thúc bằng dấu chấm phẩy. 4) Writeln (' Nhap do dai 3 canh cua tam giac : ') ; in ra màn hình dòng chữ nằm trong cặp dấu ‘ ‘ đó là : Nhap do dai 3 canh cua tam giac : và sau khi in ra thì xuống hàng. 5) Write (' a = ') ; giống lệnh 4) in ra a= nhưng không xuống hàng. 6) Readln ( a ) ; lệnh này đưa giá trị vào a Chú ý : Nếu cố định giá giá trị a ta có thể dùng lệnh gán : a:=4; 7) If <Điều kiện> Then Lệnh 1 Else Lệnh 2 Nghĩa là : Nếu <điều kiện> thỏa thì thực hiện Lệnh 1 ngược lại nếu <điều kiện> thì thực hiện lệnh 2 8) Readln ; tạm thời dừng chương trình để xem kết quả cho đến khi bấm Enter