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 »