Follow us on...
Follow us on Facebook

VN-Zoom.com chung tay vì Cộng đồng

Kaka - ứng dụng hát Karaoke trên mobile

Tuyển Mod Mobile diễn dàn Vn-Zoom.com 2014

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

Vui thể thao quà ý nghĩa

Toàn cảnh Vn-Zoom tham gia họp báo Asus Zenfone
Trang 1/3 1 2 3 cuốicuối
kết quả từ 1 tới 15 trên 31
  1. #1
    heo_0309's Avatar
    heo_0309 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Mar 2012
    Bài
    3
    Cảm ơn
    0
    Điểm: 1/1 bài viết
    VR power
    0

    Default Đề thi tin học trẻ không chuyên khối THCS

    GIúp e làm mấy bài pascal này với




    ĐỀ THI TIN HỌC KHỐI THCS
    (Đề có 2 trang)
    Phần 2 : Làm bài (10 điểm)
    Yêu cầu trước khi làm bài :
    • Em hãy tạo một thư mục gồm SBD_Trường (viết tắt) ví dụ như 02_NTT.
    • Trong đó có 1 tệp thongtin.txt lưu lại thông tin về học sinh.
    • Các bài làm được phải được lưu vào trong thư mục đó.
    • Nếu học sinh nào không lưu bài đúng nơi qui định thì coi như không làm bài thi.
    Đề bài :
    Câu 1 : (4 điểm)
    Nhập vào một số tự nhiên. Lập trình trả lời các câu hỏi sau:
    - n có bao nhiêu chữ số?
    - Tổng các chữ số của n bằng bao nhiêu?
    - Tìm chữ số đầu tiên của n.
    - Giả sử trong cách biểu hiện thập phân của n có dạng sau: akak-1 … a2a1a0.
    Hãy tính tổng S = ak – ak-1 + ak-2 – … a0.
    - Nhập vào số m(m ≤ số chữ số của n). Hãy tính tổng m chữ số cuối cùng của n.
    Câu 2 :¬ (4 điểm)
    ¬ Cho một bàn cờ vuông 8 x 8 trên đó cho trước một số quân cờ. Ví dụ hình vẽ sau đây là một bàn cờ như vậy:
    * * *
    * * * *
    * * * *
    * *
    *
    * * *
    * * *
    * * *









    Dữ liệu ghi trên tệp văn bản BANCO.TXT bao gồm 8 dòng, mỗi dòng là một sâu nhị phân độ dài 8. Vị trí các quân cờ ứng với số 1, các ô trống ứng với số 0. Ví dụ tệp BANCO.TXT ứng với bàn cờ trên:
    01010100
    10011001
    10100011
    00010100
    00100000
    01010001
    10011000
    01000110
    Hãy viết chương trình PASCAL tính số quân cờ liên tục lớn nhất nằm trên một đườc thẳng trên bàn cờ. Đường thẳng ở đây có thể là đường thẳng đứng, đường nằm ngang hoặc đường chéo. Kết quả thể hiện trên màn hình.
    Với ví dụ trên chương trình phải in trên màn hình kết quả là 4.

    Câu 3 : (2 điểm)
    Nhập vào 1 số tự nhiên N với (0 < N ≤ 65535), phân tích số vừa nhập thành các thừa số nguyên tố, nếu số vừa nhập là số nguyên tố thì chỉ thông báo ra màn hình đây là số nguyên tố.
    Ví dụ:
    - Nếu số vừa nhập là 300, thì in ra màn hình 300 = 2. 2. 3. 5. 5
    - Nếu số vừa nhập là 307, thì in ra màn hình “307 là số nguyên tố”

  2. #2
    anhkhoa46's Avatar
    anhkhoa46 vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Dec 2011
    Đến từ
    Hà Nội
    Bài
    245
    Cảm ơn
    149
    Điểm
    84/42 bài viết
    VR power
    0

    Default

    Đề ở huyện hay tỉnh nào vậy bạn

    ---------- Bài thêm lúc 23:24 ---------- Bài trước là lúc 23:12 ----------

    Câu 1:
    VAR A:ARRAY[1..100] OF INTEGER;
    n,i,k,gt,h,m,c,b:INTEGER;
    S:STRING;
    BEGIN
    write('Nhap n: ');
    Readln(n);
    str(n,S);
    writeln('So n co ',length(S),' chu so!');
    FOR i:=1 TO length(s) DO
    BEGIN
    val(S[i],k,h);
    gt:=gt+k;
    END;
    writeln('Tong cac chu so cua n la: ',gt);
    writeln('Chu so dau tien cua n la: ',S[1]);
    write('Nhap m: '); readln(m);
    val(S[length(S)],c,h);
    b:=c+m;
    writeln('Tong cua m va chu so cuoi cung cua n la: ',b);
    Readln
    END.
    Ý cuối hai ko hiểu lắm

  3. Có 1 thành viên cảm ơn anhkhoa46 cho bài viết này:
    tuandat1998 (18-05-2012)

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

    Default

    Của Hà Nội mà.
    Giúp mình câu 3 nữa đi....
    tks

  5. Có 1 thành viên cảm ơn heo_0309 cho bài viết này:
    tuandat1998 (18-05-2012)

  6. #4
    phong2210881's Avatar
    phong2210881 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Dec 2011
    Bài
    2
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    bài 3 zễ lắm bạn ạ.
    + đầu tiên bạn kiểm n có phãi là số nguyển tốt hay không .
    + xong tìm các ước số của nó cho vào 1 mảng .
    + xong tiến hàng lấy n mod các ước của nó
    + mỗi lần mod thì ghi ra nhớ thêm dấu " nhân " .
    +Xong.

  7. #5
    nhxga015's Avatar
    nhxga015 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Feb 2012
    Bài
    2
    Cảm ơn
    0
    Điểm: 1/1 bài viết
    VR power
    0

    Default

    Ai giúp mình bài này nha!!
    Viết CT nhập vào một mảng gồm n phần tử. Tính tổng bình phương của các số âm trong dãy số đó.
    Mau lên nha mình đang cần gấp!!
    Thay đổi nội dung bởi nhxga015; 17-05-2012 lúc 14:19.

  8. Có 1 thành viên cảm ơn nhxga015 cho bài viết này:
    tuandat1998 (18-05-2012)

  9. #6
    HGMinh95's Avatar
    HGMinh95 vẫn chưa có mặt trong diễn đàn Rìu Bạc
    Tham gia
    May 2010
    Bài
    434
    Cảm ơn
    89
    Điểm
    234/170 bài viết
    VR power
    0

    Default

    Bài 3 chỉ cần cho i từ 2 -> n - 1, với mỗi i, chia n cho i n:= n div i; trong khi n mod i còn bằng 0 đồng thời in ra màn hình write(i,'.');

  10. Có 1 thành viên cảm ơn HGMinh95 cho bài viết này:
    tuandat1998 (18-05-2012)

  11. #7
    mikelhpdatke's Avatar
    mikelhpdatke vẫn chưa có mặt trong diễn đàn [V-Z] News Writer & Reviews Team
    Tham gia
    Jul 2010
    Đến từ
    Bắc Giang
    Bài
    2.330
    Cảm ơn
    1.679
    Điểm
    1.497/823 bài viết
    VR power
    0

    Default

    Ai làm bài 2 cho mình xem code đi

  12. Có 1 thành viên cảm ơn mikelhpdatke cho bài viết này:
    tuandat1998 (18-05-2012)

  13. #8
    thienthuatthuat's Avatar
    thienthuatthuat vẫn chưa có mặt trong diễn đàn Rìu Bạc
    Tham gia
    Jan 2011
    Đến từ
    Bến Tre
    Bài
    331
    Cảm ơn
    569
    Điểm
    186/69 bài viết
    VR power
    0

    Default

    Câu 1 giống đề thi huyện mình,code nè: (mình không làm được cái ak gì gì đó)

    Uses Crt;
    Var d,t,csdau,m,n,tm,lm,ncu:integer;
    Begin
    ClrScr;
    Writeln('Nhap n: ');Readln(n);
    ncu:=n;
    While n<>0 do
    Begin
    d:=d+1;t:=t+n mod 10;
    n:=n div 10;
    if (n<10) and (n>0) then csdau:=n;
    End;
    Writeln('So chu so la: ',d);
    Writeln('Tong cac chu so: ',t);
    Writeln('Chu so dau: ',csdau);
    Writeln('Nhap m (m<=so chu so cua n): ');
    Readln(m);
    If m>d then Begin Writeln('Khong thoa dieu kien');Readln;End
    Else
    Begin
    While lm<>m do
    Begin
    lm:=lm+1;
    tm:=tm+ncu mod 10;
    ncu:=ncu div 10;
    End;
    Writeln('Tong m chu so cuoi cung cua n la: ',tm);
    Readln;
    End;
    End.


    ---------- Bài thêm lúc 21:16 ---------- Bài trước là lúc 20:54 ----------

    Trích nhxga015 View Post
    Ai giúp mình bài này nha!!
    Viết CT nhập vào một mảng gồm n phần tử. Tính tổng bình phương của các số âm trong dãy số đó.
    Mau lên nha mình đang cần gấp!!
    Cái này dễ mà:

    Uses Crt;
    var a:array[1..100] of integer; {ban ko noi ro mang nay kieu gi}
    i,n,s,t:integer;
    Begin
    ClrScr;
    t:=0;s:=0;
    Writeln('Nhap so phan tu cho mang: ');
    Readln(n);
    For i:=1 to n do
    Begin
    Write('Nhap phan tu a[',i,']: ');
    Readln(a[i]);
    If a[i]<0 then
    Begin
    s:=a[i]*a[i];
    t:=t+s;
    End;
    End;
    Write('Tong binh phuong cac so am trong mang la: ',t);
    Readln;
    End.
    HÃY SỐNG THẬT LÒNG Hidden Content

  14. Có 2 thành viên cảm ơn thienthuatthuat cho bài viết này:
    mikelhpdatke (17-05-2012), tuandat1998 (18-05-2012)

  15. #9
    Rockman XZA's Avatar
    Rockman XZA vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Jun 2012
    Bài
    2
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    Xin chào tất cả mọi người! Em là một thành viên mới trong VN.Zoom. Em mới chỉ làm quen với lập trình đơn giản (chương trình SGK tin học lớp 8) thôi! Mọi người giúp em nhé!

  16. #10
    Rockman XZA's Avatar
    Rockman XZA vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Jun 2012
    Bài
    2
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    Mọi người có thể cho em biết "VZD" là gì không? Thế nào là "Gà con", "Rìu sắt", "điểm",...? Tại sao em chỉ mới là "Gà con" vậy? Có cách gì để thành "Rìu sắt" không?

  17. #11
    lequyetchien2's Avatar
    lequyetchien2 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Jan 2012
    Bài
    155
    Cảm ơn
    63
    Điểm
    36/22 bài viết
    VR power
    0

    Default

    Trích Rockman XZA View Post
    Mọi người có thể cho em biết "VZD" là gì không? Thế nào là "Gà con", "Rìu sắt", "điểm",...? Tại sao em chỉ mới là "Gà con" vậy? Có cách gì để thành "Rìu sắt" không?
    lên rìu sắt phải có 120 bài viết.búa gổ 10 bài thi fai

  18. #12
    ngocmanhitc's Avatar
    ngocmanhitc vẫn chưa có mặt trong diễn đàn Rìu Bạc
    Tham gia
    May 2012
    Đến từ
    Hà Nội
    Bài
    309
    Cảm ơn
    61
    Điểm
    48/37 bài viết
    VR power
    0

    Default

    [QUOTE=anhkhoa46;11088139]Đề ở huyện hay tỉnh nào vậy bạn

    ---------- Bài thêm lúc 23:24 ---------- Bài trước là lúc 23:12 ----------

    Câu 1:
    chả hiểu gì hết, cậu đã thử chưa

  19. #13
    ho_lat's Avatar
    ho_lat vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Aug 2011
    Đến từ
    Quê Phú Yên - Ở Khánh Hoà
    Bài
    225
    Cảm ơn
    17
    Điểm
    80/67 bài viết
    VR power
    0

    Default

    Code bai 2 day các bạn test thu. gio minh phai làm rồi, có gì sai báo lại ha.
    Mình nhập ma trận thôi các bạn viết nhập từ file nha.
    program duchai;
    uses wincrt;
    var a:array[1..100,1..100]of integer;
    i,j,k,tam,s,n:integer;

    begin
    write('nhap n: ');readln(n);
    for i:= 1 to n do
    for j:= 1 to n do
    readln(a[i,j]);
    for i:= 1 to n do
    begin
    for j:= 1 to n do

    write(a[i,j]);
    writeln;
    end;
    s:=0;
    {tong 1 dong}
    for i:= 1 to n do
    begin
    tam:=0;
    for j:= 1 to n do
    begin
    if a[i,j]=0 then
    begin
    if tam>s then s:=tam;
    tam:=0;
    end
    else tam:=tam+1;
    end;
    if tam>s then
    s:=tam;
    end;
    {tong 1 cot}
    for i:= 1 to n do
    begin
    tam:=0;
    for j:= 1 to n do
    begin
    if a[j,i]=0 then
    begin
    if tam>s then s:=tam;
    tam:=0;
    end
    else tam:=tam+1;
    end;
    if tam>s then
    s:=tam;
    end;
    {tong tren duong cheo}
    for i:= 2 to n do
    begin
    tam:=0;
    k:=i;
    j:=1;
    while k<=n do
    begin
    if a[k,j]=0 then
    begin
    if tam>s then s:=tam;
    tam:=0;
    end
    else tam:=tam+1;
    k:=k+1;
    j:=j+1;
    end;
    if tam>s then
    s:=tam;
    end;
    {-----------}
    for i:= 1 to n-1 do
    begin
    tam:=0;
    k:=i;
    j:=2;
    while k<=n-1 do
    begin
    if a[k,j]=0 then
    begin
    if tam>s then s:=tam;
    tam:=0;
    end
    else tam:=tam+1;
    k:=k+1;
    j:=j+1;
    end;
    if tam>s then
    s:=tam;
    end;
    {duong cheo chinh}
    for i:= 1 to n do
    begin
    tam:=0;
    if a[i,i]=0 then
    begin
    if tam>s then s:=tam;
    tam:=0;
    end
    else tam:=tam+1;
    end;
    if tam>s then
    s:=tam;
    write(s);
    end.

  20. Có 2 thành viên cảm ơn ho_lat cho bài viết này:
    147phuc23 (25-02-2013), phamducthang1998 (05-11-2012)

  21. #14
    chubeban1's Avatar
    chubeban1 vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Jul 2010
    Bài
    33
    Cảm ơn
    0
    Điểm
    33/13 bài viết
    VR power
    0

    Default

    cái câu 2! là đề cũ! đề này ra lâu lắm rùi!

  22. #15
    hodf's Avatar
    hodf vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Jun 2010
    Bài
    54
    Cảm ơn
    23
    Điểm
    14/14 bài viết
    VR power
    0

    Default

    đề cũ vẫn cho thành bài thi được mà. Đây là bài 27/2000 của quyển "100 đề Toán-Tin"

 

 
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
  •