A gi¶i thuËt I / §Þnh nghÜa gi¶i thuËt
§Ó khëi ®éng TURBO PASCAN 7.0 cÇn cã tèi thiÓu 2 File
tải về 301.83 Kb.
|
- Điều hướng trang này:
- ALT_F +NEW
- ALT_F +SAVE AS
- Alt_F3
- CTRL_ END §
- SHIFT_INSERT
- SHIFT_F1
- 3) WRITELN;
- 5) READLN;
- 7) Textcolor(n);
- II CÊu tróc lùa chän mét trong nhiÒu trêng hîp
- Chó ý
| §Ó khëi ®éng TURBO PASCAN 7.0 cÇn cã tèi thiÓu 2 File
+ Turbo.EXE : 403.655 Kb + Turbo.TPL ( Chøa c¸c Unit chuÈn ) : 48.432 Kb
File Edit Search Run Compile Debug Tools Options Window Help ______________________________________________________________________
F1 Help F2 Save F3 Open Alt+F9 Compile F9 Make Alt+F10 Local menu File , Edit, Search , Run , Compile , Debug , Tools , Options , Window , Help gäi lµ c¸c môc chän cña Local Menu . §ã lµ c¸c nhãm chøc n¨ng cña TURBO . §Ó chän mét chøc n¨ng n»m trong môc chän , Ên vµ gi÷ phÝm ALT ®ång thêi gâ kÝ tù ch÷ tr¾ng trong tªn môc chän ThÝ dô :
File Edit Search Run Compile Debug Tools Options Window Help   
 New
