Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh 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 !

Diễn đàn tin học Văn Lang - Vạn Ninh

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ínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

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

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
thuynganhb



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

Bài gửiTiêu đề: ĐỀ THI TIN HỌC TRẺ NĂM HỌC 2012-2013   9/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
Xem lý lịch thành viên
 
ĐỀ THI TIN HỌC TRẺ NĂM HỌC 2012-2013
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Tử Vi Canh Dần 2010
» Giọt lệ sầu - Vũ Linh, Ngọc Huyền
» Câu đối
» Thơ HHC, PPS by Hy Văn
» CAFE TINH NHAN !!!

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Các bộ đề thi-
Chuyển đến