Lập trình bằng Turbo Pascal part 3

Điểm khác nhau căn bản hơn giữa While vμ Repeat - Until cần nắm vững để vận dụng đúng tình huống là như sau. Trong cấu trúc Repeat - Until, phần câu lệnh đựơc thực hiện trước rồi mới kiểm tra điều kiện sau. Trái lại trong cấu trúc While, điều kiện đ−ợc kiểm tra trước, nếu đúng mới thực hiện lệnh. Do đó nếu dùng Repeat - Until thì phần câu lệnh được thực hiện ít nhất lμ một lần, còn với While có thể câu lệnh không được thực hiện lần nào....
Nội dung trích xuất từ tài liệu:
Lập trình bằng Turbo Pascal part 3 LËp tr×nh b»ng Turbo Pascal 3- §iÓm kh¸c nhau c¨n b¶n h¬n gi÷a While vμ Repeat - Until cÇn n¾mv÷ng ®Ó vËn dông ®óng t×nh huèng lμ nh− sau. Trong cÊu tróc Repeat - Until,phÇn c©u lÖnh ®ù¬c thùc hiÖn tr−íc råi míi kiÓm tra ®iÒu kiÖn sau. Tr¸i l¹itrong cÊu tróc While, ®iÒu kiÖn ®−îc kiÓm tra tr−íc, nÕu ®óng míi thùc hiÖnlÖnh. Do ®ã nÕu dïng Repeat - Until th× phÇn c©u lÖnh ®−îc thùc hiÖn Ýt nhÊtlμ mét lÇn, cßn víi While cã thÓ c©u lÖnh kh«ng ®−îc thùc hiÖn lÇn nμo.6.2 VÝ dô minh ho¹ VÝ dô 1: Tæng n sè h¹ng ®Çu tiªn cña chuçi ®iÒu hoμ lμ S = 1+1/2+1/3 + ... + 1/n. Hái n nhá nhÊt ph¶i lμ bao nhiªu ®Ó S v−ît qu¸ mét ng-−ìng lμ sè A cho tr−íc.Uses crt;Var i, A: integer; S: real;Begin Clrscr; Write( cho so A: ) ; Readln(A) ; I:=1; S:=1; While S < A do Begin I:=i+1; S:=S+ 1/i ; End; Write( Can it nhat , i , so hang );End. VÝ dô 2: TÝnh gi¸ trÞ cña hμm sin(x) theo c«ng thøc xÊp xØ sinx = x- x3/3! + x5/5! + x7/ 7! ...cho ®Õn khi ®¹t ®é chÝnh x¸c epsilon cho tr−íc. So s¸nh víi kÕt qu¶ nhËn®−îc khi dïng hμm chuÈn sin(x) cña Turbo Pascal.uses crt;var eps,x,y,s: real; i, sign: integer;BEGIN clrscr; write( Cho do chinh xac eps= ); readln(eps); write( Cho x= ); readln(x); y:=x;s:=x;i:=3;sign:=-1; While (s >= eps) do Begin s:= s*x*x / ((i-1)*i); y:=y+ sign * s;NguyÔn §×nh Ho¸, ViÖn CNTT - §HQG Hμ néi 49 LËp tr×nh b»ng Turbo Pascal sign:= -sign; i:=i+2; end; writeln( Sin(x) = ,y:1:5); write( Sai khac voi ham chuan sin(x) cua TurboPascalla = , y-sin(x):0:5); readln;END.7. X©y dùng cÊu tróc lÆp. PhÇn nμy sÏ tr×nh bμy mét sè mÉu h×nh x©y dùng c¸c cÊu tróc lÆp ®Óxö lÝ c¸c t×nh huèng hay gÆp nhÊt.7.1 §iÒu khiÓn vßng lÆp b»ng gi¸ trÞ canh chõng . VÝ dô: ViÕt ch−¬ng tr×nh ®Ó nhËp vμo vμ céng tÝch luü ®Ó tÝnh tæng sètiÒn b¸n hμng tõng ngμy cña mét cöa hμng. Sè lÇn b¸n hμng nãi chung thay®æi tõng ngμy, kh«ng biÕt tr−íc. V× sè tiÒn b¸n hμng lμ mét sè d−¬ng nªn gi¸trÞ 0 kh«ng ph¶i lμ mét gi¸ trÞ hîp lÖ. Ta cã thÓ lÊy gi¸ trÞ nμy lμm dÊu hiÖuchÊm hÕt d·y sè liÖu cÇn nhËp. Sè 0 lμ gi¸ trÞ canh chõng ®Ó kÕt thóc c«ngviÖc.1- d÷ liÖu vμo := gi¸ trÞ ®Çu tiªn ;2- While d÷ liÖu vμo gi¸ trÞ canh chõng do begin .... d÷ liÖu vμo:= gi¸ trÞ tiÕp theo ; end;Cô thÓ vßng lÆp ®−îc x©y dùng nh− sau Write( cho so tien, 0 – ket thuc ); Readln(SoTien); WHILE SoTien 0 DO Begin TongSo:= TongSo + SoTien; Write( cho so tien ); Readln(SoTien); End;NguyÔn §×nh Ho¸, ViÖn CNTT - §HQG Hμ néi 50 LËp tr×nh b»ng Turbo Pascal7.2 §iÒu khiÓn vßng lÆp b»ng cê b¸o Mét bμi to¸n th−êng hay gÆp trong xö lÝ th«ng tin lμ t×m kiÕm. ThùcchÊt cña viÖc t×m kiÕm lμ lÆp l¹i nhiÒu lÇn phÐp kiÓm tra mét ®iÒu kiÖn nμo®ã cho ®Õn khi tho¶ m·n ®iÒu kiÖn tøc lμ t×m thÊy. Khu«n mÉu chung ®Ó thùc hiÖn viÖc t×m kiÕm lμ x©y dùng mét cÊutróc lÆp ®iÒu khiÓn b»ng cê b¸o nh− sau. Mét biÕn kiÓu boolean ®−îc dïng®Ó ®¸nh dÊu sù kiÖn t×m thÊy. Nã ®−îc gäi lμ cê b¸o. Tr−íc khi vμo cÊu tróclÆp, cê b¸o ®−îc ®Æt lμ False. Khi t×m thÊy, cê b¸o ®−îc thiÕt lËp lμ True vμvßng lÆp kÕt thóc.1- cê b¸o:= false;2- While not cê b¸o do begin ... if t×m thÊy then cê b¸o:= true; end; VÝ dô: T×m sè chÝnh ph−¬ng nhá nhÊt lín h¬n x, sè x nhËp tõ bμnphÝm. Ta duyÖt tõng sè, b¾t ®Çu tõ x, ®Ó t×m sè chÝnh ph−¬ng. Khi t×m thÊy sè®Çu tiªn th× kÕt thóc. CÊu tróc lÆp ®−îc x©y dùng nh− sau.TimThay:= False;So:= x;WHILE not TimThay DO If Trunc(sqrt(So)) = sqrt(So) then TimThay:= True Else So:=So+1; Writeln( So chinh phuong = , So);8. C¸c lÖnh kÕt thóc sím vßng lÆp hoÆc ch−¬ng tr×nh.8.1 LÖnh nh¶y kh«ng ®iÒu kiÖn - gotoGoto nh·n ; Goto lμ lÖnh nh¶y kh«ng ®iÒu kiÖn, cho phÐp nh¶y tõ bÊt k× n¬i nμobªn trong ch−¬ng tr×nh hay ch−¬ng tr×nh con ®Õn vÞ trÝ ®· ®¸nh dÊu b»ngnh·n. Nh·n lμ mét tªn, nh− tªn biÕn hoÆc lμ mét sè nguyªn.C¸ch thùc hiÖn nh− sau.NguyÔn §×nh Ho¸, ViÖn CNTT - §HQG Hμ néi 51 LËp tr×nh b»ng Turbo Pascal 1- Khai b¸o nh·n: Ph¶i khai b¸o nh·n t¹i ®Çu phÇn khai b¸o, tr−íc khikhai b¸o c¸c h»ng.Có ph¸p khai b¸o nh·n: tõ kho¸ Label, danh s¸ch nh·n, dÊu chÊm phÈy. Danh s¸ch nh·n lμ d·y c¸c tªn nh·n, c ...