Source code bài tập Pascal cơ bản & nâng cao

<span style="background-color: #f3f3f3;"><span style="color: #333333; font-family: Arial,Segoe UI,Helvetica,sans-serif; font-size: 12px; line-height: 18px;"><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal sắp xep 2 số nguyên</strong></span></span></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program sap_xep;<br />Var<br />   so1,so2,tam:Integer;<br />Begin<br />   Writeln('SAP XEP 2 SO NGUYEN');<br />   Writeln('-------------------');<br />   Write('-Nhap so thu nhat: ');<br />   Readln(so1);<br />   Write('-Nhap so thu hai : ');<br />   Readln(so2);<br />   If so1 > so2 Then<br />       Begin<br />           tam:=so1;<br />          so1:=so2;<br />          so2:=tam;<br />      End;<br />   Writeln;<br />   Writeln('Ban vua nhap cac so sau');<br />   Writeln(so1:10);<br />   Writeln(so2:10);<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal tìm số lớn nhất trong 2 số nguyên (dùng If thiếu)</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program So_lon;<br />Var<br />   so1,so2:Integer;<br />Begin<br />   Writeln('TIM SO LON NHAT TRONG 2 SO NGUYEN');<br />   Writeln('---------------------------------');<br />   Write('-Nhap so thu nhat: ');<br />   Readln(so1);<br />   Write('-Nhap so thu hai : ');<br />   Readln(so2);<br />   If so1 > so2 Then<br />       Writeln('+So thu nhat la so lon nhat');<br />   If so2 > so1 Then<br />       Writeln('+So thu hai la so lon nhat');<br />   Writeln;<br />   Writeln('Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal tìm số lớn nhất trong 2 số nguyên (dùng If đủ)</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program So_lon;<br />Var<br />   so1,so2:Integer;<br />Begin<br />   Writeln('TIM SO LON NHAT TRONG 2 SO NGUYEN');<br />   Writeln('---------------------------------');<br />   Write('-Nhap so thu nhat: ');<br />   Readln(so1);<br />   Write('-Nhap so thu hai : ');<br />   Readln(so2);<br />   If so1 > so2 Then<br />       Writeln('+So thu nhat la so lon nhat')<br />   Else<br />       Writeln('+So thu hai la so lon nhat');<br />   Writeln;<br />   Writeln('Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal tìm số lớn nhất trong 3 số nguyên (dùng If thiếu)</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program So_lon;<br />Var<br />   so1,so2,so3,solon:Integer;<br />Begin<br />   Writeln('TIM SO LON NHAT TRONG 3 SO NGUYEN');<br />   Writeln('      Cau truc If thieu');<br />   Writeln('---------------------------------');<br />   Write('-Nhap so thu nhat: ');<br />   Readln(so1);<br />   Write('-Nhap so thu hai : ');<br />   Readln(so2);<br />   Write('-Nhap so thu ba  : ');<br />   Readln(so3);<br />   If so1 < so2 Then<br />       solon:=so2;<br />   If so2 < so3 Then<br />       solon:=so3;<br />   If so3 < so1 Then<br />       solon:=so1;<br />   Writeln;<br />   Writeln('+So lon nhat trong 3 so la: ',solon);<br />   Writeln;<br />   Writeln('Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal tìm số lớn nhất trong 3 số nguyên (dùng If đủ)</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program So_lon;<br />Var<br />   so1,so2,so3,solon:Integer;<br />Begin<br />   Writeln('TIM SO LON NHAT TRONG 3 SO NGUYEN');<br />   Writeln('      Cau truc If du');<br />   Writeln('---------------------------------');<br />   Write('-Nhap so thu nhat: ');<br />   Readln(so1);<br />   Write('-Nhap so thu hai : ');<br />   Readln(so2);<br />   Write('-Nhap so thu ba  : ');<br />   Readln(so3);<br />   If so1 < so2 Then<br />       solon:=so2<br />   Else<br />       solon:=so1;<br />   If solon < so3 Then<br />       solon:=so3;<br />   Writeln;<br />   Writeln('+So lon nhat trong 3 so la: ',solon);<br />   Writeln;<br />   Writeln('Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal tìm số lớn nhất trong 4 số nguyên</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program So_lon;<br />Var<br />   so1,so2,so3,so4,solon1,solon2,solon:Integer;<br />Begin<br />   Writeln('TIM SO LON NHAT TRONG 4 SO NGUYEN');<br />   Writeln('Cau truc If...Then...Else');<br />   Writeln('-------------------------');<br />   Write('-Nhap so thu nhat: ');<br />   Readln(so1);<br />   Write('-Nhap so thu hai : ');<br />   Readln(so2);<br />   Write('-Nhap so thu ba  : ');<br />   Readln(so3);<br />   Write('-Nhap so thu tu  : ');<br />   Readln(so4);<br />   If so1 > so2 Then<br />       solon1:= so1<br />   Else<br />       Solon1:=so2;<br />   If so3 > so4 Then<br />       solon2:=so3<br />   Else<br />       solon2:=so4;<br />    If solon1 > solon2 Then<br />        solon:=solon1<br />    Else<br />        solon:=solon2;<br />    Writeln;<br />    Writeln('+So lon nhat trong 4 so la: ',solon);<br />    Writeln;<br />    Writeln('Bam phim <Enter> de ket thuc');<br />    Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal cộng thêm giây vào giờ hiện hàng</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program Cong_giay;<br />Var<br />   gio,phut,giay,them:Integer;<br />Begin<br />   Writeln('CONG THEM GIAY VAO GIO HIEN HANH');<br />   Writeln('--------------------------------');<br />   Writeln('Nhap vao gio:phut:giay hien hanh');<br />   Write('-Gio    : ');<br />   Readln(gio);<br />   Write('-Phut: ');<br />   Readln(phut);<br />   Write('-Giay: ');<br />   Readln(giay);<br />   Write('-Cho biet so giay muon cong them: ');<br />   Readln(them);<br />   If (giay+them) < 60 Then<br />       giay:=giay+them<br />   Else<br />       Begin<br />         giay:=((giay+them)-60);<br />         phut:=phut+1;<br />         If phut >=60 Then<br />            Begin<br />               phut:=phut-60;<br />               gio:=gio+1;<br />            End;<br />      End;<br />   Writeln;<br />   Writeln('+Sau khi cong them so giay vao, gio moi la:');<br />   Writeln('         ',gio,' : ',phut,' : ',giay);<br />   Writeln;<br />   Writeln('Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal giải phương trình bậc 2</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program PTB2;<br />Var<br />   a,b,c:Integer;<br />   Delta,x,x1,x2:Real;<br />Begin<br />   Writeln('GIAI PHUONG TRINH BAC 2');<br />   Writeln('-----------------------');<br />   Write('-Nhap he so a= ');<br />   Readln(a);<br />   Write('-Nhap he so b= ');<br />   Readln(b);<br />   Write('-Nhap he so c= ');<br />   Readln(c);<br />   Delta:=sqr(b)-4*a*c;<br />   If Delta < 0 Then<br />       Writeln('+Phuong trinh vo nghiem')<br />   Else<br />      If Delta=0 Then<br />          Begin<br />             X:=-b/2*a;<br />             Writeln('+Phuong trinh co 2 nghiem bang nhau X1=X2= ',X:6:2);<br />          End<br />      Else<br />          Begin<br />            X1:=-b-Sqrt(Delta)/2*a;<br />            X2:=-b+Sqrt(Delta)/2*a;<br />            Writeln('+Nghiem thu nhat = ',X1:6:2);<br />            Writeln('+Nghiem thu hai  = ',X2:6:2);<br />         End;<br />   Writeln;<br />   Writeln('    Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal tính điểm trung bình và xếp hạng</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program Diem_Trung_binh;<br />Var<br />   Ten:String[24];<br />   Van,Toan,Ly,tb:Real;<br />Begin<br />   Writeln('TINH DIEM TRUNG BINH VA XEP HANG');<br />   Writeln('--------------------------------');<br />   Write('-Cho biet ho ten: ');<br />   Readln(Ten);<br />   Write('-Cho biet diem mon Van: ');<br />   Readln(Van);<br />   Write('-Cho biet diem mon Toan: ');<br />   Readln(Toan);<br />   Write('-Cho biet diem mon Ly: ');<br />   Readln(Ly);<br />   Tb:=((Van*2)+(Toan*2)+ly)/5;<br />   If tb < 5 Then<br />      Begin<br />         Writeln('+Hoc sinh: ',Ten);<br />         Writeln('+Diem trung binh = ',Tb:4:1);<br />         Writeln('+Xep hang: Hoc luc kem');<br />      End<br />   Else if Tb < 7 Then<br />      Begin<br />         Writeln('+Hoc sinh: ',Ten);<br />         Writeln('+Diem trung binh = ',Tb:4:1);<br />         Writeln('+Xep hang: Hoc luc trung binh');<br />      End<br />   Else if Tb < 9 Then<br />      Begin<br />         Writeln('+Hoc sinh: ',Ten);<br />         Writeln('+Diem trung binh = ',Tb:4:1);<br />         Writeln('+Xep hang: Hoc luc Kha');<br />      End<br />      Else<br />          Begin<br />            Writeln('+Hoc sinh: ',Ten);<br />            Writeln('+Diem trung binh = ',Tb:4:1);<br />            Writeln('+Xep hang: Hoc luc Gioi');<br />         End;<br />   Writeln;<br />   Writeln('    Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal tính điểm trung bình và nhận xét</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program Diem_Trung_binh;<br />Const<br />   MucDiem = 5;<br />   DiemDat     =20;<br />   DiemLoai    =2;<br />Var<br />   Ten:String[24];<br />   Van,Toan,Hoa,Ngoaingu,Tongdiem:Real;<br />   Dat,Loai,Hocdeu:Boolean;<br />Begin<br />   Writeln('TINH DIEM TRUNG BINH VA NHAN XET');<br />   Writeln('--------------------------------');<br />   Write('-Cho biet ho ten: ');<br />   Readln(Ten);<br />   Write('-Cho biet diem mon Van : ');<br />   Readln(Van);<br />   Write('-Cho biet diem mon Toan: ');<br />   Readln(Toan);<br />   Write('-Cho biet diem mon Hoa: ');<br />   Readln(Hoa);<br />   Write('-Cho biet diem mon Ngoai ngu: ');<br />   Readln(Ngoaingu);<br />   Tongdiem:=Van+Toan+Hoa+Ngoaingu;<br />   Dat:=(Tongdiem >=DiemDat);<br />   Loai:=(Van < DiemLoai) Or (Toan < DiemLoai)Or (Hoa < DiemLoai) Or (Ngoaingu < DiemLoai);<br />   Hocdeu:=(Van >MucDiem) And (Toan > Mucdiem)And (Hoa > Mucdiem) And (Toan > Mucdiem);<br />   Writeln('+Hoc sinh: ',ten);<br />   Write('+Tong so diem: ',Tongdiem:5:2);<br />   If Dat And (Not Loai) Then<br />       Begin<br />            Write('  Duoc len lop');<br />            If hocdeu Then<br />            Write('  Hoc deu cac mon')<br />         Else<br />             Write('  Hoc chua deu cac mon');<br />       End<br />    Else<br />        Write('  Khong duoc len lop');<br />   Writeln;<br />   Writeln('    Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal kiểm tra tính chẵn lẻ của 1 số nguyên</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program So_chan_le;<br />Var<br />   so,du:Integer;<br />Begin<br />   Writeln('SO CHAN HAY SO LE');<br />   Writeln('-----------------');<br />   Write('-Nhap mot so nguyen bat ky: ');<br />   Readln(so);<br />   du:=so Mod 2;<br />   Case du Of<br />       0:Begin<br />          Writeln('-So : ',so);<br />          Writeln('-La so chan');<br />         End;<br />       1:Begin<br />          Writeln('-So : ',so);<br />          Writeln('-La so le');<br />         End;<br />   End;<br />   Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;"><br /><br /><span style="background-color: yellow;">Viết chương trình Pascal cho biết ngày của tháng</span></strong><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program Ngay_cua_thang;<br />Var<br />   thang,nam,luu,songay:Integer;<br />Begin<br />   Writeln('THANG. X . CO BAO NHIEU NGAY');<br />   Writeln('---------------------------');<br />   Write('-Ban muon hoi thang nao co bao nhieu ngay: ');<br />   Readln(thang);<br />   Write('-Cho biet nam : ');<br />   Readln(nam);<br />   luu:=nam;<br />   Case thang Of<br />       1,3,5,7,8,10,12: songay:=31;<br />       4,6,9,11       : songay:=30;<br />       2     :Case nam Mod 4 Of<br />                1,2,3 :songay:=28;<br />               0    :songay:=29;<br />          End;<br />   End;<br />   If songay >=30 Then<br />       Writeln('+Thang:',thang:3,', nam: ',luu:4,', co: ',songay:3,' ngay')<br />   Else<br />       Writeln('+Thang:',thang:3,', nam: ',luu:5,', co: ',songay:3,' ngay');<br />   Writeln;<br />   Writeln('   Bam phin <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal xếp loại học tập</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program Phan_loai;<br />Var<br />   ten:String;<br />   diem:Integer;<br />Begin<br />   Writeln('XEP LOAI HOC TAP');<br />   Writeln('----------------');<br />   Write('-Cho biet ten: ');<br />   Readln(ten);<br />   Write('-Cho biet diem: ');<br />   Readln(diem);<br />   Case diem Of<br />       0,1,2,3,4: Begin<br />                      Writeln('+Hoc sinh: ',ten);<br />                      Writeln('+So diem : ',diem);<br />                      Writeln('+Xep loai KEM');<br />                  End;<br />      5,6 : Begin<br />                     Writeln('+Hoc sinh: ',ten);<br />                     Writeln('+So diem : ',diem);<br />                     Writeln('+Xep loai TRUNG BINH');<br />                  End;<br />      7,8:        Begin<br />                     Writeln('+Hoc sinh: ',ten);<br />                     Writeln('+So diem : ',diem);<br />                     Writeln('+Xep loai KHA');<br />                  End;<br />      9:          Begin<br />                     Writeln('+Hoc sinh: ',ten);<br />                     Writeln('+So diem : ',diem);<br />                     Writeln('+Xep loai GIOI');<br />                  End;<br />      10:         Begin<br />                     Writeln('+Hoc sinh: ',ten);<br />                     Writeln('+So diem : ',diem);<br />                     Writeln('+Xep loai XUAT SAC');<br />                 End;<br />      Else        Writeln('Khong co loai diem nay hoac ban go sai');<br />   End;<br />   Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal nhập ngày, tháng, năm và cho biết là thứ mấy trong tuần</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program Thu_trong_tuan;<br />Var<br />   thu,ngay,thang:Byte;<br />   Nam,luu:Integer;<br />Begin<br />   Writeln('NGAY THU MAY TRONG TUAN');<br />   Writeln('-----------------------');<br />   Write('-Ngay: ');<br />   Readln(ngay);<br />   Write('-Thang: ');<br />   Readln(thang);<br />   Write('-Nam: ');<br />   Readln(nam);<br />   luu:=nam;<br />   nam:=1900 + (nam Mod 1900);<br />   If thang < 3 Then<br />       Begin<br />         thang:=thang + 12;<br />         nam:=nam - 1;<br />      End;<br />   thu:=ABS(ngay+2*thang+3*(thang+1) Div 5+nam+nam Div 4) Mod 7;<br />   Case thu Of<br />       0    : Begin<br />                  Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5);<br />                Writeln('        +La ngay Chu Nhat');<br />              End;<br />      1    :  Begin<br />                  Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5);<br />               Writeln('+La ngay Thu Hai');<br />              End;<br />      2    :    Begin<br />                  Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5);<br />               Writeln('        +La ngay Thu Ba');<br />              End;<br />      3    :  Begin<br />                  Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5);<br />                Writeln('        +La ngay Thu Tu');<br />              End;<br />      4    :  Begin<br />                  Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5);<br />                Writeln('        +La ngay Thu Nam');<br />              End;<br />      5    :  Begin<br />                  Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5);<br />                Writeln('        +La ngay Thu Sau');<br />              End;<br />      6    :  Begin<br />                  Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5);<br />                Writeln('        +La ngay Thu Bay');<br />              End;<br />   End;<br />   Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal trò chơi One, two, three</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program One_Two_Three;<br />Var<br />   a,b:Char;<br />Begin<br />   Writeln('TRO CHOI ONE TWO THREE');<br />   Writeln(' Keo (k), Bua (b), Giay (g)');<br />   Writeln('---------------------------');<br />   Write('-Ban A chon: ');<br />   Readln(a);<br />   Write('-Ban B chon: ');<br />   Readln(b);<br />   Case Upcase(a) Of<br />       'K':    Case Upcase(b) Of<br />               'K'    :    Begin<br />                               Writeln('+Ban A chon Keo');<br />                           Writeln('+Ban B cung chon Keo');<br />                            Writeln('+Keo gap Kep, hoa nhau');<br />                           End;<br />               'B'    :    Begin<br />                               Writeln('+Ban A chon Keo');<br />                            Writeln('+Ban B chon Bua');<br />                            Writeln('+Bua dap Keo, B thang');<br />                           End;<br />               'G'    :    Begin<br />                               Writeln('+Ban A chon Keo');<br />                            Writeln('+Ban B chon Giay');<br />                            Writeln('+Keo cat Giay, A thang');<br />                           End;<br />              End;<br />      'B':    Case Upcase(b) Of<br />                'K'    :    Begin<br />                               Writeln('+Ban A chon Bua');<br />                            Writeln('+Ban B chon Keo');<br />                            Writeln('+Bua dap Keo, A thang');<br />                           End;<br />               'B'    :    Begin<br />                               Writeln('+Ban A chon Bua');<br />                           Writeln('+Ban B cung chon Bua');<br />                           Writeln('+Bua gap Bua, hoa nhau');<br />                           End;<br />               'G'    :    Begin<br />                               Writeln('+Ban A chon Bua');<br />                           Writeln('+Ban B chon Giay');<br />                           Writeln('+Giay boc Bua, B thang');<br />                           End;<br />              End;<br />      'G':    Case Upcase(b) Of<br />                'K'    :    Begin<br />                               Writeln('+Ban A chon Giay');<br />                            Writeln('+Ban B chon Keo');<br />                           Writeln('+Keo cat Giay, B thang');<br />                           End;<br />               'B'    :    Begin<br />                               Writeln('+Ban A chon Giay');<br />                           Writeln('+Ban B chon Bua');<br />                           Writeln('+Giay boc Bua, A thang');<br />                           End;<br />               'G'    :    Begin<br />                               Writeln('+Ban A chon Giay');<br />                           Writeln('+Ban B cung chon Giay');<br />                          Writeln('+Giay gap Giay, hoa nhau');<br />                           End;<br />              End;<br />   End;<br />   Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End. </pre><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;"><br /></pre><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal chọn loại giải trí thích hợp</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program Giai_Tri;<br />Var<br />   t:Byte;<br />Begin<br />   Writeln('CHON LOAI GIAI TRI THICH HOP');<br />   Writeln('----------------------------');<br />   Write('-Cho biet nhiet do ngay hom nay: ');<br />   Readln(t);<br />   If t < 20 Then<br />       Writeln('Troi lanh, ban nen o nha coi TV');<br />   If ((t > 20) And (t < 25)) Then<br />       Writeln('Troi mat me, ban nen di cam trai');<br />   If ((t > 25) And (t < 30)) Then<br />       Writeln('Troi hoi nong, ban nen di tam bien Vung Tau');<br />   If t > 30 Then<br />       Writeln('Troi nong, ban nen di nghi mat o Da Lat');<br />    Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal giải phương trình bậc nhất</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program PT_bac_nhat;<br />Var<br />   a,b:Integer;<br />   x:Real;<br />Begin<br />    Writeln('GIAI PHUONG TRINH BAC NHAT');<br />   Writeln('       aX + b = 0');<br />   Write('-Nhap he so a= ');<br />   Readln(a);<br />   Write('-Nhap he so b= ');<br />   Readln(b);<br />   If a=0 Then<br />      If b=0 Then<br />          Writeln('+Phuong trinh vo dinh')<br />      Else<br />          Writeln('+Phuong trinh vo nghiem')<br />   Else<br />       Begin<br />          x:=-b/a;<br />          Writeln('+Nghiem cua phuong trinh X= ',x:0:6);<br />      End;<br />   Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal kiểm tra ước số của 2 số nguyên</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program Uoc_so;<br />Var<br />   so1,so2,tam:Integer;<br />Begin<br />   Writeln('KIEM TRA UOC SO CUA 2 SO NGUYEN');<br />   Writeln('-------------------------------');<br />   Write('-So thu nhat= ');<br />   Readln(so1);<br />   Write('-So thu hai = ');<br />   Readln(so2);<br />   If so1 < so2 Then<br />       Begin<br />         tam:=so1;<br />         so1:=so2;<br />         so2:=tam;<br />      End;<br />    If (so1 Mod so2) = 0 Then<br />        Writeln('+So: ',so2:4,' la uoc so cua so: ',so1:4)<br />    Else<br />       Begin<br />            Writeln('+Hai so: ',so1:4,' va so ',so2:4);<br />           Writeln('     Khong phai la uoc so cua nhau');<br />      End;<br />   Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal sắp xếp thứ tự 3 số nguyên dương</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program Sap_xep;<br />Var<br />   so1,so2,so3,tam:Integer;<br />Begin<br />   Writeln('SAP XEP THU TU 3 SO NGUYEN DUONG');<br />   Writeln('-------------------------------');<br />   Write('-Nhap so thu nhat= ');<br />   Readln(so1);<br />   Write('-Nhap so thu hai = ');<br />   Readln(so2);<br />   Write('-Nhap so thu ba  = ');<br />   Readln(so3);<br />   If so1 > so2 Then<br />       Begin<br />          tam:=so1;<br />         so1:=so2;<br />         so2:=tam;<br />      End;<br />   If so2 > so3 Then<br />       Begin<br />         tam:=so2;<br />         so2:=so3;<br />         so3:=tam;<br />      End;<br />   If so1 > so2 Then<br />       Begin<br />         tam:=so1;<br />         so1:=so2;<br />         so2:=tam;<br />      End;<br />   Writeln;<br />   Writeln('KET QUA SAP XEP');<br />   Writeln;<br />   Writeln('    ',so1:5);<br />   Writeln('    ',so2:5);<br />   Writeln('    ',so3:5);<br />   Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal tìm số lớn nhất và số nhỏ nhất</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program So_lon_so_nho;<br />Var<br />   so1,so2,so3,so4,max,min:Integer;<br />Begin<br />   Writeln('TIM SO LON NHAT VA SO NHO NHAT');<br />   Writeln('-----------------------------');<br />   Write('-Nhap so thu nhat: ');<br />   Readln(so1);<br />   Write('-Nhap so thu hai : ');<br />   Readln(so2);<br />   Write('-Nhap so thu ba  : ');<br />   Readln(so3);<br />   Write('-Nhap so thu tu  : ');<br />   Readln(so4);<br />   max:=so1;<br />   min:=so1;<br />   If max < so2 Then<br />       max:=so2<br />   Else<br />       min:=so2;<br />   If max < so3 Then<br />       max:=so3<br />   Else<br />       min:=so3;<br />   If max < so4 Then<br />       max:=so4;<br />   Writeln;<br />   Writeln('+So lon nhat trong 4 so: ',so1,',',so2,',',so3,',',so4,' la: ',max);<br />   Writeln('+Va so nho nhat trong 4 so do la       : ',min);<br />   Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal kiểm tra đây là tam giác gì</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program Tam_giac;<br />Var<br />   a,b,c:Integer;<br />   tamgiac,deu,can:Boolean;<br />Begin<br />   Writeln('BA CANH CUA TAM GIAC ?');<br />   Writeln('----------------------');<br />   Write('-Nhap so thu nhat= ');<br />   Readln(a);<br />   Write('-Nhap so thu hai = ');<br />   Readln(b);<br />   Write('-Nhap so thu ba  = ');<br />   Readln(c);<br />   tamgiac:=False;<br />   deu:=False;<br />   can:=False;<br />   If (a+b>c) And (b+c>a) And (c+a>b) Then<br />       Begin<br />         tamgiac:=True;<br />         If (a=b) And (b=c) Then<br />             deu:=True;<br />         If (a=b) Or (b=c) Or (c=a) Then<br />             can:=True;<br />      End;<br />    Writeln;<br />   Writeln(' 3 so vua nhap la:');<br />   Writeln('+Tam giac: ',tamgiac);<br />   Writeln('+Tam giac deu: ',deu);<br />   Writeln('+Tam giac can: ',can);<br />   Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal tính diện tích tam giác</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program Dien_tich_tam_giac;<br />Var<br />   a,b,c:Integer;<br />   p,s:Real;<br />Begin<br />   Writeln('DIEN TICH TAM GIAC');<br />   Writeln('------------------');<br />   Write('-Nhap so thu nhat: ');<br />   Readln(a);<br />   Write('-Nhap so thu hai : ');<br />   Readln(b);<br />   Write('-Nhap so thu ba  : ');<br />   Readln(c);<br />   If (a+b>c) And (b+c>a) And (c+a>b) Then<br />       Begin<br />         Writeln('+Dung la Tam giac');<br />         p:=0.5*(a+b+c);<br />         s:=Sqrt(p*(p-a)*(p-b)*(p-c));<br />         Writeln('+Dien tich= ',s:10:2);<br />      End<br />   Else<br />       Writeln('+Khong phai la Tam giac');<br />   Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal tính Khối lập phương chui qua khung chữ nhật</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program Khoi_lap_phuong;<br />Var<br />   a,b,c,m,n,tam:Integer;<br />Begin<br />   Writeln('KHOI LAP PHUONG CHUI QUA KHUNG CHU NHAT');<br />   Writeln('---------------------------------------');<br />   Writeln('  *Nhap so lieu cho khoi lap phuong');<br />   Write('-Canh thu nhat: ');<br />   Readln(a);<br />   Write('-Canh thu hai : ');<br />   Readln(b);<br />   Write('-Canh thu ba  : ');<br />   Readln(c);<br />   Writeln('  *Nap so lieu cho khung chu nhat');<br />   Write('-Canh thu nhat: ');<br />   Readln(m);<br />   Write('-Canh thu hai : ');<br />   Readln(n);<br />    If (a>b) Then<br />        Begin<br />          tam:=a;<br />          a:=b;<br />          b:=tam;<br />        End;<br />   If (b>c) Then<br />        Begin<br />          tam:=b;<br />          b:=c;<br />          c:=tam;<br />        End;<br />   If (a>b) Then<br />        Begin<br />          tam:=a;<br />          a:=b;<br />          b:=tam;<br />        End;<br />    If (m>n) Then<br />        Begin<br />          tam:=m;<br />          m:=n;<br />         n:=tam;<br />        End;<br />   If (a<m) And (b<n) Then<br />       Writeln('+Khoi lap phuong chui qua duoc khung chu nhat')<br />   Else<br />       Writeln('+Khoi lap phuong khong chui qua duoc khung chu nhat');<br />  Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal giải hệ phương trình bậc nhất</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program He_phuong_trinh_bac_nhat;<br />Var<br />   a,b,c,d,p,q,r:Real;<br />Begin<br />   Writeln('GIAI HE PHUONG TRINH BAC NHAT');<br />   Writeln('        aX + bY = c');<br />   Writeln('        pX + qY = r');<br />   Writeln('-----------------------------');<br />   Write('Nhap a= ');<br />   Readln(a);<br />   Write('Nhap b= ');<br />   Readln(b);<br />   Write('Nhap c= ');<br />   Readln(c);<br />   Write('Nhap p= ');<br />   Readln(p);<br />   Write('Nhap q= ');<br />   Readln(q);<br />   Write('Nhap r= ');<br />   Readln(r);<br />   d:=a*a + b*b + p*p + q*q;<br />   If d=0 Then<br />       If (c*c + r*r = 0) Then<br />            Writeln('+He thoa man voi moi X, Y')<br />        Else<br />            Writeln('+He vo nghiem');<br />   If d <> 0 Then<br />       Begin<br />          d:=a*q - b*q;<br />          If d=0 Then<br />             If sqr(c*q-b*r)+sqr(a*r-p*c) = 0 then<br />                Writeln('+He thoa man voi moi X, Y')<br />            Else<br />                Writeln('+ He vo nghiem');<br />          If d <> 0 Then<br />             Begin<br />                 Writeln('X = ',(c*q-b*r)/d:5:3);<br />               Writeln('Y = ',(a*r-p*c)/d:5:3);<br />            End;<br />       End;<br />   Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal kiểm tra năm nhận</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program Nam_nhuan;<br />Var<br />   nam:Word;<br />   nhuan:boolean;<br />Begin<br />   Writeln('NAM NHUAN HAY NAM THUONG');<br />   Writeln('------------------------');<br />   Write('-Nhap vao nam can kiem tra: ');<br />   Readln(nam);<br />   If nam Mod 100 = 0 Then<br />       Nhuan:=(nam Mod 400)=0<br />   Else<br />       Nhuan:=(nam Mod 4)=0;<br />   Write('Nam: ',nam, ' la: ');<br />   If nhuan Then<br />       Writeln('nam nhuan')<br />   Else<br />       Writeln('nam thuong ( khong nhuan)');<br />   Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal kiểm tra bàn phím</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program KT_phim;<br />Var<br />   phim:Char;<br />Begin<br />   Writeln('KIEM TRA BAN PHIM');<br />   Writeln('-----------------');<br />   Write('-Bam mot phim: ');<br />   Readln(phim);<br />   Case phim Of<br />      'A'..'Z','a'..'z' :Writeln('+Ban vua bam mot phim ky tu');<br />      '0'..'9'          :Writeln('+Ban vua bam mot phim ky so');<br />      '+','-','*','/'   :Writeln('+Ban vua bam mot phim toan tu so hoc');<br />   Else   Writeln('+Ban vua bam mot phim dac biet');<br />   End;<br />   Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal tính diện tích các hình học sơ cấp</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program Hinh_hoc_so_cap;<br />Var<br />    a,b,c,h,r:Integer;<br />   s:Real;<br />   chon:Byte;<br />Begin<br />    Writeln('TINH DIEN TICH HINH HOC SO CAP');<br />   Writeln('------------------------------');<br />   Writeln('    1-Hinh vuong');<br />   Writeln('    2-Hinh chu nhat');<br />   Writeln('    3-Hinh tam gia1c');<br />   Writeln('    4-Hinh thang');<br />   Writeln('    5-Hinh tron');<br />   Writeln;<br />   Write('-Ban chon cac so tu 1 den 5 de tinh dien tich hinh tuong ung');<br />   Readln(chon);<br />   Case chon Of<br />       1  :Begin<br />               Write('-Nhap canh hinh vuong: ');<br />             Readln(a);<br />             s:=a*a;<br />             Writeln('+Dien tich hinh vuong = ',s:10:2,' met vuong');<br />           End;<br />      2   :Begin<br />             Write('-Nhap chieu rong : ');<br />             Readln(a);<br />             Write('-Nhap chieu dai  : ');<br />             Readln(b);<br />             s:=a*b;<br />             Writeln('+Dien tich hinh chu nhat = ',s:10:2,' met vuong');<br />           End;<br />       3  :Begin<br />              Write('-Nhap canh day : ');<br />             Readln(a);<br />             Write('-Nhap chieu cao  : ');<br />             Readln(h);<br />            s:=a*h/2;<br />            Writeln('+Dien tich hinh tam giac = ',s:10:2,' met vuong');<br />           End;<br />     4   :Begin<br />              Write('-Nhap day duoi : ');<br />             Readln(a);<br />             Write('-Nhap day tren : ');<br />             Readln(b);<br />             Write('-Nhap chieu cao: ');<br />            Readln(h);<br />            s:=0.5*(a+b)*h;<br />            Writeln('+Dien tich hinh thang = ',s:10:2,' met vuong');<br />           End;<br />       5  :Begin<br />               Write('-Nhap ban kinh : ');<br />           Readln(r);<br />             s:=r*r*pi;<br />             Writeln('+Dien tich hinh tron = ',s:10:2,' met vuong');<br />           End;<br />   End;<br />   Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal hướng dẫn mua vé máy bay</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program Huong_dan;<br />Var<br />   chon:Byte;<br />Begin<br />   Writeln('HUONG DAN MUA VE MAY BAY');<br />   Writeln('------------------------');<br />   Writeln('   1-Tp Ho Chi Minh di Ha Noi');<br />   Writeln('   2-Tp Ho Chi Minh di Da Nang');<br />   Writeln('   3-Tp Ho Chi Minh di Nha Trang');<br />   Writeln('   4-Tp Ho Chi Minh di Phu Quoc');<br />   Writeln('   5-Tp Ho Chi Minh di Con Dao');<br />   Writeln('   6-Tp Ho Chi Minh di Paris');<br />   Writeln('   7-Tp Ho Chi Minh di London');<br />   Writeln('   8-Tp Ho Chi Minh di Moscow');<br />   Writeln('   9-Tp Ho Chi Minh di Bac Kinh');<br />   Writeln('  10-Tp Ho Chi Minh di Tokyo');<br />   Write('-Chon tuyen nao, go vao so tuong ung (1 - 10): ');<br />   Readln(chon);<br />   Case chon of<br />      1    :Writeln('     Xin moi den quay ve so 1');<br />      2    :Writeln('     Xin moi den quay ve so 2');<br />      3    :Writeln('     Xin moi den quay ve so 3');<br />      4    :Writeln('     Xin moi den quay ve so 4');<br />      5    :Writeln('     Xin moi den quay ve so 5');<br />      6    :Writeln('     Xin moi den quay ve so 6');<br />      7    :Writeln('     Xin moi den quay ve so 7');<br />      8    :Writeln('     Xin moi den quay ve so 8');<br />      9    :Writeln('     Xin moi den quay ve so 9');<br />     10    :Writeln('     Xin moi den quay ve so 10');<br />   Else    Writeln('-Khong co tuyen bay nay');<br />   End;<br />   Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal cho biết thứ trong tuần</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program Thu_trong_tuan;<br />Var<br />   d:1..31; {Kieu mien con}<br />   m:1..12;<br />   y:1900..2001;<br />   a:Word;<br />Begin<br />   Writeln('NGAY DO LA THU MAY TRONG TUAN');<br />   Writeln('-----------------------------');<br />   Write('-Ngay: ');<br />   Readln(d);<br />   Write('-Thang: ');<br />   Readln(m);<br />   Write('-Nam: ');<br />   Readln(y);<br />   Write('+Ngay: ',d:2,' / ',m:2,' / ',y:4,' la ngay ');<br />   If m<3 Then<br />       Begin<br />          inc(m,12);<br />          Dec(y);<br />      End;<br />   a:=d+2*m+(3*(m+1) Div 5)+y+(y Div 4)+1;<br />   a:=a Mod 7;<br />   Case a Of<br />      0            :Writeln('Thu 7');<br />      1            :Writeln('Chu Nhat');<br />      2,3,4,5,6 :Writeln('Thu ',a);<br />   End;<br />   Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre><br /><br /><span style="background-color: yellow;"><strong style="background-image: initial; border-color: initial; border-style: initial; border-width: 0px; font-size: 12px; margin: 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Viết chương trình Pascal tính số ngày của tháng</strong></span><br /><pre style="background-image: initial; border-bottom-color: rgb(204, 204, 204) ! important; border-bottom-style: solid ! important; border-left-color: initial; border-left-style: initial; border-right-color: rgb(204, 204, 204) ! important; border-right-style: solid ! important; border-top-color: rgb(204, 204, 204) ! important; border-top-style: solid ! important; border-width: 0px 0px 0px 5px; font: 12px/1.5 Monaco,Consolas,'Courier News',monospace; margin: 15px 0px; outline-color: initial; outline-style: initial; outline-width: 0px; padding: 0px;">Program So_ngay;<br />Var<br />   m,y,songay:Integer;<br />   nhuan:Boolean;<br />Begin<br />   Writeln('TINH SO NGAY CUA THANG');<br />   Writeln('----------------------');<br />   Write('-Nhap thang: ');<br />   Readln(m);<br />   Write('-Nhap nam  : ');<br />   Readln(y);<br />   Nhuan:=False;<br />   If (y Mod 4) = 0 Then<br />       Begin<br />          Nhuan:=True;<br />         If (y Mod 100 =0) And (y Mod 400 <> 0) Then<br />             Nhuan:=False;<br />      End;<br />    Case m Of<br />       1,3,5,7,8,10,12 :songay:=31;<br />       4,6,9,11         :songay:=30;<br />       2                :If nhuan Then<br />                              songay:=29<br />                         Else<br />                         songay:=28;<br />   End;<br />   Writeln;<br />   Writeln('Thang ',m:2,' / ',y:4,' co : ',songay,' ngay');<br />   Writeln;<br />   Writeln('   Bam phim <Enter> de ket thuc');<br />   Readln<br />End.</pre>

Source code bài tập Pascal cơ bản & nâng cao

Viết chương trình Pascal sắp xep 2 số nguyên Program sap_xep; Var    so1,so2,tam:Integer; Begin    Writeln('SAP XEP 2 SO NGUYEN');  ...

Read more »

Hướng dẫn Conpile & Run các ngôn ngữ Pascal, C, C++ và Java trên Notepad++

Như các bạn đã biết, mỗi ngôn ngữ trên đều có những IDE hỗ trợ cho nó, tuy nhiên vì một (số) lí do nào đó mà bạn không thích các IDE đó (có thể do giao diện, hoặc nó ngốn quá nhiều ram).<br />Notepad++ là 1 editor hỗ trợ rất nhiều ngôn ngữ lập trình với giao diện thân thiện, dễ dùng, có nhiều plugins rất hữu dụng và nó chiếm dụng ít bộ nhớ hơn các IDE kia<br />Sau đây mình xin hướng dẫn các bạn cách compile và run một số ngôn ngữ (Pascal, C, C++ và Java) trên Notepad++<br />Yêu cầu:<br />- <a href="http://notepad-plus-plus.org/" rel="nofollow" target="_blank">Notepad++</a><br />- Set các biến môi trường (Environment Variables) cho các ngôn ngữ (Pascal, C, Java)<br />+ với Pascal: mình recommend <a href="http://www.freepascal.org/" rel="nofollow" target="_blank">Free Pascal</a>, biến môi trường là đường dẫn tới thư mục <b>i386-win32</b> của Free Pascal (thường là C:\FPC\bin\i386-win32)<br />+ với C: bạn cần có MinGW, mình recommend Dev-Cpp, biến môi trường là đường dẫn tới thư mục <b>bin</b> của <a href="http://www.bloodshed.net/download.html" rel="nofollow" target="_blank">Dev-Cpp</a> (thường là C:\Dev-Cpp\bin)<br />+ với Java: bạn cần cài <a href="http://www.oracle.com/technetwork/java/javase/downloads/index.html" rel="nofollow" target="_blank">JDK</a>, biến môi trường là đường dẫn tới thư mục <b>bin</b> của JDK (thường là C:\Program Files\Java\jdk1.7.0\bin)<br /><br />Các bước thực hiện:<br />- Đầu tiên các bạn cài plugin <b>NppExec </b>(Plugins -> Plugin Manager -> Show Plugin Manager, chọn NppExec -> Install -> Yes)<br />Thực chất, plugin này cung cấp cho bạn 1 màn hình console tương tự command prompt của windows nhưng nó dễ sử dụng hơn<br />- Tiếp theo, tạo các script để Compile và Run. Bạn nhấn <b>F6</b>, gõ đoạn lệnh ở dưới vào vùng <b>Command(s)</b>, sau đó nhấn <b>Save</b>, đặt tên cho nó rồi nhấn <b>Save</b>.<br /><img alt="" border="0" height="204" src="http://i843.photobucket.com/albums/zz352/doanhpham/Notepad/3.jpg" width="400" /><br />Khi bạn muốn thực thi 1 đoạn script nào đó, bạn chỉ cần nhấn F6 --> chọn script --> OK<br /><img alt="" border="0" height="245" src="http://i843.photobucket.com/albums/zz352/doanhpham/Notepad/compile.png" width="400" /><br /><br /><b>Với Java</b><br /><br /><div style="margin: 0px 0px 0px 0px;"><div class="smallfont" style="margin-bottom: 0px;"></div><div style="border: 0px inset; margin: 0px; padding: 0px;"></div><blockquote class="tr_bq">- Compile<br /><div class="bbcode_container"><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 60px;">NPP_SAVE<br />cd $(CURRENT_DIRECTORY)<br />javac "$(FILE_NAME)"</pre></div>- Run<br /><div class="bbcode_container"><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 48px;">cd $(CURRENT_DIRECTORY)<br />java "$(NAME_PART)"[/CODE]</pre></div>- Compile & Run<br /><div class="bbcode_container"><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 72px;">NPP_SAVE<br />cd $(CURRENT_DIRECTORY)<br />javac "$(FILE_NAME)"<br />java "$(NAME_PART)"</pre></div>- Compile all (dùng khi bạn cần compile 1 project gồm nhiều file trong 1 thư mục)<br /><div class="bbcode_container"><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 60px;">NPP_SAVE<br />cd $(CURRENT_DIRECTORY)<br />javac .java</pre></div></blockquote><br /><br /><b>Với C++</b><br /><div style="margin: 0px 0px 0px 0px;"><div class="smallfont" style="margin-bottom: 0px;"></div><div style="border: 0px inset; margin: 0px; padding: 0px;"></div><blockquote class="tr_bq">- Compile<br /><div class="bbcode_container"><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 72px;">NPP_SAVE<br />cd $(CURRENT_DIRECTORY)<br />g++ "$(FILE_NAME)" -o "$(NAME_PART)"<br />"$(NAME_PART)"</pre></div>- Run<br /><div class="bbcode_container"><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 48px;">cd $(CURRENT_DIRECTORY)<br />"$(NAME_PART)"</pre></div>- Compile & Run</blockquote><div class="bbcode_container"><blockquote><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 72px;">NPP_SAVE<br />cd $(CURRENT_DIRECTORY)<br />g++ "$(FILE_NAME)" -o "$(NAME_PART)"<br />"$(NAME_PART)"</pre></blockquote></div><br /><br /><b>Với Pascal</b><br /><div style="margin: 0px 0px 0px 0px;"><div class="smallfont" style="margin-bottom: 0px;"></div><div style="border: 0px inset; margin: 0px; padding: 0px;"></div><blockquote class="tr_bq">- Compile<br /><div class="bbcode_container"><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 60px;">NPP_SAVE<br />cd $(CURRENT_DIRECTORY)<br />fpc "$(FILE_NAME)"</pre></div>- Run<br /><div class="bbcode_container"><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 48px;">cd $(CURRENT_DIRECTORY)<br />"$(NAME_PART)"</pre></div>- Compile & Run<br /><div class="bbcode_container"><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 72px;">NPP_SAVE<br />cd $(CURRENT_DIRECTORY)<br />fpc "$(FILE_NAME)"<br />"$(NAME_PART)"</pre></div></blockquote><br />*Nếu Run C và Pascal trên cửa sổ Dosthì thay thế <br /><pre class="bbcode_code" style="height: 72px;">"$(NAME_PART)" thành NPP_RUN "$(NAME_PART)" </pre>Và đây là kết quả<br /><div style="margin: 0px 0px 0px 0px;"><div class="smallfont" style="margin-bottom: 0px;"></div><div style="border: 0px inset; margin: 0px; padding: 0px;"><div><img alt="" border="0" height="245" src="http://i843.photobucket.com/albums/zz352/doanhpham/Notepad/console.jpg" width="400" /> </div></div><br /><br />Ngoài ra, bạn còn có thể sử dụng màn hình console này như cmd của windows.<br /></div><div style="margin: 0px 0px 0px 0px;"></div></div></div></div>

Hướng dẫn Conpile & Run các ngôn ngữ Pascal, C, C++ và Java trên Notepad++

Như các bạn đã biết, mỗi ngôn ngữ trên đều có những IDE hỗ trợ cho nó, tuy nhiên vì một (số) lí do nào đó mà bạn không thích các IDE đó (có...

Read more »

Tẩy mụn cho mẫu và làm cho mẫu có làn da mịn màng trong 3 phút

Chia sẻ 1 loại thảo dược đc chế tạo cực kì đơn giản và hiệu quả cho những bác mới chơi PS hay những bác đã chơi nhưng vẫn còn lăn tăn về cách thức làm sao hay dùng gì để tẩy mụn cho mẫu và làm cho những mẫu có làn da mịn màng...<br /><br />Before:<br /><img alt="[​IMG]" class="bbCodeImage LbImage" src="http://a.imageshack.us/img849/8792/oqtr.jpg" /><br /><br />After:<br /><img alt="[​IMG]" class="bbCodeImage LbImage" src="http://a.imageshack.us/img844/6048/rdmr.jpg" /><br /><br />Oke! Vậy ta bắt đầu :<br />Đầu tiên ta click chuột phải vào (1) sau đó chọn Mixer Brush Tool (2) theo hình sau<br /><br /><img alt="[​IMG]" class="bbCodeImage LbImage" src="http://a.imageshack.us/img534/8749/6dkc.jpg" /><br /><br />Sau đó nhìn lên thanh công cụ, click vào dấu mũi tên đi xuống (3) và chọn Clean Brush (4)<br /><br /><br /><img alt="[​IMG]" class="bbCodeImage LbImage" src="http://a.imageshack.us/img17/8203/ef77.jpg" /><br /><br />Tiếp theo, ở (5) ta bỏ chọn ô bên trái và giữ nguyên ô bên phải (như hình)<br />(6) : Custom<br />(7) : Đặt thông số như trong hình (áp dụng HẦU HẾT cho các ảnh, tùy vào mức độ và nhu cầu có thể thay đổi cho phù hợp)<br />(8) : Click chọn Sample All Layers<br /><br /><br /><img alt="[​IMG]" class="bbCodeImage LbImage" src="http://a.imageshack.us/img89/7497/8qln.jpg" /><br /><br />Về vấn đề chuẩn bị đã xong, việc còn lại là tô lên vùng da các bác muốn tẩy mụn và làm mịn thôi<br />Lưu ý là các bác đưa tay nhẹ nhàng thôi, đừng làm quá nhìn nó ko thật mà xấu lắm.<br />Chúc các bác chơi ảnh vui vẻ, chào và hẹn lâu lâu gặp lại <img alt=":D" class="mceSmilie" src="http://l.yimg.com/us.yimg.com/i/mesg/emoticons7/4.gif" title="big grin :D" /><br /><br /><div style="background-color: white; border: medium none; color: black; overflow: hidden; text-align: left; text-decoration: none;"><br />Read more: <a href="http://forum.vietdesigner.net/threads/chia-se-kem-tay-mun-lam-min-da-2-in-1.44705/#ixzz2np9qTPPQ" style="color: #003399;">http://forum.vietdesigner.net/threads/chia-se-kem-tay-mun-lam-min-da-2-in-1.44705/#ixzz2np9qTPPQ</a></div>

Tẩy mụn cho mẫu và làm cho mẫu có làn da mịn màng trong 3 phút

Chia sẻ 1 loại thảo dược đc chế tạo cực kì đơn giản và hiệu quả cho những bác mới chơi PS hay những bác đã chơi nhưng vẫn còn lăn tăn về c...

Read more »

Bài tập 6: Phân biệt Foreground Lifetime và Visible Lifetime

Để củng cố thêm sự hiểu biết về Lifetime Cycle trong bài tập 5,  bài tập này Tôi sẽ Demo cho các bạn một ứng dụng để bạn có thể hiểu rõ hơn về Lifetime Cycle, đặc biệt là nhận biết được Foreground Lifetime và Visible Lifetime:<br /> Bạn tạo một ứng dụng tên là “<strong>LearnAndroidLifetime</strong>“, với cấu trúc như hình dưới:<br /> <a href="http://duythanhcse.files.wordpress.com/2013/03/6_life_cycle_11.png"><img alt="6_Life_cycle_1" class="aligncenter size-full wp-image-1255" src="http://duythanhcse.files.wordpress.com/2013/03/6_life_cycle_11.png?w=620" /></a>- Nhìn vào hình bên trên thì ứng dụng này sẽ có tổng cộng 3 Activities. Chú ý là ta sẽ cấu hình  <b>SubActivity1</b> để hiển thị dưới dạng Dialog (khi <b>SubActivity1</b> kích hoạt thì nó sẽ nằm phía trên <b>MainActivity</b>, nhưng mà vẫn nhìn thấy màn hình <b>MainActivity </b>– tức là đồng thời nhìn thấy 2 Activity). Còn khi <b>SubActivity2</b> hiển thị thì nó sẽ chiếm toàn bộ màn hình, không thể thấy được <b>MainActivity</b>.<br /> - Giao diện và xml layout của <strong>MainActivity</strong> sẽ như bên dưới:<br /> <a href="http://duythanhcse.files.wordpress.com/2013/03/6_life_cycle_2.png"><img alt="6_Life_cycle_2" class="aligncenter size-full wp-image-1254" src="http://duythanhcse.files.wordpress.com/2013/03/6_life_cycle_2.png?w=620" /></a><br /> đây là <span style="color: red;"><strong>activity_main.xml </strong></span>của MainActivity<br /> <div style="background: lavender;"><blockquote class="tr_bq"><LinearLayout xmlns:android=<i>“<a href="http://schemas.android.com/apk/res/android" rel="nofollow">http://schemas.android.com/apk/res/android</a> “</i><br /> xmlns:tools=<i>“<a href="http://schemas.android.com/tools" rel="nofollow">http://schemas.android.com/tools</a> “</i><br /> android:id=<i>“@+id/LinearLayout1″</i><br /> android:layout_width=<i>“match_parent”</i><br /> android:layout_height=<i>“match_parent”</i><br /> android:orientation=<i>“horizontal”</i><br /> tools:context=<i>“.MainActivity”</i> ><br /> <Button<br /> android:id=<i>“@+id/button1″</i><br /> android:layout_width=<i>“wrap_content”</i><br /> android:layout_height=<i>“wrap_content”</i><br /> android:layout_weight=<i>“1″</i><br /> android:text=<i>“SubActivity1″</i> /><br /> <Button<br /> android:id=<i>“@+id/button2″</i><br /> android:layout_weight=<i>“1″</i><br /> android:layout_width=<i>“wrap_content”</i><br /> android:layout_height=<i>“wrap_content”</i><br /> android:text=<i>“SubActivity2″</i> /><br /> </LinearLayout></blockquote></div>- Tại MainActivity: Khi chọn nút <span style="color: red;"><strong>SubActivity1</strong></span>, chương trình sẽ mở SubActivity với dạng Dialog như hình bên dưới:<br /> <a href="http://duythanhcse.files.wordpress.com/2013/03/6_life_cycle_3.png"><img alt="6_Life_cycle_3" class="aligncenter size-full wp-image-1256" src="http://duythanhcse.files.wordpress.com/2013/03/6_life_cycle_3.png?w=620" /></a><br /> - Khi màn hình SubActivity1 hiển thị lên như trên, nếu chọn “<strong>Trở về MainActivity”</strong>, ứng dụng sẽ đóng SubActivity1.<br /> - Bạn xem cấu hình <span style="color: red;"><strong>AndroidManifest.xml</strong></span> để cho phép <span style="color: red;"><strong>SubActivity1</strong> </span>hiển thị dưới dạng Dialog:<br /> <div style="background: lavender;"><blockquote class="tr_bq"><?xml version=”1.0″ encoding=”utf-8″?><br /><manifest xmlns:android=”<a href="http://schemas.android.com/apk/res/android" rel="nofollow">http://schemas.android.com/apk/res/android</a> “<br />package=”tranduythanh.com”<br />android:versionCode=”1″<br />android:versionName=”1.0″ ><br /> <uses-sdk<br />android:minSdkVersion=”14″<br />android:targetSdkVersion=”17″ /><br /> <application<br />android:allowBackup=”true”<br />android:icon=”@drawable/ic_launcher”<br />android:label=”@string/app_name”<br />android:theme=”@style/AppTheme” ><br /><activity<br />android:name=”tranduythanh.com.MainActivity”<br />android:label=”@string/app_name” ><br /><intent-filter><br /><action android:name=”android.intent.action.MAIN” /><br /> <category android:name=”android.intent.category.LAUNCHER” /><br /></intent-filter><br /></activity><br /><activity<br />android:name=”tranduythanh.com.<span style="color: red;"><strong>SubActivity1</strong></span>“<br />android:label=”@string/title_activity_sub_activity1″<br /><span style="color: red;">android:theme=”@android:style/Theme.Dialog”</span>><br /></activity><br /><activity<br />android:name=”tranduythanh.com.SubActivity2″<br />android:label=”@string/title_activity_sub_activity2″ ><br /></activity><br /></application><br /> </manifest></blockquote></div>- Bạn xem code xử lý nút “<strong>SubActivity1</strong>” và “<strong>SubActivity2</strong>“ trong class <strong>MainActivity</strong>:<br /> <div style="background: lavender;"><blockquote class="tr_bq"><b>package</b> tranduythanh.com;<br /> <b>import</b> android.os.Bundle;<br /> <b>import</b> android.app.Activity;<br /> <b>import</b> android.content.Intent;<br /> <b>import</b> android.view.View;<br /> <b>import</b> android.widget.Button;<br /> <b>import</b> android.widget.Toast;<br /> <b>public</b> <b>class</b> MainActivity <b>extends</b> Activity {<br /> <b>protected</b> <b>void</b> onCreate(Bundle savedInstanceState) {<br /> <b>super</b>.onCreate(savedInstanceState);<br /> setContentView(R.layout.<i>activity_main</i>);<br /> Button btn1=(Button) <span style="color: red;"><strong>findViewById</strong></span>(R.id.<i>button1</i>);<br /> btn1.setOnClickListener(<b>new</b> View.OnClickListener() {<br /> <b>public</b> <b>void</b> onClick(View arg0) {<br /> Intent intent=<b>new</b> Intent(MainActivity.<b>this</b>,<br /> SubActivity1.<b>class</b>);<br /> <span style="color: red;">startActivity</span>(intent);<br /> }<br /> });<br /> Button btn2=(Button) <strong><span style="color: red;">findViewById</span></strong>(R.id.<i>button2</i>);<br /> btn2.setOnClickListener(<b>new</b> View.OnClickListener() {<br /> <b>public</b> <b>void</b> onClick(View arg0) {<br /> Intent intent=<b>new</b> Intent(MainActivity.<b>this</b>,<br /> SubActivity2.<b>class</b>);<br /> <span style="color: red;">startActivity</span>(intent);<br /> }<br /> });<br /> }<br /> }</blockquote></div>-          Phương thức <span style="color: red;"><b>findViewById</b> </span>để trả về View theo đúng Id truyền vào, mọi Control trong Android đều kế thừa từ View, ở đây ta ép kiểu về cho đúng kiểu Button.<br /> -          Dùng phương thức <span style="color: red;"><b>startActivity</b> </span>để mở một Activity, chú ý là Activity này được đưa vào một Intent với cách khai báo như trên.<br /> -          Cách chạy <b>SubActivity1</b> và <b>SubActivity2</b> là hoàn toàn giống nhau. Chỉ khác nhau ở lúc hiển thị lên màn hình điện thoại (như đã giải thích ở trên).<br /> -          Ta sẽ học rõ hơn về Intent trong phần sau, tạm thời phần này chưa cần phải hiểu sâu về nó. Chỉ cần biết rằng để chạy 1 Activity nào đó thì phải tiến hành như vậy.<br /> *** Tiếp tục làm việc với class <strong>MainActivity:</strong><br /> Bạn tạo Override thêm một số hàm : onResume, onPause, onStop, onDestroy…:<br /> <div style="background: lavender;"><blockquote class="tr_bq">@Override<br /> <b>protected</b> <b>void</b> onResume() {<br /> <b>super</b>.onResume();<br /> Toast.<i>makeText</i><br /> (<b>this</b>, “onResume”, Toast.<i>LENGTH_LONG</i>)<br /> .show();<br /> }<br /> @Override<br /> <b>protected</b> <b>void</b> onPause() {<br /> <b>super</b>.onPause();<br /> Toast.<i>makeText</i><br /> (<b>this</b>, “onPause”, Toast.<i>LENGTH_LONG</i>)<br /> .show();<br /> }<br /> @Override<br /> <b>protected</b> <b>void</b> onStop() {<br /> <b>super</b>.onStop();<br /> Toast.<i>makeText</i><br /> (<b>this</b>, “onStop”, Toast.<i>LENGTH_LONG</i>)<br /> .show();<br /> }<br /> @Override<br /> <b>protected</b> <b>void</b> onDestroy() {<br /> <b>super</b>.onDestroy();<br /> Toast.<i>makeText</i><br /> (<b>this</b>, “onDestroy”, Toast.<i>LENGTH_LONG</i>)<br /> .show();<br /> }</blockquote></div>- Bạn thiết kế SubActivity1 sao cho giống như hình . Bạn cần lưu ý là mỗi khi chúng ta tạo mới 1 Activity thì nó sẽ tự động tạo ra 1 Layout cho nó luôn:<br /> + 1 – Bấm chuột phải vào <strong>Project</strong> / chọn <strong>New</strong> / chọn <strong>Other</strong> …<br /> <a href="http://duythanhcse.files.wordpress.com/2013/03/6_life_cycle_4.png"><img alt="6_Life_cycle_4" class="aligncenter size-full wp-image-1264" src="http://duythanhcse.files.wordpress.com/2013/03/6_life_cycle_4.png?w=620" /></a><br /> + 2 – sau khi bấm Other thì màn hình New được hiển thị lên, tại màn hình này bạn chọn Android <strong>Activity</strong> rồi bấm next:<br /> <a href="http://duythanhcse.files.wordpress.com/2013/03/6_life_cycle_5.png"><img alt="6_Life_cycle_5" class="aligncenter size-full wp-image-1265" src="http://duythanhcse.files.wordpress.com/2013/03/6_life_cycle_5.png?w=620" /></a><br /> +3 – tiếp tục bấm Next cho tới màn hình bên dưới, trong màn hình này bạn đặt tên Activity mà bạn mong muốn, để ý là bên dưới tên Activity sẽ cho phép bạn đặt tên Layout cho Activity này, thông thường tên Layout sẽ đi kèm với tên Activity do đó bạn không cần thiết phải đổi tên Layout:<br /> <a href="http://duythanhcse.files.wordpress.com/2013/03/6_life_cycle_6.png"><img alt="6_Life_cycle_6" class="aligncenter size-full wp-image-1266" src="http://duythanhcse.files.wordpress.com/2013/03/6_life_cycle_6.png?w=620" /></a><br /> + 4- bấm Finish, và quan sát ứng dụng sẽ xuất hiện Activity và Layout cho bạn. Bây giờ bạn tha hồ thiết kế.<br /> Trong ví dụ của Tôi thì bạn chỉ cần kéo 1 Button vào Layout của SubActivity1<br /> Bạn đặt tên Button trong SubActivity1 là <span style="color: red;"><strong>btntrove</strong></span>, để cho giống với Code trở về MainActivity dưới này:<br /> <div style="background: lavender;"><blockquote class="tr_bq"><b>package</b> tranduythanh.com;<br /> <b>import</b> android.os.Bundle;<br /> <b>import</b> android.app.Activity;<br /> <b>import</b> android.view.View;<br /> <b>import</b> android.widget.Button;<br /> <b>public</b> <b>class</b> SubActivity1 <b>extends</b> Activity {<br /> @Override<br /> <b>protected</b> <b>void</b> onCreate(Bundle savedInstanceState) {<br /> <b>super</b>.onCreate(savedInstanceState);<br /> setContentView(R.layout.<i>activity_sub_activity1</i>);<br /> Button btn=(Button) findViewById(R.id.<i>btntrove</i>);<br /> btn.setOnClickListener(<b>new</b> View.OnClickListener() {<br /> @Override<br /> <b>public</b> <b>void</b> onClick(View arg0) {<br /> <strong><span style="color: red;"> finish();</span></strong><br /> }<br /> });<br /> }<br /> }</blockquote></div>- Bạn thấy trong SubActivity1 Tôi gọi hàm <span style="color: red;">finish()</span> khi chọn “Trở về MainActivity”. Công dụng của hàm  <span style="color: red;">finish()</span> là tắt màn hình hiện tại–> như vậy nó tự động mở MainActivity vì theo cơ chế Activities Stack.<br /> - Bây giờ bạn thực thi chương trình và làm các thao tác sau:<br /> 1) Chọn nút SubActivity1 để mở Activity này lên, quan sát hiện tượng sảy ra (chú ý những hàm nào được gọi)<br /> 2) Khi chọn nút “Trở về MainActivity”, quan sát hiện tượng sảy ra (chú ý những hàm nào được gọi)<br /> 3) Chọn nút SubActivity2 để mở Activity này lên, quan sát hiện tượng sảy ra (chú ý những hàm nào được gọi)<br /> 4) nhấn nút “Back” của điện thoại, quan sát hiện tượng (chú ý những hàm nào được gọi)<br /> *** Tới đây Tôi sẽ không giải thích thứ tự các hàm sảy ra như thế nào, mà để dành cho các bạn tự giải thích. Bạn sẽ thấy rõ sự khác biệt trong 2 trường hợp này. Và dĩ nhiên bạn sẽ tự động hiểu được Foreground Lifetime và Visible Lifetime<br /> Các bạn có thể tải coding mẫu ở đây:<a href="http://www.mediafire.com/download/7ra8h7vyttkjq6u/LearnAndroidLifetime.rar">http://www.mediafire.com/download/7ra8h7vyttkjq6u/LearnAndroidLifetime.rar</a><br /> Trong bài tập kế tiếp Tôi sẽ hướng dẫn  các bạn cách sử dụng XML Layout và một số control căn bản thường dùng cũng như các kiểu lập trình sự kiện.<br /> Chúc các bạn thành công.

Bài tập 6: Phân biệt Foreground Lifetime và Visible Lifetime

Để củng cố thêm sự hiểu biết về Lifetime Cycle trong bài tập 5,  bài tập này Tôi sẽ Demo cho các bạn một ứng dụng để bạn có thể hiểu rõ hơ...

Read more »