IT VO VAN TIEN

Thủ thuật tạo ảnh phân thân trong photoshop

Photoshop là một công cụ chỉnh sửa ảnh chuyên nghiệp giúp bạn có thể làm được nhiều bức ảnh không tưởng, sau đây giới thiệu các bạn thủ thuật tạo ảnh phân thân nhiều hình của mình trong cùng một quang cảnh như trên phim <h1 style="padding-bottom: 10px;">Giới thiệu</h1>Photoshop là một công cụ chỉnh sửa ảnh chuyên nghiệp giúp bạn có thể làm được nhiều bức ảnh không tưởng, sau đây giới thiệu các bạn thủ thuật tạo ảnh phân thân nhiều hình của mình trong cùng một quang cảnh như trên phim <div class="separator" style="clear: both; text-align: center;"><div class="view_img"><a class="group4 cboxElement" href="http://megacode.vn/media/files/2013_12/2013_12_23/01colors02_zpsd2dd1034.jpg"><img src="http://megacode.vn/media/files/2013_12/2013_12_23/01colors02_zpsd2dd1034.jpg" style="max-width: 500px;" /></a></div></div>Đã bao giờ bạn thấy phong cách ảnh “phân thân” này chưa? Nhìn có vẻ rất phức tạp, nhưng thật ra lại đơn giản cực kì. Cùng thử nhéCách làm: các bạn chú ý kỹ các bước như sau: 1. Chụp hình: a. Công cụ: Máy ảnh hoặc điện thoại, tripod (chân đế gắn máy ảnh) hoặc một vị trí kê chắc chắn. Thế là xong b. Thực hiện: - Gắn máy ảnh vào tripod hoặc để lên bàn, lên tủ…cho chắc chắn, không rung lắc hoặc đổi góc chụp. - Nếu bạn chụp 1 mình, thì hẹn giờ chụp nhé - Rồi giờ thì vào vị trí, chụp nhiều tư thế khác nhau ở cùng 1 góc máy. Bức ảnh hay ho cỡ nào sẽ tùy vào sự sáng tạo của bạn. Ở đây mình làm tạm, chỉ có 3 tư thế đang ngồi trong phòng họp <div class="separator" style="clear: both; text-align: center;"><img alt="Thủ thuật tạo ảnh phân thân trong photoshop" src="http://megacode.vn/media/files/2013_12/tu-ki-cung-phan-than-740-1385785145-52996739295f8.jpg" style="height: 333px; width: 500px;" title="Thủ thuật tạo ảnh phân thân trong photoshop" /></div><div class="separator" style="clear: both; text-align: center;"><img alt="Thủ thuật tạo ảnh phân thân trong photoshop" src="http://megacode.vn/media/files/2013_12/2.png" style="height: 279px; width: 500px;" title="Thủ thuật tạo ảnh phân thân trong photoshop" /></div><div class="separator" style="clear: both; text-align: center;"> </div><div class="separator" style="clear: both; text-align: center;"><img alt="Thủ thuật tạo ảnh phân thân trong photoshop" src="http://megacode.vn/media/files/2013_12/3.png" style="height: 306px; width: 500px;" title="Thủ thuật tạo ảnh phân thân trong photoshop" /></div> 2. Cân chỉnh ánh sáng: - Bước đầu tiên dĩ nhiên là mở Photoshop lên - Bấm Ctrl + O (hoặc Menu Files > Open files) chọn hết các hình đã chụp - Vì ảnh chụp cùng điều kiện ánh sáng, nên để đơn giản, ta chỉ cần vào menu Image, chọn Auto Tone cho từng ảnh là xong <div class="separator" style="clear: both; text-align: center;"><img alt="Thủ thuật tạo ảnh phân thân trong photoshop" src="http://megacode.vn/media/files/2013_12/4.png" style="height: 449px; width: 457px;" title="Thủ thuật tạo ảnh phân thân trong photoshop" /></div> 3. Bắt đầu tẩy xóa nào: - Chọn 1 hình làm gốc, mở mấy hình kia lên bấm Ctrl A để chọn hết hình, Ctrl C để copy và về hình lấy làm nền Ctrl V để dán vô. Lặp lại đến khi hết. Nhìn qua bên tay phải, bảng Layers ta sẽ được như hình <div class="separator" style="clear: both; text-align: center;"><img alt="Thủ thuật tạo ảnh phân thân trong photoshop" src="http://megacode.vn/media/files/2013_12/tu-ki-cung-phan-than-740-1385785334-529967f67ab20.png" style="height: 282px; width: 257px;" title="Thủ thuật tạo ảnh phân thân trong photoshop" /></div> - Bấm E để chọn công cụ Eraser, bấm phải chuột Hardness để 80%. - Chọn layer 1, xóa vị trí nhân vật ở layer Background <div class="separator" style="clear: both; text-align: center;"><img alt="Thủ thuật tạo ảnh phân thân trong photoshop" src="http://megacode.vn/media/files/2013_12/tu-ki-cung-phan-than-740-1385785345-52996801ec70e.png" style="height: 336px; width: 500px;" title="Thủ thuật tạo ảnh phân thân trong photoshop" /></div> - Chọn layer 2, xóa vị trí nhân vật của layer background và layer 2 <div class="separator" style="clear: both; text-align: center;"><img alt="Thủ thuật tạo ảnh phân thân trong photoshop" src="http://megacode.vn/media/files/2013_12/5.png" style="height: 313px; width: 500px;" title="Thủ thuật tạo ảnh phân thân trong photoshop" /></div> - Mẹo: Bạn có thể chỉnh Opacity của các layer nằm trên xuống tầm 50% để xóa cho chính xác. Kết quả đây <div class="separator" style="clear: both; text-align: center;"><img alt="Thủ thuật tạo ảnh phân thân trong photoshop" src="http://megacode.vn/media/files/2013_12/tu-ki-cung-phan-than-740-1385785363-5299681388230.png" style="height: 300px; width: 500px;" title="Thủ thuật tạo ảnh phân thân trong photoshop" /></div> Crop lại để cover facebook cho vừa <div class="separator" style="clear: both; text-align: center;"><img alt="Thủ thuật tạo ảnh phân thân trong photoshop" src="http://megacode.vn/media/files/2013_12/tu-ki-cung-phan-than-740-1385785379-529968236241f.jpg" style="height: 185px; width: 500px;" title="Thủ thuật tạo ảnh phân thân trong photoshop" /></div> Các bạn có thể thêm thắt hiệu ứng blend blur j đó tùy thích cho đẹp theo ý thích<img src="http://congnghe.5giay.vn/styles/default/xenforo/clear.png" /> Chúc các bạn thành công và tạo ra những bức ảnh thật sáng tạo nhé

