Đáp án đề thi tin học trẻ huyện Dĩ An 2009 - THCS

4 1.6K 69
Đáp án đề thi tin học trẻ huyện Dĩ An 2009 - THCS

Đang tải... (xem toàn văn)

Thông tin tài liệu

Hội Thi Tin Học Trẻ Huyện An 2009 Đáp Án HỆ: Trung Học Cơ Sở Thời gian: 120 phút Bài 1 : Viết chương trình a) Nhập vào số nguyên N và 2 dãy số nguyên: (1 đ) A 1 , A 2 , A 3 , …, A N B 1 , B 2 , B 3 , …, B N b) Cộng từng phần tử tương ứng của 2 dãy trên vào dãy: (1 đ) KQ 1 , KQ 2 , KQ 3 , …,KQ n c) Xuất giá trị của dãy KQ ra màn hình theo thứ tự giảm dần. (1.5 đ) Ví dụ: Dãy A: 3 5 8 2 6 Dãy B: 1 2 9 5 3 Xuất ra màn hình dãy KQ: 17 9 7 7 4 Program Bai1; var a,b,kq: array[1 100] of integer; n,i,j,tmp: integer; begin write('Nhap n: '); readln(n); writeln('Nhap gia tri cho mang a'); for i:=1 to n do begin write('a[',i,']= '); readln(a[i]); end; writeln('Nhap gia tri cho mang b'); for i:=1 to n do begin write('b[',i,']= '); readln(b[i]); 1/4 KQ: 4 7 17 7 9 Hội Thi Tin Học Trẻ Huyện An 2009 end; for i:=1 to n do kq[i]:=a[i]+b[i]; for i:=1 to n-1 do for j:=i+1 to n do if kq[i]<kq[j] then begin tmp:=kq[i]; kq[i]:=kq[j]; kq[j]:=tmp; end; for i:=1 to n do write(kq[i]:3); readln; end. Bài 2 : Viết chương trình a) Nhập vào số nguyên N > 0, nếu N < 0 người dùng nhập lại. (1.5 đ) b) Nhập giá trị cho dãy số nguyên Z 1 , Z 2 , Z 3 , …,Z N (0.5 đ) c) Xuất ra màn hình các phần tử không chia hết cho 3 của dãy Z (1.5 đ) Ví Dụ: N = 3 Z: 5 8 3  Các phần tử không chia hết cho 3: 5 8 Program Bai2; var z: array[1 100] of integer; n,i: integer; begin repeat write('Nhap n > 0: '); readln(n); until (n>0); writeln('Nhap gia tri cho day so nguyen:'); for i:=1 to n do 2/4 Hội Thi Tin Học Trẻ Huyện An 2009 begin write('z[',i,']= '); readln(z[i]); end; writeln('Cac phan tu khong chia he cho 3'); for i:=1 to n do if (z[i] mod 3 <> 0) then write(z[i]:5); readln; end. Bài 3 : Viết chương trình nhập vào chuỗi họ tên thí sinh và xuất ra màn hình chuỗi họ tên chạy trên màn hình theo chiều ngang cho đến khi ấn một phím bất kỳ thì dừng (nhập xuất chuỗi: 1 đ) (chạy chữ: 1 đ) ( ấn phím bất kỳ dừng: 1 đ) Ví dụ: Ho va Ten: Tran Bang Tam  Tran Bang Tam Program Bai3; uses crt; var str: string; i: integer; dung:boolean; begin textbackground(1); clrscr; write('Nhap Ho va Ten: '); readln(str); textcolor(14); dung:=false; while true do for i:=1 to 80 do 3/4 Hội Thi Tin Học Trẻ Huyện An 2009 begin gotoxy(i,10); write(str); delay(1000); clrscr; dung:=keypressed; if dung then exit; end; end. ----- Hết ----- 4/4 . Hội Thi Tin Học Trẻ Huyện Dĩ An 2009 begin gotoxy(i,10); write(str); delay(1000); clrscr; dung:=keypressed; if dung then exit; end; end. -- -- - Hết -- -- - . Hội Thi Tin Học Trẻ Huyện Dĩ An 2009 Đáp Án HỆ: Trung Học Cơ Sở Thời gian: 120 phút Bài 1 : Viết chương trình a)

Ngày đăng: 26/08/2013, 01:10

Từ khóa liên quan

Tài liệu cùng người dùng

  • Đang cập nhật ...

Tài liệu liên quan