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
    • ITVNN HOSTING - Thiết kế website, Cung cấp Domain, Hosting, VPS Việt Nam Anh Hùng - Thông tin truyền thông
kết quả từ 1 tới 10 trên 10
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
    280
    Level: 39 [?]
    Experience: 1,488,830
    Next Level: 1,757,916
    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. Thành viên sau đây nói lời Cảm ơn tới nhock_quậy cho bài viết hữu ích này:

    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
    30
    Giới tính
    Bài gởi
    66
    Level: 31 [?]
    Experience: 348,354
    Next Level: 369,628
    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
    280
    Level: 39 [?]
    Experience: 1,488,830
    Next Level: 1,757,916
    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
    30
    Giới tính
    Bài gởi
    66
    Level: 31 [?]
    Experience: 348,354
    Next Level: 369,628
    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. Thành viên sau đây nói lời Cảm ơn tới joasny cho bài viết hữu ích này:

    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
    30
    Giới tính
    Bài gởi
    66
    Level: 31 [?]
    Experience: 348,354
    Next Level: 369,628
    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. Thành viên sau đây nói lời Cảm ơn tới joasny cho bài viết hữu ích này:

    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
    30
    Giới tính
    Bài gởi
    66
    Level: 31 [?]
    Experience: 348,354
    Next Level: 369,628
    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. Thành viên sau đây nói lời Cảm ơn tới joasny cho bài viết hữu ích này:

    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
    280
    Level: 39 [?]
    Experience: 1,488,830
    Next Level: 1,757,916
    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
    280
    Level: 39 [?]
    Experience: 1,488,830
    Next Level: 1,757,916
    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
    32
    Giới tính
    Bài gởi
    121
    Level: 34 [?]
    Experience: 643,160
    Next Level: 677,567
    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

  14. #10
    Thu Quỳnh's Avatar

    Trạng thái
    Offline
    Tham gia ngày
    Mar 2016
    Thành viên thứ
    99967
    Giới tính
    Bài gởi
    1
    Level: 13 [?]
    Experience: 2,922
    Next Level: 4,033
    Cảm ơn 0
    Cảm ơn 0 lần / 0 Bài viết

    Default

    làm cho e bài 3 zs a nhock_quậy


 

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Trả lời: 2
    Bài mới gởi: 04-08-2023, 11:48 AM
  2. Trả lời: 0
    Bài mới gởi: 05-09-2015, 09:49 AM
  3. Chia sẽ Key KIS
    By HTT.itvn in forum Requests
    Trả lời: 1
    Bài mới gởi: 02-05-2010, 08:40 PM
  4. 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
  •