Thủ thuật tạo ảnh phân thân trong photoshop

Photoshop là một công cụ chỉnh sửa ảnh chuyên nghiệp giúp bạn có thể làm được nhiều bức ảnh không tưởng, sau đây giới thiệu các bạn thủ thu...

Video Lập Trình C++ từ Cơ Bản đến Nâng Cao [Update...]

<div class="separator" style="clear: both; text-align: center;"></div><h2 style="text-align: center;">Lập trình C++</h2>Bài 1 - Giới thiệu C++ và Visual Studio <div class="separator" style="clear: both; text-align: center;"> </div><div class="separator" style="clear: both; text-align: center;"> </div><div class="separator" style="clear: both; text-align: center;"><iframe allowfullscreen="allowfullscreen" frameborder="0" height="266" mozallowfullscreen="mozallowfullscreen" src="https://www.youtube.com/embed/b48Iiffs4U4?feature=player_embedded" webkitallowfullscreen="webkitallowfullscreen" width="320"></iframe></div>

Video Lập Trình C++ từ Cơ Bản đến Nâng Cao [Update...]

Lập trình C++ Bài 1 - Giới thiệu C++ và Visual Studio

Khắc phục lỗi hao pin Trên Windows RT 8.1 của Surface RT

<div style="text-align: justify;">Nhiều người dùng Surface RT khi tiến hành cập nhật lên phiên bản Windows RT 8.1 đều phàn nàn về mức độ hao pin khó hiểu của máy. Microsoft đã nhận thức được điều này và đã đưa ra cách thức khắc phục vấn đề này cho người dùng.</div><div style="text-align: center;"><img alt="Khắc phục lỗi hao pin Trên Windows RT 8.1 của Surface RT" height="397" src="http://www.quantrimang.com.vn/photos/image/112013/01/Windows-RT.jpg" title="Windows RT 8.1" width="600" /></div><div style="text-align: justify;">Theo Microsoft, việc giảm tuổi thọ pin khi cập nhật Surface RT của bạn từ bản Windows 8.1 Preview lên Windows 8.1 hoàn chỉnh do các nguồn điện cung cấp cho Adapter mạng không dây không thể thay đổi để phù hợp với phiên bản Windows mới. Công ty giải thích thêm rằng các giá trị sử dụng năng lượng cho adapter mạng không dây được đặt ở mặc định của pin và không thể tối ưu hoá cho phiên bản Windows nói trên.</div><div style="text-align: justify;">"Nếu bạn cập nhật Surface RT từ Windows RT 8.1 Preview lên Windows RT 8.1 chính thức, bạn có thể nhận thấy thời lượng pin sụt giảm đáng kể khi sử dụng. Trong bản cập nhật, các thiết đặt nguồn điện cho adapter mạng không dây không chịu thay đổi để tối ưu hoá cho Windows. Thay vào đó, các thiết đặt nguồn điện được thiết lập một giá trị mặc định nên dẫn tới lượng điện tiêu thụ nhiều hơn trong khi bạn sử dụng mạng Wifi hoặc trong chế độ chờ" - Microsoft đã cập nhật trong một bài viết trên Blog.</div><h2 style="text-align: justify;">Bên cạnh đó Microsoft cũng đưa ra cách thức giải quyết như sau:</h2><div style="text-align: justify;">Bước 1: Vuốt từ cạnh phải của màn hình, sau đó bấm Search. (Nếu bạn đang sử dụng chuột, hãy trỏ đến góc dưới bên phải của màn hình, di chuyển con trỏ chuột lên trên sau đó nhấp vào Search.)</div><div style="text-align: justify;">Bước 2: Trong hộp tìm kiếm, nhập "command prompt".</div><div style="text-align: justify;">Bước 3: Chạm và giữ (hoặc nhấp chuột phải) vào biểu tượng "command prompt". Chạm hoặc nhấp vào "Run as administrator".</div><div style="text-align: justify;">Bước 4: Trên cửa sổ UAC bạn chọn Yes để tiếp tục.</div><div style="text-align: justify;">Bước 5: Nhập lệnh sau:</div><div style="background-color: #f7f8f8; border: 1px dashed #2f6fab; font-family: Courier New; font-style: italic; line-height: 1.1em; margin: 10px auto; overflow: auto; padding: 10px; width: 600px;">powercfg - setdcvalueindex SCHEME_CURRENT 19cbb8fa-5279-450e-9fac-8a3d5fedd0c1 12bbebe6-58d6-4636-95bb-3217ef867c1a 3</div><div style="text-align: justify;">Bước 6: Nhập tiếp:</div><div style="background-color: #f7f8f8; border: 1px dashed #2f6fab; font-family: Courier New; font-style: italic; line-height: 1.1em; margin: 10px auto; overflow: auto; padding: 10px; width: 600px;">powercfg - setactive scheme_current</div><div style="text-align: justify;">Lưu ý: Vấn đề và cách khắc phục này chỉ áp dụng trên Surface RT.</div>

