b. Phần Tự luận Lập trình Pascal Câu 1. Viết chương trình tạo một tam giác có dạng như dưới đây với số hàng nhập vào từ bàn phím. Và tam giác
UBND huyện nga sơn Phòng Giáo dục Đào tạo Kỳ thi giáo viên giỏi lần thứ năm 2008 Môn: Tin học Thời gian: 150 phút Địa điểm: Đề thức ( Đề gồm có trang, điểm toàn 20 điểm) I/ Phần MS- DOS A/ Trắc nghiệm Câu 01/ Lệnh sau lệnh ngoại trú hệ điều hành(HĐH) MS-DOS a Scandisk c Copy b CD d Dir Câu 02/ Lệnh sau lệnh nội trú hệ điều hành(HĐH) MS-DOS a PKunZip c Scandisk b RD d Defrag Câu 03/ Trong HĐH MS- DOS phần mở rộng tên tệp có tối đa a kí tự c kí tự b kí tự d Không hạn chế số kí tự Câu 04/ Mêgabyte ( MB) bằng? a 1024 bit c 1024 KB b 1024 Byte d 1024Gi II/ Phần Windows Cõu 01/ Trong HH Windows 2000, WindowXp cú th s dng mt ti khon ó cú trờn mỏy tớnh ngi dựng cn phi bit cỏc thụng tin no? a Tờn ca ti khon c Tờn v mt khu ca ti khon b Mt khu ca ti khon d Tờn v ngy to ti khon ú Cõu 02/ Trong HH Windows 2000,XP tt mỏy tớnh nhng cú gi li trng thỏi ca phiờn lm vic hin hnh ta chn mc no cỏc mc sau? a Shut down c Restart b Hibernate d Log off Admin Cõu 03/ Trong ca s Control Panel ca HH Windows 2000,Xp thay i mn hỡnh nn (Desktop) ta chn: a Folder Options c Display b System d Folder Options Cõu 04: Trong HH Windows 2000, phỏt biu no sau õy cha chớnh xỏc? a Chc nng Hibernate l chc nng ca h iu hnh Tuy nhiờn, cú mỏy tớnh khụng cú kh nng h tr chc nng ny b Khi ngi s dng chn Hibernate, HH s lu ton b thụng tin RAM vo cng v tt hn ngun in c Mun s dng c chc nng Hibernate, cng ca mỏy tớnh phi cũn dung lng >=RAM d Chc nng Hibernate cho phộp ngi s dng tm thi khụng dựng mỏy mt thi gian ngn ( khong 2-5h ) Quỏ khong thi gian trờn, ngi dựng phi ng mỏy t u III/ Phần Word Câu 01/ Trong Microsoft Word 2000, Xp cỏch no sau õy dựng m mt tin bn ó cú trờn mỏy tớnh: a Bm t hp phớm Ctrl + O c Chn File \ Open b Bm t hp phớm Ctrl + F12 d Bm t hp phớm Ctrl + F2 Cõu 02/ Trong Microsoft Word 2000, Xp úng bn hin thi m khụng úng chng trỡnh ng dng Word, ta bm t hp phớm: a Atl + F4 c Ctrl + F4 b Ctrl+ W d Shift + F4 Cõu 03/ Trong Microsoft Word 2000, Xp thc hin thao tỏc in bn, ch rng ta ch in cỏc trang bn cú th t l ta chn: a Pages c Odd pages b All pages in range d Even pages Cõu 04/ Trong Microsoft Word 2000, Xp lu tin di dng tin mu, ta cn chn chc nng no mc Save as type? a Chc nng Word Document c Chc nng Document Template b Chc nng Web Page d Chc nng Rich Text Format IV/ Phần Excel Cõu 01/ la chn nhiu vựng khỏc trờn trang bng tớnh, bn s dng chut kt hp vi phớm no? a Phớm Alt c Phớm Ctrl v phớm Shift b Phớm Shift d Phớm Ctrl Cõu 02/ Trong Excel 2000, Xp kim tra thớ sinh t hay phi Thi li mụn lp trỡnh Pascal, cụng thc no di õy thc hin c vic trờn, vi iu kin xột: Nu kt qu t im tr lờn thỡ t, cũn li thỡ phi Thi li (Gi s im thi t ti ụ C3) a =IF(C3>=5,"t") ELSE ("Thi li") c =IF(C3=0 then 2đ Begin Tg:=tg+a[i]; Dem:=dem+1; End; Writeln( tổng tính là:,tg:2); Write( Đếm số dơng là:,dem:2); For i:=1 to n write(f,i); Close(f); End; Procedure chisoduong; Begin Assign(f, thigvgioi.dat); Reset(f); For i:=1 to n Begin If a[i]>=0 then Begin 2đ Write( số dơng là: i); Write( số dơng là:,a[i]:2); End Else Write( Khong có số dơng nào); For i:=1 to n write(f,i); Close(f); End; Procedure cauc; Begin Assign(f, thigvgioi.dat); Reset(f); 2đ Max:=a[1]; For i:=2 to n If (a[i]> max)and(a[i]>0) then max:=a[i]; Write( số dơng lớn dãy là: , max:2); Close(f); End; Procedure caud; Begin Assign(f, thigvgioi.dat); Reset(f); Dem:=0; K:=0; For i:=1 to n If a[i]>0 then 2đ Dem:=dem+1 Else Begin K:=k+1; B[k]:=dem; Dem:=0; End; Max:=b[1]; For i:=1 to k If max