Đề thi HSG môn Tin học 9 năm 2018 - 2019 Trường THCS Gia Vân

• Câu 1: Mã câu hỏi: 108293

  Viết chương trình nhập vào 3 số nguyên a, b, c. Kiểm tra xem 3 số đó có thỏa mãn:

  - Là 3 cạnh của 1 tam giác thường

  - Là 3 cạnh của 1 tam giác cân

  - Là 3 cạnh của 1 tam giác đều

  - Không là 3 cạnh của 1 tam giác

  Xem đáp án
  - Ý tưởng thuật toán.

  Xét các trường hợp của a, b và c:

  - Nếu a>0 và b>0 và c>0 và (a+b>c) và (b+c>a) và (a+b>c) thì kết luận phương trình có vô số nghiệm

  - Nếu a=0 và b <>0 thì kết luận phương trình vô nghiệm

  - Nếu a<> 0 thì kết luận phương trình có nghiệm x=-b/a

  - Thuật toán.

              - Bước 1: Nhập a và nhập b

              - Bước 2: Kiểm tra các trường hợp của a và b

                + Nếu a=0 và b=0 thì kết luận phương trình có vô số nghiệm

                + Nếu a=0 và b <>0 thì kết luận phương trình vô nghiệm

                          + Nếu a<> 0 thì kết luận phương trình có nghiệm x=-b/a

              - Bước 3: Đưa ra kết luận rồi kết thúc.

  - Chương trình nguồn.

  Program Xet_Tamgiac;

  Var a,b,c:integer;

  Begin

       write('nhap a,b,c:');

       readln(a,b,c);

       if (a>0) and (b>0) and (c>0) and (a+b>c) and (b+c>a) and (a+b>c) then

          if (a=b) and (b=c) then writeln('la tam giac deu')

          else

              if (a=b) or (b=c) or (a=c) then writeln('la tam giac can')

              else writeln('la tam giac thuong')

       else writeln('khong la 3 canh cua tam giac');

       readln;

  End.

ADMICRO/

• Câu 2: Mã câu hỏi: 108294

  Viết chương trình tính tổng S=-1+2-3+…….+(-1)n.n, với n là số nguyên dương được nhập từ bàn phím.

  Xem đáp án
  - Ý tưởng thuật toán.

  Tạo một biến boolean bl được gán giá trị là true

  Dựa vào biến bl để kiểm tra xem số a vừa nhập

              + Nếu a<=1 thì bl=false

              + Ngược lại nếu a<4 thì bl=true

  + Ngược lại cho một biến i chạy từ 2 đến căn bậc 2 của a. Trong khi chạy thì kiểm tra xem a có chia hết cho i hay không? Nếu a chia hết cho i thì bl=false

              + Kiểm tra bl.

                          - Nếu bl = true thì kết luận số a là số nguyên tố, ngược lại thì kết luận số a không phải là số nguyên tố

  - Thuật toán.

              + Bước 1: Nhập số nguyên a

              + Bước 2: bl←True

              + Bước 3:

                          - Buớc 3.1: Nếu a<=1 thì bl=false

  - Bước 3.2: Ngược lại nếu a<4 thì bl=true

  - Bước 3.3: Ngược lại i ←2

  - Bước 3.4: Nếu a chia i mà dư =0 thì bl←False

  - Bước 3.5: i←i+1

  - Bước 3.6: Nếu i> Trunc(sqrt(a)) thì tới bước 4, ngược lại thì quay lại bước 3.4

              + Bước 4: Kiểm tra bl

                          - Nếu bl=true thì kết luận a là số nguyên tố, ngược lại thì kết luận a không phải là số nguyên tố.

              + Bước 5: Đưa ra kết luận và kết thúc.

  - Chương trình nguồn.

  Program TINHTONG;

  Var s,i,n:integer;

  Begin

       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('tong s=',s);

       readln;

  End.

• Câu 3: Mã câu hỏi: 108296

  Viết chương trình nhập vào một dãy các số nguyên và nhập giá trị x, rồi đếm xem trong dãy có mặt bao nhiêu số x ?

  Xem đáp án
  - Ý tưởng thuật toán.

              + Gán một biến dem=0

              + Nhập số lượng phần tử của mảng

              + Cho một biến chạy từ đầu mảng đến cuối mảng. Khi chạy đến đâu thì nhập giá trị đến đó, kiểm tra giá trị vừa nhập vào có phải là số nguyên tố hay không. Nếu giá trị vừa nhập là số nguyên tố thì tăng biến “dem” lên một đơn vị.

              + In mảng vừa nhập ra màn hình

              + In biến “dem” ra màn hình

  - Thuật toán.

              + Bước 1: Nhập số lượng phần tử n

              + Bước 2: dem ←0;

              + Bước 3:

                          - Bước 3.1: i←1

                          - Bước 3.2: Kiểm tra i với n. Nếu i<= n thì

                                      + Nhập giá trị cho phẩn tử a[i]

                                      + Kiểm tra a[i]:

                                                  Bước 3.2.1: bl←True

                                                  Bước 3.2.2:

                                                        - Buớc 3.2.2.1: Nếu a[i]<=1 thì bl=false

   - Bước 3.2.2.2: Ngược lại nếu a[i]<4 thì bl=true

   - Bước 3.2.2.3: Ngược lại j ←2

  - Bước 3.2.2.4: Nếu a[i] chia j mà dư =0 thì bl←False

  - Bước 3.2.2.5: j←j+1

  - Bước 3.2.2.6: Nếu j > Trunc(sqrt(a[i])) thì tới bước 4, ngược lại thì quay lại bước 3.2.2.4 Kiểm tra bl

                                                              - Nếu bl=true thì dem← dem+1

              + Bước 4: In ra mảng vừa nhập, in đếm và kết thúc

  - Chương trình nguồn.

  Program NguyenTo;
  Uses

  Crt;

  var a:array [1..1000] of integer;

        i,j,n,dem:integer;

        bl:boolean;

  begin

  dem:=0;

  write('nhap n'); readln(n);

  for i:=1 to n do

          begin

              write('a[',i,']='); readln(a[i]);

          end;

          for i:=1 to n do

              begin

                          if a[i]<=1 then bl:=false

                          else if a[i]<4 then bl:=true

                          else for j:=2 to trunc(sqrt(a[i])) do

                          if a[i] mod j = 0 then bl:=false;

                          if bl=true then dem:=dem+1;

               end;

  for i:=1 to n do write(a[i]);

  writeln;

  write('mang da cho co so phan tu nguyen to la',dem);

  readln

  end.

Đề thi nổi bật tuần