Khắc phục lỗi hao pin Trên Windows RT 8.1 của Surface RT

Nhiều người dùng Surface RT khi tiến hành cập nhật lên phiên bản Windows RT 8.1 đều phàn nàn về mức độ hao pin khó hiểu của máy. Microsoft...

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

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

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). 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 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++ Yêu cầu: - <a href="http://notepad-plus-plus.org/" rel="nofollow" target="_blank">Notepad++</a> - Set các biến môi trường (Environment Variables) cho các ngôn ngữ (Pascal, C, Java) + 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 i386-win32 của Free Pascal (thường là C:\FPC\bin\i386-win32) + 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 bin của <a href="http://www.bloodshed.net/download.html" rel="nofollow" target="_blank">Dev-Cpp</a> (thường là C:\Dev-Cpp\bin) + 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 bin của JDK (thường là C:\Program Files\Java\jdk1.7.0\bin) Các bước thực hiện: - Đầu tiên các bạn cài plugin NppExec (Plugins -> Plugin Manager -> Show Plugin Manager, chọn NppExec -> Install -> Yes) 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 - Tiếp theo, tạo các script để Compile và Run. Bạn nhấn F6, gõ đoạn lệnh ở dưới vào vùng Command(s), sau đó nhấn Save, đặt tên cho nó rồi nhấn Save. <img alt="" border="0" height="204" src="http://i843.photobucket.com/albums/zz352/doanhpham/Notepad/3.jpg" width="400" /> 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 <img alt="" border="0" height="245" src="http://i843.photobucket.com/albums/zz352/doanhpham/Notepad/compile.png" width="400" /> Với Java <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 <div class="bbcode_container"><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 60px;">NPP_SAVE cd $(CURRENT_DIRECTORY) javac "$(FILE_NAME)"</pre></div>- Run <div class="bbcode_container"><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 48px;">cd $(CURRENT_DIRECTORY) java "$(NAME_PART)"[/CODE]</pre></div>- Compile & Run <div class="bbcode_container"><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 72px;">NPP_SAVE cd $(CURRENT_DIRECTORY) javac "$(FILE_NAME)" 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) <div class="bbcode_container"><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 60px;">NPP_SAVE cd $(CURRENT_DIRECTORY) javac .java</pre></div></blockquote> Với C++ <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 <div class="bbcode_container"><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 72px;">NPP_SAVE cd $(CURRENT_DIRECTORY) g++ "$(FILE_NAME)" -o "$(NAME_PART)" "$(NAME_PART)"</pre></div>- Run <div class="bbcode_container"><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 48px;">cd $(CURRENT_DIRECTORY) "$(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 cd $(CURRENT_DIRECTORY) g++ "$(FILE_NAME)" -o "$(NAME_PART)" "$(NAME_PART)"</pre></blockquote></div> Với Pascal <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 <div class="bbcode_container"><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 60px;">NPP_SAVE cd $(CURRENT_DIRECTORY) fpc "$(FILE_NAME)"</pre></div>- Run <div class="bbcode_container"><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 48px;">cd $(CURRENT_DIRECTORY) "$(NAME_PART)"</pre></div>- Compile & Run <div class="bbcode_container"><div class="bbcode_description">Code:</div><pre class="bbcode_code" style="height: 72px;">NPP_SAVE cd $(CURRENT_DIRECTORY) fpc "$(FILE_NAME)" "$(NAME_PART)"</pre></div></blockquote> *Nếu Run C và Pascal trên cửa sổ Dosthì thay thế <pre class="bbcode_code" style="height: 72px;">"$(NAME_PART)" thành NPP_RUN "$(NAME_PART)" </pre>Và đây là kết quả <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> Ngoài ra, bạn còn có thể sử dụng màn hình console này như cmd của windows. </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ó...

IT VO VAN TIEN

Thủ thuật tạo ảnh phân thân trong photoshop

Video Lập Trình C++ từ Cơ Bản đến Nâng Cao [Update...]

Khắc phục lỗi hao pin Trên Windows RT 8.1 của Surface RT

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

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

Popular Posts

Blog Archive

Labels