Open... F3 Save F2 Save as... Save all ------------------ Change dir... Print
Printer setup... DOS shell Exit Alt+X F1 Help Create a new file in a new Edit window C¸c dßng New, Open,Save,Save as , Save all , Change dir , Print, Print Seup ,DOS shell , Exit ®îc gäi lµ c¸c môc chän däc trong Môc chän File cña Local Menu . §ã lµ tõngchøc n¨ng riªng cña nhãm nµy . §Ó t×m hiÓu kü cµng vÒ tõng nhiÖm vô cña c¸c môc chän däc n»m trong c¸c Menu däc , t¬ng øng víi c¸c môc chän cña Local Menu , h·y t×m qua s¸ch kh¸c giíi thiÖu vÒ M«i trêng TURBO . ë ®©y chóng ta bíc ®Çu chØ t×m hiÓu mét sè chøc n¨ng chÝnh : ALT_F +NEW Më mét trang v¨n b¶n míi ®Ó so¹n mét ch¬ng tr×nh míi . F3 (ALT_F + OPEN) Më 1 File ( File nµy ®· ®îc ghi vµo ®Üa b©y giê muèn më ra ®Ó xem l¹i hoÆc söa ®æi , nÕu File nµy cha cã trªn ®Üa th× ph¶i gâ tªn File vµo dßng s¸ng hiÖn trªn mµn h×nh sau ®ã so¹n ch¬ng tr×nh míi ). F2 (ALT_F +SAVE) Lu ch¬ng tr×nh vµo File ®ang më . NÕu ch¬ng tr×nh nµy lµ ch¬ng tr×nh míi vµ cha ®îc ®Æt tªn th× mµn h×nh hiÖn lªn mét khung yªu cÇu ®Æt tªn File cho ch¬ng tr×nh míi nµy . ALT_F +SAVE AS Lu ch¬ng tr×nh vµo File víi tªn kh¸c ( ph¶i nhËp tªn míi vµo ) ALT_X (ALT_F +EXIT) §Ó tho¸t khái so¹n th¶o ch¬ng tr×nh , kÕt thóc TURBO trë vÒ m«i trêng cò . F9 §Ó biªn dÞch ch¬ng tr×nh CTRL_F9 §Ó ch¹y toµn bé ch¬ng tr×nh F7 LÇn theo dâi tõng dßng lÖnh F8 LÇn theo dâi tõng dßng lÖnh trong ch¬ng tr×nh chÝnh . CTRL_F7 Theo dâi gi¸ trÞ cña c¸c biÕn khi cho ch¹y F7 hoÆc F8 Trong khi so¹n vµ thö nghiÖm vµ ch¹y ch¬ng tr×nh , cã thÓ dïng nhiÒu lo¹i cöa sè kh¸c nhau trªn mµn h×nh . Cöa sæ nµo cã con trá ®îc gäi lµ cöa sæ hiÖn hµnh . F6 §Ó chuyÓn tõ cöa sæ nµy sang cöa sæ kia . F5 §Ó phãng to hoÆc thu nhá cöa sæ hiÖn hµnh . CTRL_F5 Sau ®ã dïng phÝm mòi tªn ( ) di chuyÓn cöa sæ hiÖn hµnh ®Õn vÞ trÝ thÝch hîp , hoÆc dïng SHIFT + phÝm mòi tªn ( ) ®Ó thay ®æi kÝch thíc cöa sæ , cuèi cïng ENTER Alt_F3 §Ó ®ãng cöa sæ so¹n th¶o hiÖn hµnh ( cã con trá ) . Trong khi so¹n th¶o ch¬ng tr×nh thêng dïng c¸c thao t¸c sau : + PhÝm ENTER ( ) §a con trá vÒ ®Çu dßng tiÕp theo + PhÝm mòi tªn ( ) Di chuyÓn con trá + HOME §a con trá vÒ ®Çu dßng + END §a con trá vÒ cuèi dßng + CTRL_HOME §a con trá vÒ ®Çu trang + CTRL_ END §a con trá vÒ cuèi trang + CTRL_PAGE UP §i lªn 1 trang mµn h×nh v¨n b¶n + CTRL_ PAGE DOWN §i xuèng 1 trang mµn h×nh v¨n b¶n + PhÝm DEL Xo¸ kÝ tù t¹i vÞ trÝ con trá + PhÝm BACK SPACE Xo¸ kÝ tù ngay bªn tr¸i vÞ trÝ con trá + PhÝm SPACE BAR T¹o 1 kÝ tù trèng + SHIFT_PhÝm mòi tªn( ) §¸nh dÊu khèi +CTRL_INSERT ChÐp khèi ®¸nh dÊu vµo CLIPBOARD +SHIFT_INSERT ChÐp CLIPBOARD vµo v¨n b¶n hiÖn thêi (t¹i vÞ trÝ con trá) +CTRL_C ChÐp khèi ®¸nh dÊu vµo v¨n b¶n hiÖn thêi (t¹i vÞ trÝ con trá) +CTRL_V ChuyÓn khèi ®¸nh dÊu vµo vÞ trÝ míi trong v¨n b¶n hiÖn thêi +CTRL_DEL Xo¸ ®o¹n v¨n b¶n ®· ®¸nh dÊu khèi +CTRL_K + H Xo¸ hép s¸ng trªn ®o¹n v¨n b¶n ®· ®¸nh dÊu +CTRL_F1 HiÖn mµn h×nh gióp ®ì t¬ng øng víi tõ t¹i vÞ trÝ con trá +SHIFT_F1 HiÖn b¶ng gióp ®ì sö dông c¸c lÖnh,thñ tôc, hµm, to¸n tö , ... g - Thñ tôc vµo ra d÷ liÖu , thñ tôc liªn quan mµn h×nh 1 ) WRITE ( danh s¸ch tªn biÕn , danh s¸ch tªn h»ng ); sÏ lÇn lît ghi ra trªn dßng mµn h×nh c¸c gi¸ trÞ t¬ng øng víi c¸c biÕn vµ c¸c h»ng , b¾t ®Çu ghi tõ vÞ trÝ hiÖn thêi cña con trá mµn h×nh . 2 ) WRITELN (danh s¸ch tªn biÕn , danh s¸ch tªn h»ng ); sÏ lÇn lît ghi ra trªn dßng mµn h×nh c¸c gi¸ trÞ t¬ng øng víi c¸c biÕn vµ c¸c h»ng , b¾t ®Çu ghi tõ vÞ trÝ hiÖn thêi cña con trá mµn h×nh . Ghi xong , con trá mµn h×nh tù ®éng dêi xuèng ®Çu dßng tiÕp theo cña mµn h×nh . 3) WRITELN; LÖnh chuyÓn con trá xuèng ®Çu dßng díi . 4) READLN(danh s¸ch tªn biÕn); NhËp tõ bµn phÝm lÇn lît c¸c gi¸ trÞ cho c¸c biÕn ®îc nªu trong danh s¸ch . Sau khi gâ gi¸ trÞ cña biÕn cuèi cïng th× gâ ENTER .Con trá trªn mµn h×nh tù ®éng chuyÓn xuèng dßng díi . 5) READLN; LÖnh dõng chê cho ®Õn khi gâ ENTER míi thi hµnh lÖnh tiÕp theo vµ con trá chuyÓn xuèng ®Çu dßng díi . 6) Gotoxy(x1,y1) ; LÖnh di chuyÓn con trá mµn h×nh tíi vÞ trÝ cét x1, dßng y1 .( Trªn mµn h×nh ë chÕ ®é ‘ 25 line ‘ trang mµn h×nh cã 25 dßng , 80 cét ) 7) Textcolor(n); víi n lµ sè nguyªn tõ 0 tíi 15 : §Æt chÕ ®é mµu cho ch÷ viÕt trªn mµn h×nh. 8) TextBackGround(n); §Æt chÕ ®é mµu cho mµn h×nh . 9) Clrscr ; Xo¸ s¹ch trªn trang mµn h×nh Lu ý 1 :Khi nhËp gi¸ trÞ cho c¸c biÕn b»ng lÖnh Readln(ds biÕn ), m¸y cha thùc hiÖn lÖnh tiÕp theo cña ch¬ng tr×nh, chØ khi gâ ENTER m¸y n¹p gi¸ trÞ vµo c¸c vïng nhí t¬ng øng víi c¸c biÕn , sau ®ã míi thùc hiÖn lÖnh tiÕp theo . Lu ý 2 : §Ó kiÓm tra d÷ liÖu nhËp vµo cã ®óng kiÓu ®· khai b¸o kh«ng , dïng hµm IoResult ( KiÓu Boolean ) theo dâi víi chÕ ®é híng dÉn biªn dÞch lµ {$I-} . Sau khi nhËp gi¸ trÞ cho biÕn (x ch¼ng h¹n ) nÕu gi¸ trÞ cña hµm IoResult = 0 th× gi¸ trÞ nhËp cho x lµ ®óng ; ngîc l¹i nÕu IoResult <>0 th× nhËp sai . ThÝ dô : §o¹n ch¬ng tr×nh nhËp gi¸ trÞ cho biÕn x nguyªn d¬ng lµ : Uses Crt; Var x : Integer; Begin Repeat
Write(‘Nhap gia tri x = ‘); {$I-} Readln(x); {I$+} Until (IoResult =0) and ( x>0); Readln
End. h - CÊu tróc ®iÒu khiÓn I / CÊu tróc lùa chän : If < §iÒu kiÖn > then < LÖnh > If < §iÒu kiÖn > then < LÖnh 1 > El se < LÖnh 2 >        
.F.
.T. § K
LÖnh 1 LÖnh 2     
.F.
.T. § K
LÖnh II CÊu tróc lùa chän mét trong nhiÒu trêng hîp :
 .F. .F. .F.
