Vd 1: Viết chương trình chiều cao [m] của 2 HS, so sánh chiều cao 2 hs đó
KQ: hs nào cao hơn, cao hơn bao nhiêu [m], nếu bằng nhau thì chiều cao bao nhiêu ?
PROGRAM lenh_IF_1;
USES CRT;
VAR A,B : real;
BEGIN
CLRSCR;
TEXTCOLOR[14]; GOTOXY[25,2];
WRITELN[' VIET CHUONG TRINH SO SANH CHIEU CAO 2 HS'];
TEXTCOLOR[4];
GOTOXY[25,4]; WRITE['NHAP CHIEU CAO CUA A [m] :']; READLN[A];
GOTOXY[25,5]; WRITE['NHAP CHIEU CAO CUA B [m] :']; READLN[B];
TEXTCOLOR[15];GOTOXY[25,7];
IF A>B THEN WRITELN['HS A CAO HON HS B :',A-B:3:1]
ELSE
IF A
ELSE WRITELN[' CHIEU CAO A = CHIEU CAO B :',A:2:1,'m'];
READLN;
END.
Vd 2: Viết chương trình Nhập 3 số thực, kiểm tra xem 3 số đó có phải là 3 cạnh tam giác hay không?
Program ba_canh_tam_giac;
Var a,b,c: real;
Begin
Clrscr;
WRITELN[' KIEM TRA 3 SỐ NHAP VAO CO PHAI LA 3 CANH TAM GIAC ?];
Write[‘nhap ba so a, b và c:’]; Readln[a,b,c];
If [a+b>c] and [b+c>a] and [c+a>b] then
Writeln[‘a,b,c la ba cạnh cua tam giac:’] Else
Writeln[‘a,b,c khong la ba canh cua tam giac.’];
Readln;
End.
VD3:
Bài toán: Một cửa hàng cung cấp dịch vụ bán hàng thanh toán tại nhà. Khách hàng chỉ cần đăng kí số lượng mặt hàng cần mua, nhân viên cửa hàng sẻ giao hàng và nhận tiền thanh toán tại nhà khách hàng. Ngoài giá trị hàng hoá, khách hàng còn phải trả thêm phí dịch vụ. hãy viết chương trình Pascal để tính tiền thanh toán trong trường hợp khách hàng chỉ mua một mặt hàng duy nhất. Phí dịch vụ: 10,000, nếu khách hàng mua số tiền thanh toán > 600,000 đồng thì sẽ miễn phí dịch vụ.
Program Tinh_tien;
Uses CRT;
Var
Soluong: integer;
Dongia, thanhtien: real;
Thongbao: String;
Const phi=10000;
Begin
Clrscr;
Thongbao:= ‘Tong so tien phai thanh toan’;
{Nhap don gia va so luong hang}
Writeln [‘don gia mat hang ’]; Readln [dongia];
Writeln [‘So luong can mua’]; Readln [soluong];
Thanhtien:= soluong*dongia;
IF Thanhtien 5] OR [N=8 THEN WRITELN[' HS XL GIOI'];
IF [DTB >=6.5] AND [DTB =5] AND [DTB =3.5] AND [DTB =6.5] THEN WRITELN['DTB LA :',DTB:2:2,' HS XL KHA'] ELSE
IF [DTB >=5] THEN WRITELN['DTB LA :',DTB:2:2,' HS XL TB']ELSE
IF [DTB >=3.5] THEN WRITELN['DTB LA :',DTB:2:2,' HS XL YEU']ELSE
WRITELN['DTB LA :',DTB:2:2,' HS XL KEM - O LAI LOP'];
READLN; END.