Nơi trao đổi thông tin Văn Lang
Chào mừng bạn đến với nơi trao đổi thông tin của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !
Nơi trao đổi thông tin Văn Lang
Chào mừng bạn đến với nơi trao đổi thông tin của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !
Nơi trao đổi thông tin Văn Lang
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Nơi trao đổi thông tin Văn Lang

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhTìm kiếmLatest imagesĐăng kýĐăng Nhập

 

 ĐỀ THI TIN HỌC TRẺ NĂM HỌC 2012-2013

Go down 
Tác giảThông điệp
thuynganhb




Posts : 10
Danh tiếng : 1
Join date : 09/01/2017

ĐỀ THI TIN HỌC TRẺ NĂM HỌC 2012-2013 Empty
Bài gửiTiêu đề: ĐỀ THI TIN HỌC TRẺ NĂM HỌC 2012-2013   ĐỀ THI TIN HỌC TRẺ NĂM HỌC 2012-2013 Icon_minitime9/2/2017, 15:23

ĐỀ THI TIN HỌC TRẺ NĂM HỌC 2012-2013
BẢNG B: KHỐI THCS
ĐỀ THI: THỰC HÀNH.
THỜI GIAN: 120 PHÚT


CÂU 1: cho dãy số A gồm n phần tử bất kỳ nhập từ bàn phím, viết chương trình tính tổng các số chia hết cho 3 và 5.
CÂU 2: Viết chương trình tìm n nhỏ nhất để tổng của các số từ 1 đến n lớn hơn 1000.

CÂU 3: Cho mảng A một chiều gồm 10 phần tử nhập từ bàn phím. Viết chương trình tìm số lần xuất hiện của phần tử x trong mảng.
CÂU 4: Viết chương trình nhập vào một mảng số nguyên, tìm phần tử nhỏ nhất rồi hoán vị nó với phần tử thứ nhất.

 



ĐÁP ÁN ĐỀ THI TIN HỌC TRẺ NĂM HỌC 2012-2013
BẢNG B: KHỐI THCS
ĐỀ THI: THỰC HÀNH.
THỜI GIAN: 120 PHÚT


CÂU 1: cho dãy số A gồm n phần tử bất kỳ nhập từ bàn phím, viết chương trình tính tổng các số chia hết cho 3 và 5.
Program chiahet3va5;
  Uses crt;
  Var i, n, : integer;
   Tong, ai:real;
  Begin
        Write(‘nhap so phan tu cua mang n=’);
         Readln(n);
         I:=0; Tong:=0;
         For i:= 1 to n do
              Begin
                     Write(‘nhap phan tu thu ‘,i:2,’ ’);
                      Readln(ai);
                     If (ai mod 3 =0) and (ai mod 5 = 0) then tong:=tong+ai;
                End.
            Write(‘tong cac so chia het cho 3 va 5 la:’,tong);
         Readln
    End.
Câu 2: Viết chương trình tìm n nhỏ nhất để tổng của các số từ 1 đến n lớn hơn 1000.
 Program timn;
    Uses crt;
    Var tong, i:integer;
Begin
Clrscr;
      Tong:=0; i:=0;
      While tong<1000 do
          Begin
                i:=i+1;
               Tong:=tong+i;
          End;
     Writeln(‘so n nho nhat de tong lon hon 1000 la’,i:4);
    Write(‘gia tri cua tong la’,tong:4);
 Readln
End.

Câu 3: Cho mảng A một chiều gồm 10 phần tử nhập từ bàn phím. Viết chương trình tìm số lần xuất hiện của phần tử x trong mảng.
Program demx;
Uses crt;
      Const n=10;
      Var a:array[1..10] of real;
                       x:real;
              Dem, i, spt:integer;
     Begin
      Clrscr;
          Write(‘nhap so phan tu cua mang’);
           Readln(spt);
               For i:=1 to spt do
                     Begin
                          Write(‘nhap phan tu thu ‘,i,’ ’);
                           readln(a[i]);
                     End;
              Write(‘nhap vao phan tu x can dem:’);
              Readln(x);
              For i:= 1 to spt do
                  If a[i]=x then inc(dem);
                         If dem=0 then write(‘khong co phan tu nao bang x!’) else
                               Write(co ‘,dem,’ phan tu bang x!’);
            Readln;
        End.
Câu 4: Viết chương trình nhập vào một mảng số nguyên, tìm phần tử nhỏ nhất rồi hoán vị nó với phần tử thứ nhất.
Program hoanvi;
Uses crt;
Var a:array[1…50] of integer;
              n, i, vitri, min:integer;
 Begin
   Clrscr;
     Write(‘nhap so phan tu cua mang’);
     Readln(n)
              For i:=1 to n do
                   Begin
                         Write(‘nhap phan tu thu ‘,i,’ ’);
                         Readln(a[i]);
                   End;
          Writeln(‘cac phan tu cua mang la:’);
                    For i:=1 to n do write(a[i]); writeln;
                   Min:=a[1];
          For i:=2 to n do
               begin
                     If min>a[i] then
                          begin
                                min:=a[i];
                                vitri:=i;
                            end;
                   end;
                        a[vitri]:=a[1];
                        a[1]:=min;
              writeln(‘mang sau khi doi cho la:’);
                      for i:=1 to n do
                            write(a[i]); writeln;
           readln
 end.
Nếu yêu thích tin học, để vào các lớp chuyên về tin học hay các ngành tin học để phát triển nghề nghiệp của mình bạn cần tập trung ôn luyện các môn tự nhiên như Toán, ôn thi đại học môn Lý, ôn thi đại học môn Hóa... và đừng bỏ quên ôn thi đại học môn anh, bởi đối với ngành tin học không thể thiếu tiếng Anh.
Về Đầu Trang Go down
 
ĐỀ THI TIN HỌC TRẺ NĂM HỌC 2012-2013
Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Nơi trao đổi thông tin Văn Lang  :: Các bộ đề thi-
Chuyển đến