Tin tức thư viện

Chức năng Dừng xem quảng cáo trên violet.vn

12087057 Kính chào các thầy, cô! Hiện tại, kinh phí duy trì hệ thống dựa chủ yếu vào việc đặt quảng cáo trên hệ thống. Tuy nhiên, đôi khi có gây một số trở ngại đối với thầy, cô khi truy cập. Vì vậy, để thuận tiện trong việc sử dụng thư viện hệ thống đã cung cấp chức năng...
Xem tiếp

Hỗ trợ kĩ thuật

  • (024) 62 930 536
  • 091 912 4899
  • hotro@violet.vn

Liên hệ quảng cáo

  • (024) 66 745 632
  • 096 181 2005
  • contact@bachkim.vn

Đề&Đáp án thi HSG Tin 9 (2008)

Wait
  • Begin_button
  • Prev_button
  • Play_button
  • Stop_button
  • Next_button
  • End_button
  • 0 / 0
  • Loading_status
Nhấn vào đây để tải về
Báo tài liệu có sai sót
Nhắn tin cho tác giả
(Tài liệu chưa được thẩm định)
Nguồn: Sưu tầm
Người gửi: Bùi Đình Đông - Đăng Dương
Ngày gửi: 19h:33' 28-04-2008
Dung lượng: 20.5 KB
Số lượt tải: 537
Số lượt thích: 0 người
ĐỀ THI HỌC SINH GIỎI HUYỆN NĂM HỌC 2007 – 2008
MÔN THI: TIN HỌC - LỚP 9
( Thời gian làm bài: 90 phút, không kể thời gian giao đề)

Chú ý: Học sinh lưu bài làm của mình theo đường dẫn sau D:HSGSBD
Trong đó: + HSG: Là thư mục mà thí sinh phải tạo trên ổ đĩa D của máy tính
+ SBD: Là số báo danh của thí sinh

Câu 1: (4đ) Viết chương trình nhập vào một số nguyên.
In ra màn hình các ước của số đó.
Số đã cho có bao nhiêu ước.
Ví dụ: Nhap vao so nguyen: 28
Cac uoc cua 28 là: 1 2 4 7 14 28
So 28 co 6 uoc
Câu 2: (8đ) Viết chương trình tính chu vi và diện tích tam giác với độ dài 3 cạnh nhập từ bàn phím
Câu 3: (4đ) Viết chương trình tính tổng S sau:

Câu 4: (4đ) Gọi abcd là một số có 4 chữ số. Hãy lập chương trình tìm tất cả các số có 4 chữ số thỏa mãn biểu thức: abcd=(ab + cd)2
Ví dụ: số 2025=(20 + 25)2.

-------------------------------------------------------------------
No_avatar
Bác bảo " Đề&Đáp án thi HSG Tin 9 (2008)" mà có thấy đáp án đâu?
No_avatar

Thế không tự giải được àh? Gà thế nhỉ????

No_avatar

Tui gà hay không thì tự tui biết nha! Nhưng nói một đằng làm một nẻo thì thà đừng nói đi. Ghi là "Đề thi..." thôi đừng ghi chữ "&đáp án" vào nữa hok người ta gọi là "nói đờ ... iu" đấy!

Nói thêm: Ai mà không tự "giải" được hả bác CVH???

Avatar

Ngọc tải về mở chưa mà kết luận hay vậy ? Bài giảng chỉ xem trước một file đề thoai, còn file đáp án ở chung luôn. ( làm mất một điểm để test hix huhuhu )

Đáp án copy từ trong đó ra nè :

ĐÁP ÁN CHẤM ĐIỂM THI HỌC SINH GIỎI NĂM 2007 - 2008

MÔN: TIN HỌC - LỚP 9

 Câu 1: (4 điểm)  

Program           Cau1;

Uses                 CRT;

Var                  a,i,dem: integer;           

Begin

            Writeln(‘ nhap vao mot so nguyen ‘);

            Readln(a);       

            dem:=0

            Write(‘cac uoc cua so ‘,a,’ la:’);                       

            For i:=1 to a do 

                        If ( a mod i = 0 ) then   

                                    Begin

                                                Write(i,’ ‘);                                                       dem:=dem + 1;

                                    End;

            Write(‘ so ‘,a,’ co ‘, dem,’ uoc ‘);        

Readln;

End. 

Câu 2: (8 điểm)

Program           Chuvi_DientichTG

Var     

            a,b,c,p,s: real;

Begin

            Writeln(‘hay nhap do dai 3 canh tam giac’);

            Writeln(‘ a= ‘); readln(a);

            Writeln(‘ b= ‘); readln(b);

            Writeln(‘ c= ‘); readln(c);

            p:=(a + b + c)/2;

            If (p – a)*(p – b)*(p – c)<=0 then 

                        Writeln(‘ a,b,c khong phai la 3 canh cua 1 tam giac’)

                        Else

                                    Begin

                                                s:=Sqrt(p*(p – a)*(p – b)*(p – c));

                                                Writeln(‘ Dien tich tam giac S:= ‘,s:10:4);

                                                Writeln(‘ Chu vi tam giac C:= ‘,2*p:10:4);

                                    End;

Readln;

End.

    Câu 3: (4 điểm)

Program           cau3;

Var      n,i: word;

            S: real;

Begin

            Writeln(‘ nhap n :’); Readln(n);

            S:=0;

            For  i:=1 to n do

                        S : = S + 1/sqr(i);

            Writeln(‘ S = ‘, S:0:2);

Readln;

End.

 

Câu 4:  (4 điểm)

Program           Cau4

Var      haisodau, haisocuoi, i : integer;

Begin

            Writeln( ‘ cac so thoa man dieu kien gom co’);

            For i:=1000 to 9999 do

                        Begin

                                    haisodau:=i Div 100;{lay 2 so dau tien ab}

                                    haisocuoi:=i mod 100;{lay 2 so cuoi cd}

                                    If i=SQR(haisodau + haisocuoi) then write(i:5);

                        End;

            Readln;

End. 

 

 
Gửi ý kiến

↓ CHÚ Ý: Bài giảng này được nén lại dưới dạng ZIP và có thể chứa nhiều file. Hệ thống chỉ hiển thị 1 file trong số đó, đề nghị các thầy cô KIỂM TRA KỸ TRƯỚC KHI NHẬN XÉT  ↓