If Then ELSE là gì
|
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 <= 600000, thi thanhtien := thanhtien+phi; (*In ra so tien phai tra*) Writeln (thongbao,thanhtien:10:2); Readln; VD4: IN RA MÀN HÌNH 100 SỐ, MỖI HÀNG 10 SỐ bằng vòng lặp FOR + IF PROGRAM IN_THEO_DONG; uses CRT; var i : integer; begin clrscr; FOR I := 1 TO 100 DO BEGIN WRITE(I:5); {CÓ 5 KHOẢNG TRẮNG ĐỨNG TRƯỚC SỐ} IF I MOD 10 =0 THEN WRITELN; END; readln end. VD5: Chương trình đổi chữ ra số ( từ số 1 – tới số 5) PROGRAM HAM_IF_SO_CHU; USES CRT; VAR N:BYTE; BEGIN CLRSCR; WRITE('NHAP SO TU 1 TOI 5: '); READLN(N); IF N=1 THEN WRITE('1 = ONE'); IF N=2 THEN WRITE('2 = TWO'); IF N=3 THEN WRITE('3 = THREE'); IF N=4 THEN WRITE('4 = FOUR'); IF N=5 THEN WRITE('5 = FIVE'); IF (N >5) OR (N<1) THEN BEGIN WRITELN(' BAN NHAP SAI ROI_THOAT '); DELAY(2000);EXIT; END; READLN; END. VD6: Tính điểm TB 2 môn Văn, Toán và xếp loại học lực. KQ cho biết ĐTB là bao nhiêu, xếp loại HL gì Cách 1. Lệnh IF không dùng ELSE PROGRAM tinh_DTB_HOC_SINH; USES CRT; VAR TOAN,VAN,DTB: REAL; I: INTEGER; BEGIN CLRSCR; WRITELN('TINH DIEM TRUNG BINH '); WRITE('NHAP DIEM TOAN CHO HS '); READLN(TOAN); WRITE('NHAP DIEM VAN CHO HS '); READLN(VAN); DTB := (TOAN + VAN)/2; IF DTB >=8 THEN WRITELN(' HS XL GIOI'); IF (DTB >=6.5) AND (DTB <8) THEN WRITELN('DTB :',DTB:2:2,' HS XL KHA'); IF (DTB >=5) AND (DTB <6.5) THEN WRITELN('DTB :',DTB:2:2,' HS XL TB'); IF (DTB >=3.5) AND (DTB <5) THEN WRITELN('DTB :',DTB:2:2,' HS XL YEU'); IF DTB <3.5 THEN WRITELN('DTB :',DTB:2:2,' HS XL KEM - O LAI LOP'); READLN; END. Cách 2. Lệnh IF: Sử dụng ELSE PROGRAM tinh_DTB_HOC_SINH; USES CRT; VAR TOAN,VAN,DTB: REAL; I: INTEGER; BEGIN CLRSCR; WRITELN('TINH DIEM TRUNG BINH '); WRITE('NHAP DIEM TOAN CHO HS '); READLN(TOAN); WRITE('NHAP DIEM VAN CHO HS '); READLN(VAN); DTB := (TOAN + VAN)/2; IF (DTB >=8) THEN WRITELN(' HS XL GIOI') ELSE IF (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. |
