Së GD&§T H¶I d­¬ng

Tr­êng thpt nam s¸ch

 

Kú THI CHäN GI¸O VI£N D¹Y GIáI cÊp TR¦êNG

N¡M HäC 2013 2014

 

§Ò thi m«n: TIN HäC

(§Ò gåm 01 trang)

Thêi gian lµm bµi: 90 phót

 

 

 

 

 

C©u 2: (4 điểm)

- Khi d¹y bµi 5:  Mét sè kiÓu d÷ liÖu chuÈn - sgk Tin häc 11, thÇy c« sÏ gi¶i thÝch nh­ thÕ nµo ®Ó häc sinh cã thÓ hiÓu ®­îc ph¹m vi gi¸ trÞ cña c¸c kiÓu d÷ liÖu Nguyªn

- Khi lµm bµi tËp thùc hµnh 3: Thao t¸c víi b¶ng - sgk Tin häc 12 häc sinh cã th¾c m¾c: “V× sao kh«ng nhËp ®­îc ®iÓm phÈy ?”, V× sao kh«ng nhËp ®­îc ®iÓm 10 ?”. ThÇy c« h·y gi¶i thÝch cho häc sinh vµ h­íng dÉn ®Ó cho ®iÓm hiÓn thÞ ®óng nh­ nhËp.

 C©u 3: (3 điểm)

Sö dông ch­¬ng tr×nh Pascal viÕt ch­¬ng tr×nh ®äc vµo mét d·y gåm n sè nguyªn (n  <= 100), ghi d·y sè ®ã vµo tÖp cã tªn input.txt, sau ®ã tÝnh tæng c¸c sè ch½n cã trong d·y ®ã vµ ghi kÕt qu¶ vµo tÖp cã tªn output.txt

VÝ dô:

Input.txt

Output.txt

2 4 5 7 8

14

 

---------------------------------------------------------

 

HÕt

- Gi¸m thÞ kh«ng gi¶i thÝch g× thªm

- ThÝ sinh kh«ng ®­îc sö dông tµi liÖu.

 

 

 

 

 

Trang 1

 


H¦íNG DÉN CHÊM Vµ BIÓU §IÓM

M«n: Tin häc

(§¸p ¸n gåm 02  trang)

 

 

NỘI DUNG

ĐIỂM

C©u 2

 

* Gi¶i thÝch ph¹m vi gi¸ trÞ c¸c kiÓu d÷ liÖu Nguyªn

2.0

- KiÓu Byte: Ph¹m vi gi¸ trÞ tõ 0 ®Õn 255

V× kÝch th­íc bé nhí cña kiÓu Byte lµ 1 byte (8 bit) nªn chØ l­u tr÷ ®­îc 28 gi¸ trÞ, v× b¾t ®Çu tõ sè 0 nªn chØ l­u tr÷ ®­îc sè lín nhÊt lµ 28-1

- KiÓu Word: ph¹m vi gi¸ trÞ tõ 0 ®Õn 216 - 1

V× kÝch th­íc bé nhí cña kiÓu Word lµ 2 byte (16 bit) nªn cã thÓ l­u tr÷ 216 gi¸ trÞ, v× b¾t ®Çu tõ sè 0 nªn chØ l­u tr÷ ®­îc sè lín nhÊt lµ 216 - 1

- KiÓu Integer: ph¹m vi gi¸ trÞ tõ 215 ®Õn 215 - 1

V× kÝch th­íc bé nhí cña kiÓu Integer lµ 2 byte (16 bit), mµ Integer cã sè ©m nªn ph¶i dïng 1 bÝt cao nhÊt ®Ó l­u dÊu. Nh­ vËy chØ cßn l¹i 15 bit ®Ó l­u tr÷ gi¸ trÞ sè. Theo c¸ch l­u tr÷ bï 2, sè 0 còng cã bÝt dÊu lµ 1 (bit dÊu sè d­¬ng) nªn sè d­¬ng ®­îc l­u tr÷ tõ 0 ®Õn 215-1, cßn sè ©m tõ -215 ®Õn -1

- KiÓu Longint: ph¹m vi gi¸ trÞ tõ 231 ®Õn 231 - 1

V× kÝch th­íc bé nhí cña kiÓu Longint lµ 4 byte (32 bit), mµ Longint cã sè ©m nªn ph¶i dïng 1 bÝt cao nhÊt ®Ó l­u dÊu. Nh­ vËy chØ cßn l¹i 31 bit ®Ó l­u tr÷ gi¸ trÞ sè. Theo c¸ch l­u tr÷ bï 2, sè 0 còng cã bÝt dÊu lµ 1 (bit dÊu sè d­¬ng) nªn sè d­¬ng ®­îc khi l­u tr÷ tõ 0 ®Õn 231-1, cßn sè ©m tõ -231 ®Õn -1

 

*Gi¶i thÝch kh«ng nhËp ®­îc ®iÓm phÈy:

2.0

-               Kh«ng nhËp ®­îc ®iÓm phÈy v× ch­a khai b¸o tÝnh chÊt ®iÓm thËp ph©n cho c¸c tr­êng ®iÓm

-               Kh«ng nhËp ®­îc ®iÓm 10 v× khai b¸o tÝnh chÊt Input Mask cho tr­êng ®iÓm lµ 9.9. Nªn chØ nhËp ®­îc ®iÓm víi sè cã phÇn nguyªn lµ 1 ch÷ sè

-               C¸ch thiÕt lËp tÝnh chÊt thËp ph©n

B1: Më b¶ng ë chÕ ®é thiÕt kÕ

B2: chän tr­êng ®iÓm

B3: khai b¸o c¸c tÝnh chÊt cho tr­êng ®iÓm nh­ sau:

-Field size : Decimal

-Scale: 1

-Decimal place: 1

-Input mask: kh«ng nhËp

 

C©u 3: Chương tr×nh Pascal (Tham kh¶o)

 VAR tep1,tep2:TEXT;

 i,n,s:INTEGER;

a:ARRAY[1..100] OF INTEGER;

BEGIN

            assign(tep1,'D:\BT.txt');

            rewrite(tep1);

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

FOR i:=1 TO n DO

 BEGIN

Trang 1

 


            write('Nhap so thu ',i,'=');

             readln(a[i]);

            write(tep1,a[i]:4);

END;

close(tep1);

assign(tep2,'D:\BT1.txt');

rewrite(tep2);

reset(tep1);

s:=0;

WHILE NOT eof(tep1) DO

 BEGIN

            read(tep1,a[i]);

             write(a[i]:4);

            IF(a[i] MOD 2=0) THEN s:=s+a[i];

 END;      

            write(tep2,s);

 writeln;

 write('Tong cac so chan co trong day la: ',s);

close(tep2);

readln;

END.

Trang 1

 

nguon VI OLET