Tiết 8. Bài tập và thực hành 1

Gi¸o ¸n gi¶ng d¹y m«n Tin häc 11 - Ch¬ng II

TiÕt 8:

Bµi thùc hµnh sè 1

I. Môc tiªu:

1. KiÕn thøc:

- Lµm quen víi Pascal trong viÖc so¹n th¶o, lu ch¬ng tr×nh. dÞch ch¬ng

tr×nh, thùc hiÖn ch¬ng tr×nh.

- BiÕt ®îc mét ch¬ng tr×nh Pascal ®¬n gi¶n.

2. KÜ n¨ng:

- So¹n ®îc ch¬ng tr×nh, lu lªn ®Üa, dÞch lçi có ph¸p, thùc hiÖn vµ hiÖu chØnh.

- Bíc ®Çu biÕt ph©n tÝch vµ hoµn thµnh mét ch¬ng tr×nh ®¬n gi¶n trªn

Pascal.

II. §å dïng d¹y häc

1. ChuÈn bÞ cña GV:

Phßng m¸y vi tÝnh ®îc cµi ®Çy ®ñ Pascal, m¸y chiÕu ®Ó híng dÉn

2. ChuÈn bÞo cña HS:

SGK, s¸ch bµi tËp vµ bµi tËp ®· viÕt ë nhµ

III. Ho¹t ®éng d¹y häc

Ho¹t ®éng 1: T×m hiÓu mét ch¬ng tr×nh hoµn chØnh

1. Môc tiªu:

- HS biÕt ®îc mét ch¬ng tr×nh hoµn chØnh

- BiÕt so¹n mét ch¬ng tr×nh

- BiÕt lu, dÞch, thùc hiÖn mét ch¬ng tr×nh

2. Néi dung:

Cho ch¬ng tr×nh:

Program Giai_pt;

Uses CRT;

Var a,b,c,d,x1,x2: Real;

Begin

Clrscr;

Write ('nhap a b c');

Readln(a,b,c);

d:= b*b – 4*a*c;

x1:= ( - b –sqrt(d))/(2*a);

x2:= ( - b +sqrt(d))/(2*a);

Writeln ('x1 = ',x1:6:2,'x2 = ',x2:6:2);

Readln;

End.

NguyÔn Träng Tø - Trêng Trung häc Phæ th«ng §« L¬ng 3

Ngµy …………………..…..