Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Mời tài trợ sinh nhật diễn đàn 8 năm

Tìm HD - Phần mềm tìm và xem phim HD miễn phí

Đăng ký tham gia offline VN-Zoom 8 năm tại HCM

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Tuyển chuyên viên tin tức

Tuyển BQT VN-Zoom
Trang 1/3 1 2 3 cuốicuối
kết quả từ 1 tới 15 trên 40
  1. #1
    ExcKnight's Avatar
    ExcKnight vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Mar 2008
    Bài
    10
    Cảm ơn
    0
    Điểm: 3/1 bài viết
    VR power
    0

    Default giúp mình GIẢI mấy bài PASCAL với^^

    mình mới học pascal mong mấy pro giải quyết hộ.thanks trước
    chú ý câu a,b,c,d,e gộp thành 1 bài nhé KHÔNG tách từng câu riêng ra nhé
    Bài 1
    bạn hãy sử dụng ngôn ngữ lập trình pascal để thực hiện các yêu cầu sau:
    a) Nhập vào từ bàn phím một số nguyên dương n.
    b) Hãy tính và đưa ra màn hình giá trị biểu thức S:=1-2+3-4+...+(-1)^(n-1)n
    c) Với giá trị lớn nhất của n bằng bao nhiêu thì S<a (được nhập vào)

    Bài 2
    Bạn hãy sử dụng ngôn ngữ lập trình Pascal để thực hiện các yêu cầu sau:
    Viết chương trình nhập vào một ma trận cỡ mxn các phần tử nguyên
    a) Đếm xem trong ma trận cỡ mxn các phần tử nguyên.
    b) Tìm và in ra các phần tử âm của hàng h.
    c) Tính tổng các phần tử chia hết cho 2 trong hàng h

    Bài 3
    Nhập từ bàn phím một xâu kí tự bất kì.Tìm trong xâu đó có "me" thay thế bằng "he"

    Bài 4 bạn hãy sử dụng ngôn ngữ lập trình Pascal để thực hiện các yêu cầu sau:
    a) Nhập vào từ bàn phím một dãy gồm n số thực từ bàn phím (1<=n<=20).
    b) Đưa ra màn hình dãy số vừa nhập .
    c) Sắp xếp dãy số đã nhập thành một dãy số tăng dần ,đưa dãy số vừa sắp xếp ra màn hình .
    d) Đưa ra màn hình giá trị nhỏ nhất trong các số dương có trong dãy số đã nhập.
    e) Đếm số phần tử chia hết cho 5 trong dãy đã nhập.

    Bài 5
    Bạn hãy sử dụng ngôn ngữ pascal để thực hiện các yêu cầu sau:
    a) Nhập vào từ bàn phím một số nguyên dương n.
    b) Hãy tính và đưa ra màn hình giá trị biểu thức S:=2+4+6+...+2n,
    c) Với giá trị lớn nhất của n bằng bao nhiêu thì S< 1000
    Thay đổi nội dung bởi ExcKnight; 23-01-2011 lúc 18:33.

  2. #2
    19-6's Avatar
    19-6 vẫn chưa có mặt trong diễn đàn Moderator
    Tham gia
    Sep 2008
    Đến từ
    Abyss
    Bài
    1.904
    Cảm ơn
    858
    Điểm
    3.405/1.516 bài viết
    VR power
    0

    Default

    Bài 1

    PHP Code:
    uses crt;
    var 
    insainteger;
    BEGIN
       clrscr
    ;
       
    write('Nhap n: '); readln(n);
       
    s:=0;
       for 
    i:=1 to n do
        if 
    i mod 2=0 then
          s
    :=s-i
        
    else
          
    s:=s+i;
       
    writeln('Ket qua: ',s);
       
    n:=0;
       
    s:=0;
       
    i:=1;
       
    write('Nhap a: '); readln(a);
       
    repeat
        
    if i mod 2=0 then
          s
    :=s-i
        
    else
          
    s:=s+i;
        
    i:=i+1;
        
    n:=n+1;
       
    until(s>=a);
       
    writeln('Gia tri lon nhat cua n: ',n-1);
       
    readln ;
    END
    Bài 2

    PHP Code:
    uses crt;
    const 
    phay=',';
    type ArrInt = array[1..501..50of integer;
    var 
    ijnmtonghinteger;
        
    aArrInt;
    begin
     clrscr
    ;
     
    write('Nhap so dong N va so cot M:  ');
     
    readln(n,m);
     for  
    i:= 1  to  n  do
      for  
    j:= 1  to  m  do
      
    Begin
        write 
    ' A['i,  phay j'] = ' ) ;
        
    readln a[ij] ) ;
      
    End;
     
    tong:=0;
     
    writeln('Cac phan tu nguyen trong ma tran:  ',m*n);
     
    write('Nhap hang can tim:  ');
     
    readln(h);
     
    writeln('Cac phan tu am trong hang ',h,':  ');
     for 
    j:=1 to m do
     
    begin
      
    if a[h,j]<0 then
       write
    (a[h,j],'  ');
      if 
    a[h,jmod 2=0 then
       tong
    :=tong+a[h,j];
     
    end;
     
    writeln;
     
    write('Tong cac phan tu chia het cho 2 trong hang ',h,': ',tong);
     
    readln;
    end
    Bài 3

    PHP Code:
    uses crt;
    var 
    sstring;
        
    ininteger;
    BEGIN
       clrscr
    ;
       
    write('Nhap mot xau ki tu : '); Readln(s);
       
    n:=length(s);
       for 
    i:=1 to n do
        if 
    s[i]+s[i+1]='me' then
        begin
         s
    [i]:='h';
         
    s[i+1]:='e';
        
    end;
       
    writeln('Xau con lai: ',s);
       
    readln ;
    END
    Thay đổi nội dung bởi 19-6; 23-01-2011 lúc 19:59.


  3. Có 6 thành viên cảm ơn 19-6 cho bài viết này:
    auauau97 (08-09-2011), htn9937 (21-02-2012), tuandt5 (23-01-2011), Tung_Huynh (23-01-2011), vanchien127 (21-02-2012), đạo_tặc_bóng_đêm (24-02-2012)

  4. #3
    ExcKnight's Avatar
    ExcKnight vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Mar 2008
    Bài
    10
    Cảm ơn
    0
    Điểm: 3/1 bài viết
    VR power
    0

    Default

    giải giúp mình nốt bài 4+5 với thanks nhìu^^

  5. #4
    19-6's Avatar
    19-6 vẫn chưa có mặt trong diễn đàn Moderator
    Tham gia
    Sep 2008
    Đến từ
    Abyss
    Bài
    1.904
    Cảm ơn
    858
    Điểm
    3.405/1.516 bài viết
    VR power
    0

    Default

    Bài 4

    PHP Code:
    uses crt;
    const 
    Nmax 100;
    type ArrInt = array[1..Nmaxof integer;
    var 
    nijtmin,dinteger;
        
    aArrInt;
    begin
      clrscr
    ;
      
    write('Nhap so phan tu cua day so, N= ');
      
    readln(n);
      
    d:=0;
      for 
    i:=1 to n do
      
    begin
      write
    ('Phan tu thu ',i,' = ');
      
    readln(A[i]);
      
    end;
      
    writeln('Day so vua nhap: ');
      for 
    i:=1 to n do
       
    write(a[i]: 4);
      
    writeln;
      for 
    i:=1 to n do
        for 
    j:=i+1 to n do
          if 
    a[i]> a[jthen
          begin
            t
    := a[i];
            
    a[i]:= a[j];
            
    a[j]:= t;
          
    end;
      
    writeln('Day so duoc sap xep tang dan: ');
      for 
    i:=1 to n do
      
    write(a[i]: 4);
      
    writeln;
      
    min:=a[1];
      for 
    i:=1 to n do
      
    begin
        
    if min>a[ithen
          min
    :=a[i];
        if 
    a[imod 5=0 then
          d
    :=d+1;
      
    end;
      
    writeln('Min la: ',min);
      
    write('So phan tu chia het cho 5: ',d);
      
    readln;
    end
    Bài 5

    PHP Code:
    uses crt;
    var 
    insinteger;
    BEGIN
       clrscr
    ;
       
    write('Nhap n: '); readln(n);
       
    s:=0;
       for 
    i:=1 to n do
          
    s:=s+2*i;
       
    writeln('Ket qua: ',s);
       
    n:=0;
       
    s:=0;
       
    i:=1;
       
    repeat
        s
    :=s+2*i;
        
    i:=i+1;
        
    n:=n+1;
       
    until(s>=1000);
       
    writeln('Gia tri lon nhat cua n: ',n-1);
       
    readln ;
    END


  6. Có 4 thành viên cảm ơn 19-6 cho bài viết này:
    htn9937 (21-02-2012), tuandt5 (23-01-2011), Tung_Huynh (23-01-2011), đạo_tặc_bóng_đêm (24-02-2012)

  7. #5
    lehongbienkt4's Avatar
    lehongbienkt4 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Aug 2011
    Bài
    10
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default giải giúp mình bài này với nha.Cảm ơn nhiều nha

    nhập từ bàn phím n số thực ,đếm và tính tổng các số dương của chúng
    bạn nào giải được giúp mình thì gửi hộ mình vào gmail của mình nha gmail của mình la: nha
    cảm các bạn nhiều nha
    Thay đổi nội dung bởi lehongbienkt4; 08-09-2011 lúc 11:02.

  8. #6
    thecuong064's Avatar
    thecuong064 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Jun 2011
    Đến từ
    Hacker's Home
    Bài
    936
    Cảm ơn
    133
    Điểm
    415/259 bài viết
    VR power
    0

    Default

    Trích lehongbienkt4 View Post
    nhập từ bàn phím n số thực ,đếm và tính tổng các số dương của chúng
    Dùng mảng hả bạn

  9. #7
    lehongbienkt4's Avatar
    lehongbienkt4 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Aug 2011
    Bài
    10
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    uh dung roi ban ,dung mang

    ----------------------------------
    chú ý viết tiếng Việt có dấu.
    Thay đổi nội dung bởi lehongbienkt4; 09-09-2011 lúc 10:05.

  10. #8
    thecuong064's Avatar
    thecuong064 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Jun 2011
    Đến từ
    Hacker's Home
    Bài
    936
    Cảm ơn
    133
    Điểm
    415/259 bài viết
    VR power
    0

    Default

    Trích lehongbienkt4 View Post
    uh dung roi ban ,dung mang

    ----------------------------------
    chú ý viết tiếng Việt có dấu.
    Của bạn đây:
    PHP Code:
    PROGRAM so_thuc;
    VAR 
    mang:ARRAY[1..100OF REAL;
        
    n,i,dem:INTEGER;
        
    s:REAL;
    BEGIN
        write
    ('So so thuc can nhap: ');
        
    readln(n);
        
    dem:=0;
        
    s:=0;
        FOR 
    i:= 1 TO n DO
        
    BEGIN
        write
    ('Nhap phan tu thu [',i,']: ');
        
    readln(mang[i]);
        
    END;
        FOR 
    i:=1 TO n DO
        
    BEGIN
        
    IF mang[i]>0 THEN 
        BEGIN
        s
    :=s+mang[i];
        
    dem:=dem+1;
        
    END;            
        
    END;
        
    writeln('So phan tu lon hon 0 la ',dem);
        
    writeln('Tong cua cac phan tu lon hon 0 la ',s:0:2);
    readln;
    END
    Thay đổi nội dung bởi thecuong064; 08-09-2011 lúc 16:56.

  11. Có 1 thành viên cảm ơn thecuong064 cho bài viết này:
    đạo_tặc_bóng_đêm (24-02-2012)

  12. #9
    auauau97's Avatar
    auauau97 vẫn chưa có mặt trong diễn đàn Rìu Chiến Vàng
    Tham gia
    Jun 2010
    Đến từ
    Hà Nội
    Bài
    6.667
    Cảm ơn
    11.927
    Điểm
    5.255/3.016 bài viết
    VR power
    0

    Default

    Trích lehongbienkt4 View Post
    nhập từ bàn phím n số thực ,đếm và tính tổng các số dương của chúng
    bạn nào giải được giúp mình thì gửi hộ mình vào gmail của mình nha gmail của mình la: nha
    cảm các bạn nhiều nha
    PHP Code:
    Uses crt;
    Type
      mang
    =array [1..100of real
    Var
      
    a:mang;
      
    n,i,dem,tong:integer;
    BEGIN
      Clrscr
    ;
      
    Write('Nhap so phan tu cua day so:');
      
    Readln(n);
      For 
    i:=1 to n do
        
    Begin
          Write
    ('Nhap a[',i,']:');
          
    Readln(a[i]);
        
    End;
      For 
    i:=1 to n do
        If 
    a[i]>0 then
          Begin
            dem
    :=dem+1;
            
    tong:=tong+1;
          
    End;
      
    Writeln(dem);
      
    Write(tong);
      
    Readln;
    END
    Nothing is true, everything is permitted

  13. Có 2 thành viên cảm ơn auauau97 cho bài viết này:
    htn9937 (21-02-2012), đạo_tặc_bóng_đêm (24-02-2012)

  14. #10
    lehongbienkt4's Avatar
    lehongbienkt4 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Aug 2011
    Bài
    10
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default giúp mình giải mấy bài pascal với nha

    bài 1: cho một đoạn chương trình:
    a:=23; b:= -1
    while (a>0)and (b>0) do a:=a-b;
    writeln(a);
    a:viết kết quả thực hiện đoạn chương trình trên
    b:trong chương trình chứa các lệnh đó,cần khai báo như thế nào?
    c:nếu thay lệnh b:=3 bởi b:= -1 thì kết quả la gì,so sanh với kết quả trước?
    bài 2:
    Tìm số nguyên dương lớn nhất thỏa mãn điều kiện:
    1+1/3+1/5+...+ 1/(2n-1)<6.101999
    bài 3
    Cho ma trận vuông A cấp n, với phần tử nguyên đoạn thuộc đoạn [1,100]
    a:tìm phần tử nhỏ nhất và lơn nhất
    b:tính tổng các phần tử lẻ
    bài 4
    nhập danh sách một lớp sinh viên với họ tên ,điểm toán, tin,ngoại ngữ của từng người .Tính điểm trung bình và in ra kết quả
    bài 5:
    sinh ngẫu nhiên n số nguyên dương ,sau đó in các số chia hết cho 3 ở đầu ,tiếp đến
    các số chia 3 dư 1, rồi đến chia 3 dư 2
    bài 6:
    Sinh số ngẫu nhiên dãy n số nguyên , sau đo sắp xếp theo thứ tự tăng và in ra kết quả
    bài 7;
    tính và in bảng lương của một xí nghiệp có tối đa 100 nhân viên .Lương(LG) của mỗi nhân viên phụ thuộc vào lương cơ bản(LCB) ,số ngày công(NC) ,phụ cấp(PC) ,hệ số trượt giá(TG) và tinh theo công thức :
    LG=PC+(LCB*NC*TG)/26

    Ngày mai mình phải thi môn tin học trên pascal rồi đây là đề cương thầy giáo cho bài tập về để ôn thi.nhưng mình không biết làm kiểu gì cả nên mới mạo muội đưa một số bài tập lên để
    bạn nào có lòng thì giúp đỡ mình với .Mình học kém nhất môn này mai thi không biết có qua được không .Vi thế mới đua lên đẻ nhờ cậy các abnj bạn nào biết làm thì giải hộ mình với nha.Mình vô cùng cảm ơn ,cảm ơn nhiều nha
    Thay đổi nội dung bởi lehongbienkt4; 08-09-2011 lúc 17:46.

  15. #11
    thecuong064's Avatar
    thecuong064 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Jun 2011
    Đến từ
    Hacker's Home
    Bài
    936
    Cảm ơn
    133
    Điểm
    415/259 bài viết
    VR power
    0

    Default

    Trích auauau97 View Post
    PHP Code:
    Uses crt;
    Type
      mang
    =array [1..100of real
    Var
      
    a:mang;
      
    n,i,dem,tong:integer;
    BEGIN
      Clrscr
    ;
      
    Write('Nhap so phan tu cua day so:');
      
    Readln(n);
      For 
    i:=1 to n do
        
    Begin
          Write
    ('Nhap a[',i,']:');
          
    Readln(a[i]);
        
    End;
      For 
    i:=1 to n do
        If 
    a[i]>0 then
          Begin
            dem
    :=dem+1;
            
    tong:=tong+1;
          
    End;
      
    Writeln(dem);
      
    Write(tong);
      
    Readln;
    END
    Mình làm gồi mà bạn

    ---------- Bài thêm lúc 16:49 ---------- Bài trước là lúc 16:35 ----------

    bài 3
    Cho ma trận vuông A cấp n, với phần tử nguyên đoạn thuộc đoạn [1,100]
    a:tìm phần tử nhỏ nhất và lơn nhất
    b:tính tổng các phần tử lẻ
    PHP Code:
    PROGRAM bai_3;
    VAR 
    mang:ARRAY[1..100OF INTEGER;
        
    n,i:INTEGER;
        
    s,max,min:REAL;
    BEGIN        
        s
    :=0;
        
    write('Nhap n: ');
        
    readln(n);
       
        FOR 
    i:= 1 TO n DO
        
    BEGIN
        writeln
    ('Nhap phan tu mang thu [',i,']: ');
        
    readln(mang[i]); 
        
    END;
        
    min:=mang[1];
        
    max:=mang[1];
        FOR 
    i:= 1 TO n DO
        
    BEGIN
        
    IF mang[i]>max THEN max:=mang[i]; 
        
    END;
        
    writeln('So lon nhat la ',max:0:1);
        FOR 
    i:= 1 TO n DO   
        
    BEGIN
        
    IF mang[i]<min THEN min:=mang[i];
        IF 
    mang[iMOD 2 <> 0 THEN s:=s+mang[i];
        
    END;         
        
    writeln('So nho nhat la ',min:0:1);
        
    writeln('Tong cac so le ',s:0:1);
    readln;
    END
    Cài này dùng mảng. Không biết ma trận vuông là gì nên post mảng vậy
    Thay đổi nội dung bởi thecuong064; 08-09-2011 lúc 16:57.

  16. Có 3 thành viên cảm ơn thecuong064 cho bài viết này:
    19-6 (08-09-2011), htn9937 (21-02-2012), đạo_tặc_bóng_đêm (24-02-2012)

  17. #12
    lehongbienkt4's Avatar
    lehongbienkt4 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Aug 2011
    Bài
    10
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    cảm ơn bạn nhiều nha
    còn mấy bài trên làm được thì giúp mình nốt nha

  18. #13
    thecuong064's Avatar
    thecuong064 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Jun 2011
    Đến từ
    Hacker's Home
    Bài
    936
    Cảm ơn
    133
    Điểm
    415/259 bài viết
    VR power
    0

    Default

    Trích lehongbienkt4 View Post
    cảm ơn bạn nhiều nha
    còn mấy bài trên làm được thì giúp mình nốt nha
    Uhm`, thế ma trận vuông là gì vậy bạn, mình chỉ dùng mảng

    ---------- Bài thêm lúc 17:07 ---------- Bài trước là lúc 17:05 ----------

    bài 4
    nhập danh sách một lớp sinh viên với họ tên ,điểm toán, tin,ngoại ngữ của từng người .Tính điểm trung bình và in ra kết quả
    Cái này dùng mảng luôn hả bạn

  19. #14
    lehongbienkt4's Avatar
    lehongbienkt4 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Aug 2011
    Bài
    10
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    bài 3,bai 5,bai 6 giải bằng kiểu mạng ban a
    bài 7 và bài 4 la bằng dữ liệu kiểu bản ghi ban a
    bài 1 va bài giẩi bằng các câu lệnh lăp ban a
    bạn cố giúp mình với nha
    cảm ơn bạn nhiêu nhiều

  20. #15
    auauau97's Avatar
    auauau97 vẫn chưa có mặt trong diễn đàn Rìu Chiến Vàng
    Tham gia
    Jun 2010
    Đến từ
    Hà Nội
    Bài
    6.667
    Cảm ơn
    11.927
    Điểm
    5.255/3.016 bài viết
    VR power
    0

    Default

    Trích lehongbienkt4 View Post
    bài 3,bai 5,bai 6 giải bằng kiểu mạng ban a
    bài 7 và bài 4 la bằng dữ liệu kiểu bản ghi ban a
    bài 1 va bài giẩi bằng các câu lệnh lăp ban a
    bạn cố giúp mình với nha
    cảm ơn bạn nhiêu nhiều
    bài 4:
    bạn tự khai báo nhá
    Code:
    uses crt;
    begin
      clrscr;
      write('Nhap so hoc sinh:');
      readln(n);
      for i:=1 to n do
        with a[i] do
         begin
           writeln('Nhap ve hoc sinh thu ',i,':');
           write('Nhap ten hoc sinh thu ',i,':');
           readln(name);
           write('Nhap diem tin hoc sinh thu ',i,':');
           readln(diemtin);
           write('Nhap diem toan hoc sinh thu ',i,':');
           readln(diemtoan);
           write('Nhap diemanh hoc sinh thu ',i,':');
           readln(diemanh);
           tb:=(diemtoan+diemanh+diemtin)/3;
           writeln;
         end;
      writeln('Danh sach hoc sinh:');
      for i:=1 to n do 
        with a[i] do
          begin
            writeln('Ten hoc sinh:',name);
            writeln('diem toan:',diemtoan);
            writeln('diem anh:',diemanh);
            writeln('diem tin:',diemtin);
            writeln('diem trung binh:',tb);
          end;
      readln;
    end.
    a là mảng gồm 100 phần tử của record nhân sự
    biến i chạy, n là số học sinh
    diemtoan,diemtin,tb,diemanh bạn khai báo kiểu real nhá
    bạn tự khai báo cho nó hiểu bài hơn nhé
    chúc bạn học tốt

    ---------- Bài thêm lúc 18:16 ---------- Bài trước là lúc 18:12 ----------

    Trích lehongbienkt4 View Post
    bài 3,bai 5,bai 6 giải bằng kiểu mạng ban a
    bài 7 và bài 4 la bằng dữ liệu kiểu bản ghi ban a
    bài 1 va bài giẩi bằng các câu lệnh lăp ban a
    bạn cố giúp mình với nha
    cảm ơn bạn nhiêu nhiều
    bài 3:
    PHP Code:
    Program Ma_tran;
    Uses crt;
    Var
      
    a:array[1..100,1..100of longint;
      
    i,j,max,min,tong,n:longint;
    Begin
      Clrscr
    ;
      
    Randomize;
      
    Write('Nhap hang cua ma tran:');
      
    Readln(n);
      For 
    i:=1 to n do
        For 
    j:=1 to n do
          
    a[i,j]:=random(100);
      For 
    i:=1 to n do
        
    Begin
          
    For j:=1 to n do
            
    Write(a[i,j],'  ');
          
    Writeln;
          
    Writeln;
        
    End;
      
    Max:=a[1,1];
      
    Min:=a[1,1];
      
    dem:=1;
      For 
    i:=1 to n do
        For 
    j:=1 to n do
          
    Begin
            
    If a[imod 2=1 then dem:=dem+1;
            If 
    max<a[i,jthen max:=a[i,j];
            If 
    min>a[i,jthen min:=a[i,j];
          
    End;
      
    Writeln('Phan tu max:',max);
      
    Writeln('Phan tu min:',min);
      
    Write('Tong cac phan tu le:',tong);
      
    Readln;
    End
    p/s:code = php trông đẹp nhỉ ?
    Nothing is true, everything is permitted

  21. Có 3 thành viên cảm ơn auauau97 cho bài viết này:
    19-6 (08-09-2011), htn9937 (21-02-2012), đạo_tặc_bóng_đêm (24-02-2012)

 

 
Trang 1/3 1 2 3 cuốicuối

Quyền sử dụng

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể tự sửa bài viết của mình
  •