A14 Tôi yêu

Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
A14 Tôi yêu

Tập đoàn đầu tư và phát triển toàn diện tài năng và nhan sắc

Latest topics

» TG 24 giờ qua ảnh: Người đàn ông thi leo cột mỡ
by handsomevip007 Wed 29 Aug 2012, 18:15

» Sấm sét Hà Nội lên tạp chí Mỹ
by handsomevip007 Wed 29 Aug 2012, 18:15

» Chùm ảnh:Lính Anh khỏa thân tập thể ủng hộ Hoàng tử Harry
by handsomevip007 Wed 29 Aug 2012, 18:14

» TG 24 giờ qua ảnh: Học viên cảnh sát rèn luyện
by handsomevip007 Wed 29 Aug 2012, 18:14

» Tóc bóng nước nổ tung trên đầu trọc mẫu nghiệp dư
by handsomevip007 Wed 29 Aug 2012, 18:14

» Cận cảnh hà mã quyết chiến tranh ngôi đầu đàn
by handsomevip007 Wed 29 Aug 2012, 18:13

» TG 24 giờ qua ảnh: Bé trai bị thương chờ điều trị
by handsomevip007 Wed 29 Aug 2012, 18:13

» TG 24 giờ qua ảnh: ‘Thây ma’ ngồi chờ tàu điện
by handsomevip007 Wed 29 Aug 2012, 18:13

» TG 24 giờ qua ảnh: Trẻ em chơi đùa với... trăn
by handsomevip007 Wed 29 Aug 2012, 18:13

» TG 24 giờ qua ảnh: Tiệc cưới dang dở vì cháy rừng
by handsomevip007 Wed 29 Aug 2012, 18:12

» Chùm ảnh: Bữa ăn hụt của sư tử chột
by handsomevip007 Wed 29 Aug 2012, 18:12

» Chùm ảnh: Giải cứu báo mắc kẹt trên hàng rào sắt
by handsomevip007 Wed 29 Aug 2012, 18:12

» Chế quai cho dép tông từ vải hoa
by handsomevip007 Wed 29 Aug 2012, 18:08

» Nhẫn cực xinh cực độc từ cán thìa
by handsomevip007 Wed 29 Aug 2012, 18:08

» Pha chế sơn móng tay từ phấn mắt
by handsomevip007 Wed 29 Aug 2012, 18:07

» Độc đáo vòng tay kết từ khuy
by handsomevip007 Wed 29 Aug 2012, 18:07

» Đan báo cũ thành thùng đựng đồ hữu dụng
by handsomevip007 Wed 29 Aug 2012, 18:07

» Độc đáo vườn treo trong nhà
by handsomevip007 Wed 29 Aug 2012, 18:06

» Bánh pancake theo phong cách Đức có gì lạ?
by handsomevip007 Wed 29 Aug 2012, 18:01

» Lạ miệng món salad bơ với cà chua
by handsomevip007 Wed 29 Aug 2012, 18:01

» Công thức bánh Madeleine pho mát tuyệt hảo
by handsomevip007 Wed 29 Aug 2012, 18:00

» Lạ miệng món mỳ gà nấu nước dừa
by handsomevip007 Wed 29 Aug 2012, 18:00

» Đẹp da với nước ép cà chua
by handsomevip007 Wed 29 Aug 2012, 18:00

» Ngọt ngào hương vị cà phê caramen
by handsomevip007 Wed 29 Aug 2012, 17:58

» TG 24h qua ảnh: Chiến binh tránh đạn bắn tỉa
by handsomevip007 Sat 25 Aug 2012, 14:53

» TG 24 giờ qua ảnh: Diễn tập sơ tán khỏi tòa nhà
by handsomevip007 Sat 25 Aug 2012, 14:52

» TG 24 giờ qua ảnh: Người biểu tình TQ phá xe Nhật
by handsomevip007 Sat 25 Aug 2012, 14:52

» Món tiết canh dưới ống kính nhiếp ảnh gia Đức
by handsomevip007 Sat 25 Aug 2012, 14:51

» TG 24 giờ qua ảnh: Cậu bé không bàn chân chơi bóng
by handsomevip007 Sat 25 Aug 2012, 14:46

» Nữ VĐV Wushu xinh đẹp, vung kiếm như phim kiếm hiệp
by handsomevip007 Fri 24 Aug 2012, 14:26