§ K 1 §K 2 §K n
  
  .T. .T. .T.
C«ng viÖc 1 
iii CÊu tróc LÆp
 .F.
C©u lÖnh BiÓu thøc Logic 
.T.
 BiÓu thøc . F.
 Logic C©u lÖnh
.T.
REPEAT...UNTIL WHILE...DO
FOR 
BiÕn ®Õm:=gi¸ trÞ ®Çu
 
. F.
  BiÕn<=gt cuèi
.T.
C¸c LÖnh 
Tù ®éng t¨ng gi¸ trÞ cña biÕn mçi lÇn lÆp 1 ®¬n vÞ  Bµi tËp vÒ nhµ
LËp ch¬ng tr×nh gi¶i c¸c bµi to¸n sau : 1 ) NhËp tõ bµn phÝm gi¸ trÞ 3 c¹nh tam gi¸c . TÝnh diÖn tÝch , chiÒu cao, trung tuyÕn, b¸n kÝnh ®êng trßn néi tiÕp, ngo¹i tiÕp tam gi¸c. 2 ) NhËp tõ bµn phÝm 1 sè nguyªn d¬ng cã 4 ch÷ sè . HiÖn trªn mµn h×nh c¸c ch÷ sè hµng ngh×n, hµng tr¨m, hµng chôc , hµng ®¬n vÞ cña sè nguyªn nµy . 3 ) NhËp tõ bµn phÝm sè thùc x . Sö dông kh«ng qu¸ 4 phÐp nh©n cïng víi 4 phÐp céng vµ trõ , tÝnh gi¸ trÞ cña biÓu thøc sau : 2x4 - 3x3 + 4x2 - 5x + 6 4 ) NhËp tõ bµn phÝm gi¸ trÞ 2 biÕn x vµ y . Kh«ng dïng thªm biÕn thø 3 , h·y tr¸o gi¸ trÞ 2 biÕn x vµ y cho nhau . 5 ) NhËp tõ bµn phÝm 4 sè thùc . T×m sè lín nhÊt vµ sè bÐ nhÊt . 6 ) Tõ bµn phÝm nhËp c¸c hÖ sè a, b, c cña ph¬ng tr×nh tæng qu¸t cña ®êng th¼ng a x+by+c=0 vµ to¹ ®é 2 ®iÓm A(x1,y1) , B(x2,y2) . Th«ng b¸o kÕt qu¶ ®iÓm A , ®iÓm B cã thuéc ®êng th¼ng kh«ng ? Trong trêng hîp A vµ B cïng kh«ng thuéc ®êng th¼ng , h·y th«ng b¸o chóng cïng phÝa so víi ®êng th¼ng hay kh¸c phÝa nhau ?
y = (a* A + b * B + c * C)/(a+b+c) víi z = Pi / 3 
9 ) Cho m¹ch ®iÖn nh h×nh vÏ gåm c«ng t¾c A m¾c nèi tiÕp víi m¹ch song song cã 2 c«ng t¾c B vµ C sau ®ã nèi tiÕp víi ®Ìn M. NhËp chÕ ®é D (®ãng m¹ch) hoÆc T (t¾t m¹ch) cña 3 c«ng t¾c A,B,C. HiÖn kÕt qu¶ ®Ìn M s¸ng ay kh«ng s¸ng . 10 ) Sö dông c¸c thñ tôc vµo ra d÷ liÖu nhËp tõ bµn phÝm , vµ thñ tôc ®Þnh vÞ trÝ con trá mµn h×nh h·y vÏ trªn mµn h×nh mét tam gi¸c gåm c¸c kÝ tù ‘*’(dÊu sao) gi÷a 2 dÊu sao liªn tiÕp lµ 1 kÝ tù dÊu c¸ch nh h×nh díi ®©y ( sè dßng lµ h - nhËp tõ bµn phÝm ) * * *
* * * * * * *
* * * * * ( h = 5 ) 1 ) a - VÏ 1 bµn cê quèc tÕ 8 x8 « nh sau ( Kh«ng kÓ viÒn ) : Lu ý : KÝ tù Char(219) lµ KÝ tù Char(32) lµ kÝ tù trèng 
b - NhËp tõ bµn phÝm to¹ ®é 2 « lµ (x1,y1) vµ (x2,y2) . Hai « cã cïng mµu kh«ng ? Gi¶ sö qu©n hËu ®øng ë « (x1,y1) , nã cã khèng chÕ ®îc « (x2,y2) hay kh«ng ? C©u hái t¬ng tù cho qu©n m· . 12 ) LËp tr×nh hiÖn ch÷ “ Tin häc “ bay tõ gãc tr¸i mµn h×nh vÒ gi÷a dßng 14 , ch÷ “ Tuæi trÎ “ bay tõ gãc ph¶i mµn h×nh vÒ gi÷a dßng 14 Dõng gi÷a mµn h×nh dßng ch÷ “ Tin häc vµ Tuæi trÎ “ 13 ) NhËp tõ bµn phÝm to¹ ®é 3 ®iÓm A,B,C . Cã tån t¹i tam gi¸c ABC kh«ng ? . Trong trêng hîp tån t¹i tam gi¸c , h·y tÝnh diÖn tÝch tam gi¸c ®ã . 14 ) NhËp tõ bµn phÝm to¹ ®é 5 ®iÓm A,B,C,D ,E. Tø gi¸c ABCD cã ph¶i lµ tø gi¸c låi hay kh«ng ? §iÓm E cã thuéc miÒn trong cña tø gi¸c ABCD hay kh«ng ? 15 ) NhËp tõ bµn phÝm sè nguyªn d¬ng n ( n>= 3) . NhËp to¹ ®é n ®Ønh cña mét ®a gi¸c låi . TÝnh diÖn tÝch ®a gi¸c ®ã . 16 )Cho tËp A gåm N ®iÓm trªn mÆt ph¼ng to¹ ®é . T×m ®a gi¸c låi cã c¸c ®Ønh thuéc tËp A vµ bao kÝn tËp ®iÓm A . Bµi kiÓm tra Cho mét h×nh hép ch÷ nhËt cã 2 kÝch thíc ®¸y lµ a vµ b vµ n bu phÈm h×nh ch÷ nhËt cã c¸c kÝch thíc lµ (x1,y1) , (x2,y2) .. (xn,yn). Hái cã thÓ cho vµo hép nh÷ng bu phÈm nµo ( nÕu chØ xÕp mÆt bu ¶nh song song víi mÆt ph¼ng ®¸y , chiÒu cao cña hép coi nh ®ñ lín ®Ó xÕp mäi bu ¶nh chång lªn nhau nÕu cã thÓ xÕp chóng vµo hép ®îc ) ? Bµi gi¶i ch¬ng 2
Var a,b,c,p,s ,r1,r2,ha,hb,hc,ma,mb,mc : Real; Ok : Boolean; BEGIN
Clrscr; Writeln('nhap 3 so : '); Repeat {$i-} Write('a = '); Readln(a); Write('b = '); Readln(b); Write('c = '); Readln(c);{$i+} Ok := ( Ioresult = 0 ) and (a+b>c) and(a+c>b) and(b+c>a); Until OK ; p := (a+b+c)/2; s := sqrt(p*(p-a)*(p-b)*(p-c)); ha := 2*S/a ; hb := 2*S/b ; hc := 2*S/c ; ma := sqrt((2*( b*b + c*c ) - a*a) / 4 ); mb := sqrt((2*( a*a + c*c ) - b*b ) / 4 ); mc := sqrt((2*( a*a + b*b ) - c*c ) / 4 ); r1 := S/p ; R2 := a*b*c/(4*S); Writeln('Dien tich la S = ',s:10:2); Writeln('Cac duong cao ha = ',ha:10:2,’ hb = ‘,hb:10:2,’ hc = ‘,hc:10:2 ); Writeln('Cac trung tuyen ma = ',ma:10:2,’ mb = ‘,mb:10:2,’ mc = ‘,mc:10:2 ); Writeln('Ban kinh duong tron noi tiep r = ‘,r1:10:2); Writeln(’Ban kinh duong tron ngoai tiep la R = ‘,R2:10:2 ); Readln
END. Bµi 2 Uses Crt; Var x,n,t,c,d : Integer; Ok : Boolean; Begin Clrscr;
Repeat Writeln('Nhap so nguyen duong co 4 chu so s = '); {$I-} Readln(x); {$I+} Ok := (IoResult=0) and (x>0) and (x<10000); Until Ok; d := x mod 10; c := (x div 10) mod 10; t := (x div 100) mod 10; n := x div 1000; Writeln('Chu so hang nghin = ',n); Writeln('Chu so hang tram = ',t); Writeln('Chu so hang chuc = ',c); Writeln('Chu so don vi = ',d); Readln;
End. Bµi 3 Uses Crt; Var y,x : Real; Begin
Clrscr; Write('Nhap so thuc x = '); Repeat {$I-} readln(x); {$I+} Until (Ioresult=0); y := x*(x*(x*(2*x-3)+4)-5)+6; Writeln(' y = ',y:10:2); Readln
End. Bµi 4 Uses Crt; Var x,y : Integer; Begin
Clrscr; Writeln('Nhap gia tri 2 bien '); Repeat Write('x = '); {$I-} Readln(x); {$I+} Until IoResult = 0; Repeat Write('y = '); {$I-} Readln(y); {$I+} Until IoResult = 0; x := x+y; y := x-y; x := x-y; Writeln('gia tri moi cua x = ',x); Writeln('gia tri moi cua y = ',y); Readln
End. Bµi 5 Uses Crt; Var a,b,c,d,max,min : Integer; Begin Clrscr;
Writeln('Ban nhap 4 so: '); Repeat
{$I-} Write('a = '); readln(a); Write('b = '); readln(b); Write('c = '); readln(c); Write('d = '); readln(d); {$I+} Until (Ioresult=0); If a>b then Begin Min := b ; Max := a; End
Else Begin
Min := a; Max := b; End; If c If c>max then max := c; If d>max then max := d; Writeln('so be nhat la : ',min); Writeln('so lon nhat la : ',max); Readln
End. Bµi 6 Uses Crt; Var f1,f2,a,b,c,x1,x2,y1,y2 : Real; Ok1,Ok2 : Boolean; Begin
Clrscr; Writeln('NhËp c¸c hÖ sè a,b,c cña ®êng th¼ng : '); Repeat {$I-} Readln(a,b,c); {$I+} Until ( IoResult = 0); Writeln('NhËp to¹ ®é x1,y1 cña ®iÓm A : '); Repeat {$I-} Readln(x1,y1); {$I+} Until ( IoResult = 0); Writeln('NhËp to¹ ®é x2,y2 cña ®iÓm B : '); Repeat {$I-} Readln(x2,y2); {$I+} Until ( IoResult = 0); f1 := a*x1+b*y1+c; f2 := a*x2+b*y2+c; Ok1 := False; Ok2 := False; If abs(f1)<0.0001 then Begin Writeln(' §iÓm A thuéc ®êng th¼ng '); Ok1 := True; End;
If abs(f2)<0.0001 then Begin
Writeln(' §iÓm B thuéc ®êng th¼ng '); Ok2 := True; End; If not Ok1 and not Ok2 then If f1*f2 > 0 then Writeln('Hai ®iÓm A vµ B cïng phÝa ' ) Else Writeln('Hai ®iÓm A vµ B kh¸c phÝa ' ); Readln
End. Bµi 7 Uses Crt; Label Continue; Var a,b,c,y1,y2 : Real; BEGIN Continue: Clrscr; Repeat
Write('Cho biet gia tri cac so duong A,B,C = '); Readln(a,b,c); Until (IoResult=0) and (a>0) and (b>0) and (c>0); Y1:=Exp( ((a+b+c)/3)*(Ln(a)+Ln(b)+Ln(c)) ); Y2:=Exp(a*ln(a))*Exp(b*ln(b))*Exp(c*ln(c)); If (y1>y2) then Write('Y1 > Y2') Else If (y1=y2) then Write('Y1=Y2') Else Write('Y1 Writeln;
Write('ESC de thoat . Phim bat ki de tiep tuc . . .'); If readkey<>#27 then goto continue; END.
Label Continue; Var a,b,c, cos,tg,Ga,Gb,Gc,y : Real; Ok : Boolean; BEGIN
Continue: Clrscr;
Write('Cho biet tam giac co 3 canh la a,b,c :='); Repeat {$i-} Write('a = '); Readln(a); Write('b = '); Readln(b); Write('c = '); Readln(c);{$i+} Ok := ( Ioresult = 0 ) and (a+b>c) and(a+c>b) and(b+c>a); Until OK ; Cos := (Sqr(b)+sqr(c)-sqr(a))/(2*b*c); If (cos=0) then Ga:=pi/2 Else
Begin Tg := Sqrt(1/Sqr(cos)-1); Ga := Arctan(tg); If cos<0 then Ga:=pi-Ga; End; Cos := (Sqr(a)+sqr(b)-sqr(c))/(2*a*b); If (cos=0) then Gc:=pi/2 Else
Begin Tg := Sqrt(1/Sqr(cos)-1); Gc := Arctan(tg); If cos<0 then Gc:=pi-Gc; End; Gb := Pi - Ga - Gc ; Writeln('A:=',Ga:5:2); Writeln('B:=',Gb:5:2); Writeln('C:=',Gc:5:2); y:=(a*ga+b*gb+c*gc)/(a+b+c); If (y>Pi/3) then Write('Y>PI/3') Else
If (y=Pi/3) then Write('Y=Pi/3') Else Write('Y Write(#10#13,'ESC ®Ó tho¸t - PhÝm bÊt k× ®Ó tiÕp tôc . . .'); If Readkey<>#27 then goto Continue; END.
Var a,b,c : Boolean; x : Char; Procedure Nhap(Ten : char;Var ct: Boolean); Begin Write('Nhap trang thai cong tac ',ten,' : dong(d) , ngat(n) : (d/n) '); Repeat {$i-} Readln(x);{$i+} until (x='d') or (x='n'); If x='d' then Ct:=True else CT:=False ; End; Function Sang: Boolean; Begin Sang := (a and b) or (a and c); End; Procedure Hien; Begin If sang then writeln('Den sang ') else write ('Den khong sang '); End;
BEGIN Clrscr;
Nhap('A',a);Nhap('B',b);Nhap('C',c); Hien;
Readln END. Каталог: files -> news -> attachs news -> Chỉ số giá tiêu dùng, chỉ số giá vàng và đô la Mỹ tháng 02 năm 2007 news -> Nhập khẩu tháng 10 và 10 tháng năm 2005 news -> Coâng vieäc: nhaân vieân baùn haøNG news -> Thoâng baùo tuyeån duïng maõ soá: 1208-903 Coâng vieäc: phuï vieäc nhaø news -> Coâng vieäc: nhaân vieân thu ngaâN; nhaân vieân giöÕ xe news -> Thoâng baùo tuyeån duïng maõ soá: 1210-1257 Coâng vieäc: phuï vieäc nhaø news -> Thoâng baùo tuyeån duïng maõ soá: 1210-1161 Coâng vieäc: phuï vieäc nhaø attachs -> TRƯỜng thpt quang minh số : 46/ktnb-thptqm cộng hòa xã HỘi chủ nghĩa việt nam attachs -> PHẦn chung cho tất cả thí sinh (7,0 điểm) Câu I attachs -> ĐẠi học quốc gia hà NỘi lý LỊch khoa họC tải về 301.83 Kb. Chia sẻ với bạn bè của bạn:
|
