Bạn ghé thăm diễn đàn lần đầu? hãy đăng ký ngay bây giờ để tham gia.
  • Đăng nhập:

Chào mừng bạn đến với ITVNN FORUM - Diễn đàn công nghệ thông tin.

Nếu đây là lần đầu tiên bạn tham gia diễn đàn, xin mời bạn xem phần Hỏi/Ðáp để biết cách dùng diễn đàn. Để có thể tham gia thảo luận bạn phải đăng ký làm thành viên, click vào đây để đăng ký.


  • Partner Area
    • Viettel IDC - thuê chỗ đặt máy chủ, server, Hosting, VPS, Tên Miền  EXTEST 2014 - Phần mềm Dự toán, Dự thầu giá xây dựng
kết quả từ 1 tới 9 trên 9
Tăng kích thước phông chữ Giảm kích thước phông chữ
  1. #1
    nhock_quậy's Avatar

    Trạng thái
    Offline
    Họ tên
    O_o
    Tham gia ngày
    Sep 2009
    Thành viên thứ
    27
    Đến từ
    nhà tớ ^^
    Giới tính
    Bài gởi
    284
    Level: 33 [?]
    Experience: 532,024
    Next Level: 555,345
    Cảm ơn 60
    Cảm ơn 37 lần / 24 Bài viết

    Default Bài tâp về mảng 1 chiều ( lớp 11)  

    BT1. Lập chương trình: nhập từ bàn phím dãy số N số nguyên với N thuộc [0;100]. Tính và in ra màn hình:
    a,Tổng các số dương có trong dãy
    b,Tổng các số chẵn có trong dãy và số các số chẵn trong dãy
    c,Tổng các số chia hết cho 3 và số các số chia hết cho 3.


    BT2. Lập chương trình: nhập N số thực từ bàn phím và 1 số nguyên dương k với k thuộc [1;N]. chèn 1 số từ bàn phím vào vị trí thứ k của dãy mà không làm đổi trật tự của dãy.


    BT3. Nhập N số thực từ bàn phím với N thuộc [1;100] và số nguyên dương k thuộc[2;N]. xóa phần tử thứ k trong dãy mà không làm ảnh hưởng tới trật tự các phần tử của dãy.

  2. The Following User Says Thank You to nhock_quậy For This Useful Post:

    Gon91 (09-02-2010)

  3. #2
    joasny's Avatar

    Trạng thái
    Offline
    Họ tên
    lǝƃuɐpıʞ
    Tham gia ngày
    Oct 2009
    Thành viên thứ
    1903
    Tuổi
    21
    Giới tính
    Bài gởi
    66
    Level: 26 [?]
    Experience: 121,055
    Next Level: 125,609
    Cảm ơn 1
    Cảm ơn 28 lần / 15 Bài viết

    Default

    hỏi bài hay là đưa ra để ng` ta làm? Hỏi bài thì pm kid.angel1412 tui chỉ cho! Mấy bài này đơn giản mà!

  4. #3
    nhock_quậy's Avatar

    Trạng thái
    Offline
    Họ tên
    O_o
    Tham gia ngày
    Sep 2009
    Thành viên thứ
    27
    Đến từ
    nhà tớ ^^
    Giới tính
    Bài gởi
    284
    Level: 33 [?]
    Experience: 532,024
    Next Level: 555,345
    Cảm ơn 60
    Cảm ơn 37 lần / 24 Bài viết

    Default

    Trích Nguyên văn bởi joasny View Post
    hỏi bài hay là đưa ra để ng` ta làm? Hỏi bài thì pm kid.angel1412 tui chỉ cho! Mấy bài này đơn giản mà!
    he he
    đồng chí biết thì post lên luôn cho mọi người học hỏi. đơn giản với người thấy đơn giản nhưng phức tạp với người thấy phức tạp mà

  5. #4
    joasny's Avatar

    Trạng thái
    Offline
    Họ tên
    lǝƃuɐpıʞ
    Tham gia ngày
    Oct 2009
    Thành viên thứ
    1903
    Tuổi
    21
    Giới tính
    Bài gởi
    66
    Level: 26 [?]
    Experience: 121,055
    Next Level: 125,609
    Cảm ơn 1
    Cảm ơn 28 lần / 15 Bài viết

    Default

    BT 1 câu a
    Code: 
    program tinhtongsoduong;
    var a: array [0..100] of integer;
    S,i,n : integer;
    begin
    write('Nhap so luong phan tu:');
    read(n);
    S:=0;
    for i:=1 to n do
    begin
    writeln('Nhap so thu ',i,':');
    readln(a[i]);
    end;
    for i:=1 to n do
    if a[i]>0 then S:=S+a[i];
    writeln('Tong cac so duong la:',S);
    readln
    end.

  6. The Following User Says Thank You to joasny For This Useful Post:

    nhock_quậy (09-02-2010)

  7. #5
    joasny's Avatar

    Trạng thái
    Offline
    Họ tên
    lǝƃuɐpıʞ
    Tham gia ngày
    Oct 2009
    Thành viên thứ
    1903
    Tuổi
    21
    Giới tính
    Bài gởi
    66
    Level: 26 [?]
    Experience: 121,055
    Next Level: 125,609
    Cảm ơn 1
    Cảm ơn 28 lần / 15 Bài viết

    Default

    BT 1 câu b
    Code: 
    program tinhtongsochan;
    var a:array [0..100] of integer;                                              
        S,n,i,dem: integer;                                                       
    begin                                                                         
         writeln('Nhap so luong phan tu:');                                       
         readln(n);                                                               
         S:=0;                                                                    
         dem:=0;                                                                  
         for i:=1 to n do                                                         
         begin                                                                    
              writeln('Nhap so thu ',i,':');                                      
              readln(a[i]);                                                       
         end;                                                                     
         for i:=1 to n do                                                         
         if ( a[i] mod 2 = 0) then                                                
         begin                                                                    
          S:=S+a[i];                                                              
          dem:= dem + 1;                                                          
         end;                                                                     
         writeln('Tong cac so chan la:',S);                                       
         writeln('So cac so chan la:',dem);                                       
         readln
    end.

  8. The Following User Says Thank You to joasny For This Useful Post:

    nhock_quậy (09-02-2010)

  9. #6
    joasny's Avatar

    Trạng thái
    Offline
    Họ tên
    lǝƃuɐpıʞ
    Tham gia ngày
    Oct 2009
    Thành viên thứ
    1903
    Tuổi
    21
    Giới tính
    Bài gởi
    66
    Level: 26 [?]
    Experience: 121,055
    Next Level: 125,609
    Cảm ơn 1
    Cảm ơn 28 lần / 15 Bài viết

    Default

    BT 1 câu c
    Code: 
    program tinhtongsochia3;
    var a:array [0..100] of integer;                                              
        S,n,i,dem: integer;                                                       
    begin                                                                         
         writeln('Nhap so luong phan tu:');                                       
         readln(n);                                                               
         S:=0;                                                                    
         dem:=0;                                                                  
         for i:=1 to n do                                                         
         begin                                                                    
              writeln('Nhap so thu ',i,':');                                      
              readln(a[i]);                                                       
         end;                                                                     
         for i:=1 to n do                                                         
         if ( a[i] mod 3 = 0) then                                                
         begin                                                                    
          S:=S+a[i];                                                              
          dem:= dem + 1;                                                          
         end;                                                                     
         writeln('Tong cac so chia het cho 3 la:',S);                                       
         writeln('So cac so chia het cho 3 la:',dem);                                       
         readln
    end.
    mấy bài kia siêng thì làm cho đơn giản wá tự nhiên bỏ thời ngồi làm nãn ghê!

  10. The Following User Says Thank You to joasny For This Useful Post:

    nhock_quậy (09-02-2010)

  11. #7
    nhock_quậy's Avatar

    Trạng thái
    Offline
    Họ tên
    O_o
    Tham gia ngày
    Sep 2009
    Thành viên thứ
    27
    Đến từ
    nhà tớ ^^
    Giới tính
    Bài gởi
    284
    Level: 33 [?]
    Experience: 532,024
    Next Level: 555,345
    Cảm ơn 60
    Cảm ơn 37 lần / 24 Bài viết

    Default

    đồng chí này rất tích cực !
    canh thiu

  12. #8
    nhock_quậy's Avatar

    Trạng thái
    Offline
    Họ tên
    O_o
    Tham gia ngày
    Sep 2009
    Thành viên thứ
    27
    Đến từ
    nhà tớ ^^
    Giới tính
    Bài gởi
    284
    Level: 33 [?]
    Experience: 532,024
    Next Level: 555,345
    Cảm ơn 60
    Cảm ơn 37 lần / 24 Bài viết

    Default

    Trích Nguyên văn bởi nhock_quậy View Post
    BT2. Lập chương trình: nhập N số thực từ bàn phím và 1 số nguyên dương k với k thuộc [1;N]. chèn 1 số từ bàn phím vào vị trí thứ k của dãy mà không làm đổi trật tự của dãy.
    program chen_so;
    uses crt;
    var a: array[1..100] of real;
    i,k,n :byte;
    begin
    clrscr;
    write(‘nhap so phan tu cua mang’);
    readln(n);
    for i:=1 to n do
    begin
    write(‘a[‘,i,’]=’);
    readln(a[i]);
    end;
    write(‘chen phan tu thu k =’);
    readln(k);
    for i:=n+1 downto k do
    a[i+1]:=a[i];
    write(‘nhap gia tri cho phan tu thu k’);
    readln(a[k]);
    for i:=1 to n+1 do
    write(a[i]:8:2);
    readln;
    end.


    bài 3 tương tự nha các đồng chí, đồng chí nào cần cả bài 3 thì để lại cm

  13. #9
    Gon91's Avatar

    Trạng thái
    Offline
    Họ tên
    Võ Thành Nam
    Tham gia ngày
    Sep 2009
    Thành viên thứ
    157
    Đến từ
    Sơn Tịnh Quảng Ngãi
    Tuổi
    22
    Giới tính
    Bài gởi
    121
    Level: 29 [?]
    Experience: 226,445
    Next Level: 242,754
    Cảm ơn 137
    Cảm ơn 16 lần / 14 Bài viết

    Default

    Hì những bài này khá cơ bản..Nếu là học ở trường ko thì ổn rùi...Nếu bạn nào mà..hướng đến thi cấp tỉnh môn Tin Học thì...tham khảo http://vnoi.info


 

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. chia cột bên phải
    By lanhlungtienlen in forum Hỏi đáp & Thảo luận
    Trả lời: 0
    Bài mới gởi: 30-07-2012, 09:18 AM
  2. Xin mod chia sub 4 rum vbb 4.1.4
    By ooohau_proooo in forum Hỏi đáp & Thảo luận
    Trả lời: 3
    Bài mới gởi: 09-07-2011, 08:45 AM
  3. Mod trình chiếu ảnh
    By nguyenlethanhthao in forum Hỏi đáp & Thảo luận
    Trả lời: 2
    Bài mới gởi: 08-04-2011, 10:08 PM
  4. Trả lời: 0
    Bài mới gởi: 10-03-2010, 09:29 PM
  5. Trả lời: 8
    Bài mới gởi: 28-11-2009, 04:46 PM

Tags for this Thread

Bookmarks

Quuyền Hạn Của Bạn

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

Website hữu ích: tai zalo cho điện thoại | tai camera360 chụp ảnh đẹp | CA DO DAFABET | tai ch play apk | Game My Talking Tom cho điện thoại | game mario
Mobile News | Wapsite miễn phí Tai tubemate về máy | Đọc báo Tin tức Online | Công ty tổ chức sự kiện Gia Lai | W88 http://w88no.com/ | 188BET cacuoc-online.com
tai opera mini miễn phí | Website Tai Camera360 ứng dụng chụp ảnh Free | Nhắn tin miễn phí cùng tai zalo cho dtdd | Game bài thuần việt: Tai iBet88 cho điện thoại
Miễn phí tai facebook bản mới nhất cho di động | Chuyên trang tin công nghệ | Ban may phat dien chinh hang | tai facebook cho mobile | Link tai camera360 mới nhất
tubemate apk | tải zalo về điện thoại