Chào bạn! Khách viếng thăm

    Topic hướng dẫn Pascal 11

    handsomevip007
    handsomevip007
    ĐẠI TƯỚNG CAO CẤP-Lv.6
    ĐẠI TƯỚNG CAO CẤP-Lv.6

    Số bài : 4021
    A14$ : 4499
    Danh tiếng : 920
    Tham gia : 01/12/2010


    Medal:
    Pet:
    Goods:

    Topic hướng dẫn Pascal 11 Empty Topic hướng dẫn Pascal 11

    Bài gửi by handsomevip007 Thu 09 Jun 2011, 19:52

    Ở Topic này sẽ có 2 hướng đi

    1/ Hướng dẫn, Cung cấp Đề và Code giải.
    Toàn bộ Code bài giải phải được bỏ vào thẻ Code.
    Rê chuột lên hàng nút để tìm nút Code có hiện chữ "Code".
    Đề toán viết bằng ghi chú ở trên cùng đoạn Code để dễ theo dõi.
    Đặt tên bài bên ngoài thẻ Code theo quy ước số thứ tự và dấu #. Vd: 1#

    2/ Thắc mắc hỏi đáp, đưa đề toán thảo luận tìm hướng giải.
    Hỏi đáp cách giải.
    Thảo luận lấy cách giải tối ưu nhất.
    Thắc mắc bài nào vui thì ghi tên bài lại. Vd: 1#

    *Tải ftp.freepascal.org.var" target="_blank" rel="nofollow">Free Pascal 2.4.4 (last version)

    Ai Spam sẽ Ban ID khỏi Box này
    Attachments
    Topic hướng dẫn Pascal 11 AttachmentPascal_11_He_New.doc
    Tài liệu Pascal hè - GV: Nguyễn Thị Ngọc Liên
    You don't have permission to download attachments.
    (94 Kb) Downloaded 6 times


    Được sửa bởi handsomevip007 ngày Tue 14 Jun 2011, 18:25; sửa lần 4.
    handsomevip007
    handsomevip007
    ĐẠI TƯỚNG CAO CẤP-Lv.6
    ĐẠI TƯỚNG CAO CẤP-Lv.6

    Số bài : 4021
    A14$ : 4499
    Danh tiếng : 920
    Tham gia : 01/12/2010


    Medal:
    Pet:
    Goods:

    Topic hướng dẫn Pascal 11 Empty Re: Topic hướng dẫn Pascal 11

    Bài gửi by handsomevip007 Thu 09 Jun 2011, 20:04

    Bài 1#
    Code:
    {De: Nhap 1 so a bat ki, kiem tra xem do la so duong hay so am}
    Program baitap1;
    Var a:real;
    Begin
       Clrscr;
       Write('Nhap a la ');
       Readln(a);
       If a>0 then writeln('Ban vua nhap 1 so duong');
       If a<0 then writeln('Ban vua nhap 1 so am');
       If a=0 then writeln('Ban vua nhap 1 so khong am cung khong duong');
       Readln;
    End.
    handsomevip007
    handsomevip007
    ĐẠI TƯỚNG CAO CẤP-Lv.6
    ĐẠI TƯỚNG CAO CẤP-Lv.6

    Số bài : 4021
    A14$ : 4499
    Danh tiếng : 920
    Tham gia : 01/12/2010


    Medal:
    Pet:
    Goods:

    Topic hướng dẫn Pascal 11 Empty Re: Topic hướng dẫn Pascal 11

    Bài gửi by handsomevip007 Thu 09 Jun 2011, 21:33

    Bài 2#
    Code:
    {De: Tinh Tong, Hieu, Tich, Thuong cua 2 so nguyen a, b do nguoi dung nhap}
    Program baitap2;
    Uses CRT;
    Var
    a, b:Integer; {Neu de yeu cau la so thuc thi doi thanh Real}
    Tong, Hieu, Tich:Longint; Thuong:Real;
    Begin
       Clrscr;
       Write('Nhap a la ');
       Readln(a);
       Write('Nhap b la ');
       Readln(b);
       Writeln('Tong cua a cong b la ', a+b);
       Writeln('Hieu cua a tru b la ', a-b);
       Writeln('Tich cua a nhan b la ', a*b);
       If b<>0 then writeln('Thuong cua a chia b la ', (a/b):0:2)
       Else writeln('Thuong cua a chia b khong xac dinh do b=0');
       Readln;
    End.


    Được sửa bởi handsomevip007 ngày Sat 11 Jun 2011, 08:38; sửa lần 2.
    paushow_masu
    paushow_masu
    PHÓ TƯ LỆNH
    PHÓ TƯ LỆNH

    Số bài : 915
    A14$ : 793
    Danh tiếng : 350
    Tham gia : 29/12/2010
    BGItem : BGnone


    Medal:

    Pet:



    Goods:

    Topic hướng dẫn Pascal 11 Empty Re: Topic hướng dẫn Pascal 11

    Bài gửi by paushow_masu Sat 11 Jun 2011, 08:26

    sếp!! bài 2# cái fần Begin, dòng: Else writeln: cái đó là sao vậy? sao mình lại dùng chữ Else. Mà câu đó sếp ghi chữ writeln sai rồi! ^^
    handsomevip007
    handsomevip007
    ĐẠI TƯỚNG CAO CẤP-Lv.6
    ĐẠI TƯỚNG CAO CẤP-Lv.6

    Số bài : 4021
    A14$ : 4499
    Danh tiếng : 920
    Tham gia : 01/12/2010


    Medal:
    Pet:
    Goods:

    Topic hướng dẫn Pascal 11 Empty Re: Topic hướng dẫn Pascal 11

    Bài gửi by handsomevip007 Sat 11 Jun 2011, 08:37

    handsomevip007 đã viết:Bài 2#
    Code:

       If b<>0 then writeln('Thuong cua a chia b la ', (a/b):0:2)
       Else writeln('Thuong cua a chia b khong xac dinh do b=0');
    Cái này là câu lệnh điều kiện
    Code:
     If ... then .. else ...
    Dùng để rẽ nhánh đấy
    Nhìn trên câu lệnh ta thấy
    Code:
    If b<>0 then writeln('Thuong cua a chia b la ', (a/b):0:2)
    Tức là nếu b khác 0 thì viết ra là 'Thuong cua a chia b la ' rồi gắng kết quả a chia b lấy 2 chữ số ở phần thập phân.
    Ngược lại dùng câu lệnh Else
    Code:
    Else writeln('Thuong cua a chia b khong xac dinh do b=0');
    Nếu cái điều kiện If không đúng, tức a=0 thì viết ra là 'Thuong cua a chia b khong xac dinh do b=0'
    Chỉ vậy thôi! Topic hướng dẫn Pascal 11 343215

    P/s: Tks for 'phát hiện lỗi' Topic hướng dẫn Pascal 11 72272
    handsomevip007
    handsomevip007
    ĐẠI TƯỚNG CAO CẤP-Lv.6
    ĐẠI TƯỚNG CAO CẤP-Lv.6

    Số bài : 4021
    A14$ : 4499
    Danh tiếng : 920
    Tham gia : 01/12/2010


    Medal:
    Pet:
    Goods:

    Topic hướng dẫn Pascal 11 Empty Re: Topic hướng dẫn Pascal 11

    Bài gửi by handsomevip007 Sat 11 Jun 2011, 09:59

    Bài 3#
    Code:
    {De: Cho do dai 3 canh bat ki.
    Xet xem do co phai la do dai 3 canh cua 1 tam giac hay khong.
    Neu dung thi tinh dien tich tam giac theo he thuc He-rong.}

    Program baitap3;
    Uses CRT;
    Var a, b, c, S, P:real;
    Begin
       Clrscr;
       Writeln('Nhap lan luot do dai 3 canh ');
       Readln(a);
       Readln(b);
       Readln(c);
       If a>(b+c) then writeln('Day khong phai la 3 canh cua 1 tam giac')
       Else
          If b>(a+c) then writeln('Day khong phai la 3 canh cua 1 tam giac')
          Else
             If c>(a+b) then   writeln('Day khong phai la 3 canh cua 1 tam giac')
             Else
                Begin
                P:=(a+b+c)/2;
                S:=SQRT(P*(P-a)*(P-b)*(P-c));
                Writeln('Dien tich tam giac la ', S:0:2, ' (don vi dien tich)');
                End;
       Readln;
    End.
    handsomevip007
    handsomevip007
    ĐẠI TƯỚNG CAO CẤP-Lv.6
    ĐẠI TƯỚNG CAO CẤP-Lv.6

    Số bài : 4021
    A14$ : 4499
    Danh tiếng : 920
    Tham gia : 01/12/2010


    Medal:
    Pet:
    Goods:

    Topic hướng dẫn Pascal 11 Empty Re: Topic hướng dẫn Pascal 11

    Bài gửi by handsomevip007 Sat 11 Jun 2011, 18:58

    Bài 4#
    Code:
    {De: Lap bang Cuu chuong theo yeu cau}
    Program baitap4;
    Uses CRT;
    Var i, n, kq:integer;
    Begin
       Clrscr;
       Writeln('Admin: Ban muon xem ban cuu chuong nao?');
       Write('Mem: Toi muon xem bang cu chuong ');
       Readln(n);
       Writeln('Admin: Bang cuu chuong cua ban day');
       Writeln;
       Writeln('** Bang cuu chuong ', n, '**');
       Writeln;
       For i:=1 to 10 do
          Begin
             kq:=1*n;
             Writeln(n, ' x ', i,' = ', kq);
          End;
       Writeln;
       Writeln('Admin: De nghi ban ve hoc lai bang cuu chuong di nha');
       Writeln('Admin: Gio nay khong thuoc, phai hoi Admin nua :D');
       Readln;
    End.
    handsomevip007
    handsomevip007
    ĐẠI TƯỚNG CAO CẤP-Lv.6
    ĐẠI TƯỚNG CAO CẤP-Lv.6

    Số bài : 4021
    A14$ : 4499
    Danh tiếng : 920
    Tham gia : 01/12/2010


    Medal:
    Pet:
    Goods:

    Topic hướng dẫn Pascal 11 Empty Re: Topic hướng dẫn Pascal 11

    Bài gửi by handsomevip007 Sun 12 Jun 2011, 11:42

    Bài 5#
    Code:
    {De: Giai phuong trinh bac nhat ax+b=0 bang cach dung While}
    Program baitap5;
    Usesr CRT;
    Var a, b, kq:real;
    Begin
       Clrscr;
       Writeln('Admin: Muon gia phuong trinh bac nhat ha? Nhap vao 2 so a va b di');
       Write('Mem: So a la ');
       Readln(a);
       Write('Mem: So b la ');
       Readln(b);
       While a=0 do
          Begin
             Writeln('Admin: Lam kho Admin a! a=0 thi sao goi la phuong trinh bac nhat :-w');
             Writeln('Admin: Nhap lai so a khac 0 coi nao!');
             Write('Mem: Da em xin loi! Em xin nhap lai so a cua em la ');
             Readln(a);
          End;
       kq:=(-b/a);
       writeln('Admin: Ket qua cua ban ne ', kq:0:2);
       Writeln('Admin: Thanks minh cai nhe!');
       Readln;
    End.
    handsomevip007
    handsomevip007
    ĐẠI TƯỚNG CAO CẤP-Lv.6
    ĐẠI TƯỚNG CAO CẤP-Lv.6

    Số bài : 4021
    A14$ : 4499
    Danh tiếng : 920
    Tham gia : 01/12/2010


    Medal:
    Pet:
    Goods:

    Topic hướng dẫn Pascal 11 Empty Re: Topic hướng dẫn Pascal 11

    Bài gửi by handsomevip007 Sun 12 Jun 2011, 11:42

    Bai 6#
    Code:
    {De: Nhap mot nam bat ki va kiem tra xem nam do co phai la nam nhuan hay khong?
    Biet nam nhuan la nam chia het cho 400 hoac chia het cho 4, nhung khong chia het cho 100}
    Program baitap6;
    Uses CRT;
    Var nam:integer;
    Begin
       Clrscr;
       Writeln('Admin: Ban muon biet mot nam co phai la nam nhuan hay khong ah?');
       Writeln('Admin: Toi se giup ban. Hay nhap so nam vao nhe');
       Write('Mem: Nam toi muon kiem tra la nam ');
       Readln(nam);
       If (nam mod 4)<>0 then Writeln('Admin: Nam cua ban khong phai la nam Nhuan')
       Else
          If (nam mod 400)=0 then Writeln('Admin: So nam cua ban dich thi la nam Nhuan day! :D')
          Else
             If (nam mod 100)=0 then writeln('Admin: Nam cua ban khong phai la nam Nhuan')
             Else
                If (nam mod 4)<>0 then writeln('Admin: Nam cua ban khong phai la nam Nhuan')
                Else
                   Writeln('Admin: So nam cua ban dich thi la nam Nhuan day! :D');
       Readln;
    End.         
    handsomevip007
    handsomevip007
    ĐẠI TƯỚNG CAO CẤP-Lv.6
    ĐẠI TƯỚNG CAO CẤP-Lv.6

    Số bài : 4021
    A14$ : 4499
    Danh tiếng : 920
    Tham gia : 01/12/2010


    Medal:
    Pet:
    Goods:

    Topic hướng dẫn Pascal 11 Empty Re: Topic hướng dẫn Pascal 11

    Bài gửi by handsomevip007 Sun 12 Jun 2011, 13:16

    Bài 7#
    Code:

    {De: Tinh tong cac so  theo 1+2+3+...+n}
    Program baitap7;
    Uses CRT;
    Var n, i:integer; tong:longint;
    Begin
       Clrscr;
            Writeln('Admin: Ban hay nhap so cuoi cung trong day so cua ban di ');
            Write('Mem: So cuoi cung trong day so cua toi la ');
       Readln(n);
       For i:=1 to n do tong:=tong+i;
            Write('Admin: Tong cac so trong day so cua ban la ', tong);
       Readln;
    End.
    handsomevip007
    handsomevip007
    ĐẠI TƯỚNG CAO CẤP-Lv.6
    ĐẠI TƯỚNG CAO CẤP-Lv.6

    Số bài : 4021
    A14$ : 4499
    Danh tiếng : 920
    Tham gia : 01/12/2010


    Medal:
    Pet:
    Goods:

    Topic hướng dẫn Pascal 11 Empty Re: Topic hướng dẫn Pascal 11

    Bài gửi by handsomevip007 Tue 14 Jun 2011, 18:26

    Up! Tài liệu Pascal hè. Tải về máy
    handsomevip007
    handsomevip007
    ĐẠI TƯỚNG CAO CẤP-Lv.6
    ĐẠI TƯỚNG CAO CẤP-Lv.6

    Số bài : 4021
    A14$ : 4499
    Danh tiếng : 920
    Tham gia : 01/12/2010


    Medal:
    Pet:
    Goods:

    Topic hướng dẫn Pascal 11 Empty Re: Topic hướng dẫn Pascal 11

    Bài gửi by handsomevip007 Tue 14 Jun 2011, 18:34

    Bài 8#
    Code:
    {De: Ve dau * dang
    ... (n dau * do nguoi dung nhap)
    *****
      ****
        ***
          **
            *}
    Program baitap8;
    Uses CRT;
    Var n, i1, i2, i3:integer;
    Begin
       Clrscr;
       Write('Nhap n la ');
       Readln(n);
       For i1:=1 to n do
          Begin
             For i2:=1 to i1 do Write(' ');
             For i3:=1 to (n+1)-i1 do write('*');
             Writeln;
          End;
       Readln;
    End.


    Được sửa bởi handsomevip007 ngày Tue 14 Jun 2011, 18:36; sửa lần 1.
    handsomevip007
    handsomevip007
    ĐẠI TƯỚNG CAO CẤP-Lv.6
    ĐẠI TƯỚNG CAO CẤP-Lv.6

    Số bài : 4021
    A14$ : 4499
    Danh tiếng : 920
    Tham gia : 01/12/2010


    Medal:
    Pet:
    Goods:

    Topic hướng dẫn Pascal 11 Empty Re: Topic hướng dẫn Pascal 11

    Bài gửi by handsomevip007 Tue 14 Jun 2011, 18:35

    Bài 9#
    Code:
    {De: Ve dau * dang
        *
      ***
     *****
    *******
     *****
      ***
        *
    Nguoi dung nhap do dai 2 duong cheo cua hinh thoi, va lay theo do dai nho nhat}
    Program baitap9;
    Uses CRT;
    Var n, m, i1, i2, i3, i4:integer;
    Begin
       Clrscr;
       Writeln('Nhap lan luot 2 do dai cua hinh thoi');
       Readln(n);
       Readln(m);
       If n>m then n:=m;
            While i1<n do
                    Begin
                       For i1:=1 to n do
                          Begin
                                            For i2:=n downto i1 do write(' ');
                                  For i3:=1 to i1 do write('*');
                                            For i4:=2 to i1 do write('*');
                                  Writeln;
                          End;
                    End;
                    For i1:=1 to n do
                  Begin
                                    For i2:=0 to i1 do write(' ');
                          For i3:=n-1 downto i1 do write('*');
                                    For i4:=n-2 downto i1 do write('*');
                          Writeln;
                  End;
       Readln;
    End.
    handsomevip007
    handsomevip007
    ĐẠI TƯỚNG CAO CẤP-Lv.6
    ĐẠI TƯỚNG CAO CẤP-Lv.6

    Số bài : 4021
    A14$ : 4499
    Danh tiếng : 920
    Tham gia : 01/12/2010


    Medal:
    Pet:
    Goods:

    Topic hướng dẫn Pascal 11 Empty Re: Topic hướng dẫn Pascal 11

    Bài gửi by handsomevip007 Fri 30 Sep 2011, 21:13

    Bài 10# Code Thỉnh Thầy

    Code:
    {Chuong trinh gia lap Thay boi mu}
    Program ThinhThay;
    Uses CRT;
    Var i:byte; hoi:string; A, B:array[1..10] of string;
    Begin
       Clrscr;
       {Bo cau tra loi ngau nhien}
       A[1]:='Thay phan: Con hoi the bo thay cung khong biet!';
       A[2]:='Thay phan: Cho ta tien ta noi cho nghe >:)';
       A[3]:='Thay phan: Con choi xoay ta ah? Hoi gi kho the!';
       A[4]:='Thay phan: Cau nay de qua ta khong tra loi! Hoi cau nao kho kho xiu ay!';
       A[5]:='Thay phan: Ta thay con ngu hon ta moi dung!';   
       A[6]:='Thay phan: De ta goi hoi thay cua ta cai da';   
       

       {Bo cau tra loi dap tra tuong ung}
       B[1]:='Ta thay con ngu hon ta ay chu :-';
       B[2]:='Ta thay con dien hon ta ay chu :-';
       B[3]:='Ta thay con khung hon ta ay chu :-';
       B[4]:='Ta thay con mat hon ta ay chu :-';
       B[5]:='Ta thay con tung hon ta ay chu :-';
       B[6]:='Ta thong minh lam! Cai chi ta cung biet het!';
       B[7]:='Tat nhien ta dep trai hon roi :>';
       B[8]:='Thay thang do coi vay chu no khong bang con! Nhung con lai kem xa ta =))';
       B[9]:='Tuy thoi con! It nhat cung 500 ;p';
       B[10]:='Ngay khong trang, dem khong nang. Ta phan vay co dung khong? :">';

       Writeln('Thay phan: Hom nay con muon hoi cai chi?');
            While hoi<>'thoat' do
          Begin
             Readln(hoi);
             If Copy(hoi,length(hoi),length(hoi))<>'?' then writeln('Thay phan: Con dang hoi thay day ah? Sao thay khong thay dau cham hoi?')
             Else
                Begin
                   If Pos('ngu',hoi)<>0 then writeln(B[1])
                   Else if Pos('dien',hoi)<>0 then writeln(B[2])
                   Else if Pos('khung',hoi)<>0 then writeln(B[3])
                   Else if Pos('mat',hoi)<>0 then writeln(B[4])
                   Else if Pos('tung',hoi)<>0 then writeln(B[5])
                   Else if Pos('thong minh',hoi)<>0 then writeln(B[6])
                   Else if Pos('dep trai',hoi)<>0 then writeln(B[7])
                   Else if Pos('no',hoi)<>0 then writeln(B[8])
                   Else if Pos('bao nhieu',hoi)<>0 then writeln(B[9])
                   Else if (Pos('thoi tiet',hoi)<>0) or (Pos('Thoi tiet',hoi)<>0) then writeln(B[10])


                   Else
                      Begin
                         i:=random(5);
                         Writeln(A[i]);
                      End;
                End;
          End;

       Readln;
    End.

    Sponsored content

    Topic hướng dẫn Pascal 11 Empty Re: Topic hướng dẫn Pascal 11

    Bài gửi by Sponsored content


      Hôm nay: Fri 29 Mar 2024, 12:35