Open... F3
Save as...
Change dir...
§Ó 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 :
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 ?
7 ) LËp tr×nh so s¸nh gi¸ trÞ 2 biÓu thøc :
y1=(a*b*c) (a+b+c)/ 3 vµ y2 = aa * bb * cc
8 ) Cho tam gi¸c cã 3 c¹nh lµ a,b,c . LËp tr×nh tÝnh c¸c gãc A,B,C cña tam gi¸c ( theo Radian ) vµ so s¸nh
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 .
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
Bµi 1
Uses Crt;
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 d< min then min := d;
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.
Chó ý : Trong bµi trªn sö dông c«ng thøc : a x = e x.ln (a )
Bµi 8
Uses Crt;
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.
Bµi 9
Uses Crt;
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.
0>0>