ࡱ> .0-q`,<bjbjqPqP4H::>88$\4">("""""""$$h&48"]8""!!!"!"!!! Pmdth!!$"0"!& &!&!8!8"8"^!X" 1. >1>B0 2 A5@54>28IV Turbo Pascal @8=F8? @>1>B8 1.020=B068B8 turbo.exe 2.83;O4 5:@0=C: - <5=N - 2V:=0 (C45<> 28:>@8AB>2C20B8 2 >A=>2=><C 2 7 4 Edit -2V:=> @540:B>@0 4;O =01>@C B0 @5403C20==O ?@>3@0<8) Run  2V:=> 4;O 22545==O V=D>@<0FVW =0 5:@0= ?@8 28:>=0=V ?@>3@0<8 - O4>: AB0BCAC, V=D>@<0FV9=89 @O4>:. >1>B0 7 <5=N: - F10  2EV4 2 <5=N; -ESC-?>25@=5==O, 2EV4 2 <5=N: C=:B8 <5=N: 1.File  @>1>B0 7 D09;0<8. Load (F3)- G8B0==O D09;C 7 48A:C Save (F2)- 70?8A D09;C =0 48A: New  2V4:@8BBO 2V:=0 4;O =>2>W ?@>3@0<8. @>3@0<8 70?8ACNBLAO 2 B5:AB>2V D09;8 7 @>7H8@5==O< PAS.  ?@>F5AV @>1>B8 =5>1EV4=> 25AB8 4V0;>3 (Y/N). 2. Edit  @5403C20==O D09;V2. 3. Run  70?CA: ?@>3@0<8 =0 28:>=0==O. 4. Compile  :><?V;OFVO ?@>3@0<8. 2. V=V9=0 ?@>3@0<0 02545<> ?@8:;04 @50;V70FVW 70240==O 7=0E>465==O ?;>IV ?@O<>:CB=8:0 S 7V AB>@>=0<8 0 B0 b B@5BV< A?>A>1>< . ;3>@8B<VG=>N <>2>N >2>N ?@>3@0<C20==O Turbo Basic 0;3 ;>I0 program square; 4V9A= 0, b, S var a,b,S:real; ?>G begin 225AB8 0, b read(a,b); S:=a*b S:=a*b; 2825AB8 S write(S) :V= end 3. !B@C:BC@0 @>730;C65==O: !:;0AB8 ?@>3@0<C 7=0E>465==O =091V;LH>3> 7 B@L>E G8A5; a,b,c, 22545=8E 7 :;02V0BC@8. A=CNBL @V7=V A?>A>18 @>72 O7:C 40=>3> 70240==O 1 A?>AV1 var a,b,c,max:integer; begin readln(a,b,c); if (a>=b)and(a>=c) then max:=a; if (b>=a)and(b>=c) then max:=b; if (c>=a)and(c>=b) then max:=c; writeln(max); end. 2 A?>AV1 :;045=V @>730;C65==O IF C<>20 THEN IF C<>20 THEN >?5@0B>@8 ELSE >?5@0B>@8 ELSE >?5@0B>@8 var a,b,c,max:integer; begin readln(a,b,c); if a>=b then if a>=c then max:=a else max:=c else if b>=c then max:=b else max:=c; writeln(max); end. 3 A?>AV1 var a,b,c,max:integer; begin readln(a,b,c); max:=a; if b>max then max:=b; if c>max then max:=c; writeln(max); end. "@5BV9 A?>AV1 =09@0FV>=0;L=VH89 4. !B@C:BC@0 F8:;C &8:; ?>:8 While C<>20 do begin "V;> F8:;C end; :07V2:0 28:>=CTBLAO B0:8< G8=><: ?5@52V@OTBLAO 28:>=0==O C<Ljjln0n,RTVz|ɼɲɢɓɓɓɋ~naTJhCJmH"sH"h5CJ\mH"sH"h5CJaJmH"sH"hh5CJaJmH"sH"hM5CJaJmH"sH"h#8mH"sH"hMh#8CJaJmH"sH"h#8CJmH"sH" h#8CJh#8CJmH sH h#85CJ\mH"sH"h#8CJmH"sH"h#8>*CJmH"sH"h#8h#85CJaJmH"sH""h#8h#85CJ\aJmH"sH"Lj F  : d  T \J d^gdMdgdM $da$gdM&;*<RFz| ,J &0Bn$ $da$gdM $da$gdM d`gdMdgdM$0N,ZfRT|>+++$d`a$gdM$d`a$gdM $da$gdMdgdMV(>+p+r++~,,,--222333444Ͽϯߕߋ߯|maYNhshsmH"sH"hsmH"sH"hCJaJmH"sH"hhCJaJmH"sH"hMhCJaJmH"sH"hMCJmH"sH"h5>*CJ\h^6h5CJ hCJhMh;CJaJmH"sH"hh6CJH*mH"sH"hh6CJmH"sH"UhCJmH"sH"h/+dhCJmH"sH"hCJmH sH >28, 70?8A0=>W ?VA;O A;>20 WHILE (?>:8), V O:I> FO C<>20 28:>=CTBLAO B> 28:>=CTBLAO A5@VO >?5@0B>@V2 (BV;> F8:;C), ?VA;O G>3> 7=>2C ?>25@B0TBLAO 4> ?5@52V@:8 28:>=0==O 2:070=>W C<>28 (7CAB@V2H8 A;>2> END). :070=V 4VW 28:>=CNBLAO 4>B8, ?>:8 C<>20, O:0 ?5@52V@OTBLAO 40T VAB8=>. /:I> C<>20 =5 28:>=CTBLAO (@57C;LB0B 28:>=0==O C<>28 T E81=>), B> BV;> F8:;C ?@>?CA:0TBLAO V 28:>=0==O 2:07V2:8 ?>2B>@5==O 70:V=GCTBLAO. @>B01C;N20B8 DC=:FVN y=x2 =0 2V4@V7:C [a,b] :@>:>< h. var x,,y,a,b,h:real; begin readln(a,b,H); x:=a; while x<=B do begin Y:=x*x; writeln(x,  ,y); end; end. &8:; 4;O 1. For I:=a to b do ;O V 2V4 a 4> b :@>: 1 begin ?>G0B>: F8:;C BV;> F8:;C 28:>=C20B8 BV;> F8:;C end; :V=5FL F8:;C ?8A @>1>B8 8:>=0==O >?5@0B>@0 F8:;C ?>G8=0TBLAO 7 ?@8A2>T==O 7<V==V9 F8:;C (l) 2:070=>3> ?>G0B:>2>3> 7=0G5==O. >BV< 28:>=CNBLAO >?5@0B>@8, O:V A:;040NBL BV;> F8:;C.  @57C;LB0BV 28:>=0==O >?5@0B>@0 next 4> ?>B>G=>3> 7=0G5==O 7<V==>W F8:;C 4>102;OTBLAO ?@8@VAB (:@>:) (1), ?VA;O G>3> >B@8<0=5 7=0G5==O ?>@V2=NTBLAO 7 :V=F528< 7=0G5==O< (b). /:I> 7=0G5==O 7<V==>W F8:;C (V) AB0;> 1V;LH5 :V=F52>3> 7=0G5==O (b), B> F8:; 70:V=GCTBLAO V :5@C20==O ?5@540TBLAO >?5@0B>@C, O:89 A;V4CT 70 >?5@0B>@>< next.  ?@>B82=><C 28?04:C ?@>E>48BL =0ABC?=5 28:>=0==O >?5@0B>@V2 BV;0 F8:;C. "0: 28:>=CTBLAO >?5@0B>@ F8:;C C 28?04:C :@>:C (1). &8:;8 <>6CBL 1CB8 2:;045=8<8 825AB8 B01;8FN VD03>@0. var A,B,C:INTEGER; BEGIN For a:=2 to 9 DO BEGIN For b:=2 to 9 DO BEGIN C:=a*b; WRITE(C:3); END; WRITELN; END; END. >72 O70B8 7040GV 1. !5@54=L>AB0B8AB8G=89 C:@0W=5FL 7'W40T 70 <VAOFL S :3 A0;0 V C :3 F81C;V. !:V;L:8 A0;0 V F81C;V 2V= 7'W40T 70 N @>:V2 68BBO? 2. 0=> 420 :0B5B8 ?@O<>:CB=>3> B@8:CB=8:0 R V T. =09B8 3V?>B5=C7C 70 D>@<C;>N  EMBED Equation.3 . 3.V4><0 ?;>I0 :@C30 S, 287=0G8B8 @04VCA 70<8:0NG>3> F59 :@C3 :>;0 70 D>@<C;>N  EMBED Equation.3 V 4>268=C :>;0 70 D>@<C;>N L=6.28R. 4. 87=0G8B8 :V;L:VABL 4>40B=8E G8A5; A5@54 G8A5; a,b,c. 5. 87=0G8B8, G8 T A5@54 B@L>E G8A5; a,b,c E>G0 1 >4=0 ?0@0 @V2=8E <V6 A>1>N G8A5;. 6. 87=0G8B8, G8 <>65 F53;8=0, I> <0T D>@<C ?@O<>:CB=>3> ?0@0;5;5?V?540 7 @51@0<8 a,b,c, ?@>9B8 G5@57 ?@O<>:CB=8: 7V AB>@>=0<8 x V y. 7. !:;0AB8 ?@>3@0<C 7=0E>465==O AC<8 2AVE G8A5; :@0B=8E B@L>< 2V4 10 4> 100. 8. !:;0AB8 ?@>3@0<C 282545==O =0 5:@0= :204@0BV2 2AVE =0BC@0;L=8E G8A5; <5=H8E 70 20. 9. !:;0AB8 ?@>3@0<C >1G8A;5==O AC<8 G;5=V2 ?>A;V4>2=>ABV S=1+1/4+1/9+1/16+...+1/144.     (:>;0 >;V<?V9AL:>3> @575@2C 15.09.2006 ++, ,6,F,j,t,~,,,,&-n---22223"3$ td^`a$gdM$d`a$gdMdgdMd^`gdMdgdM"3R33333333455566p78,9.99x:&;*;,;0;2;6; $da$gdM $da$gdMdgdM4455555555556666666,9.99$;&;(;ꞍzkZJBjhfB+Uhh5CJaJmH"sH" hshsCJOJQJ^JaJhhsCJaJmH"sH"$hshsCJOJPJQJ^JaJ!jGhshsEHUmH"sH"#j}? hshsUVmH"sH"!jhshsEHUmH"sH"#j}? hshsUVmH"sH"jhshsUmH"sH"hsmH"sH"hshsmH"sH"h/+dh/+dmH"sH"(;,;.;2;4;8;:;>;(<*<,<hh5CJaJmH"sH"hMjhfB+UhfB+ 6;8;<;>;$<&<(<*<,< $da$gdMgdM21h:pM. A!7"7#7$7% GDd |J  C A? "2i&0g}f[zP\D`!}i&0g}f[zP\p` `0KxڅRJ@}36MZ0h /hҋWу|@#-+"=~~Dѓ?ӳqg7I7 7<@upYmhc"!βDhDrvjoMd@h u9W9x|Mn`_z' Y-SqzPwt vĦ9[XIl˓i|qY'2a MFyrvi|L2m?AMV,߅"y2ؕGpw'f~+E/Mҋ5꫅^U;%5kp z70#Vo2')fgPTK8KDd `J  C A? "2o6o0v6`!o6o0v6t`X POxڅQ=KA}3{|Q@J"Ie<#$ 鬬J_D-SX+xx{ ̛%KU)h+ O8Iôh0m&]4}e6%#$ڏ5@IT]L qoz fidWJP]rJ9r :Fw7L+W!fl/5-1IE3gUfP,$ Oe*ЛQ:?}1; h8:[=ߚPq/V1jFw{NǓ0<ߣ2qltU2  !"#$&'()*+,/23456K89:;<=>?@ABCDEFGHIJRoot Entry F0~d1Data %WordDocument4HObjectPool`kd0~d_1067416861 F`kd`kdOle CompObjfObjInfo  FMicrosoft Equation 3.0 DS Equation Equation.39q@InI H= R 2 +T 2 FMicrosoft Equation 3.0 DS EqEquation Native \_1067416973 F`kd`kdOle CompObj fuation Equation.39q8tmIyI R= S3.14 Oh+'0d   , 8DLT\1gisObjInfo Equation Native  T1Table7&SummaryInformation(  Normal.dot15Microsoft Office Word@vA@|@$VL_՜.+,0 hp  home" 5 1  DocumentSummaryInformation8 CompObjqB@B #81KG=K9CJ_HaJmHsHtHZ@Z  03>;>2>: 1$$ t8@&^8a$ CJ mH"sH"BAB A=>2=>9 H@8DB 0170F0XiX 1KG=0O B01;8F04 l4a .k. 5B A?8A:0BZ@B s"5:ABCJOJQJ^JaJmH"sH"L@L M5@E=89 :>;>=B8BC;  E$J @J M86=89 :>;>=B8BC;  E$H&5M_h2P].^}I)x #=Ni%Ee'z ) * > I ^ j o J % > b y  #6<Tl./)*cAB>@ACDFGIJ00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000I00I00I00I00I00I00I00I00@0@0I00I00  4(;,<!"$+"36;,< #*<::$hlntbfuz !').hklvx{ !49JM"%')-.1268<=CEGIMNQRVX\]cegimnqrvx|}$')*./3467;<@AGHLMSTXY[\`aeflmqrxz   I N j m J W r u    ' , b e B F gk\a >>@@AACDFGIJP]%&45LM^_gh 12OP\m-/]_|~HJ()wx  "#<=MNhi$%DEde&'yz   ( + = ? H I ] ^ i j m o I J $ ' = > a b x y  "#56;<STkl-/(*bc@B=>>@@AACDFGIJJ#*>>@@AACDFGIJ>>@@AACDFGIJfB+XV/+dsM#8A@HiX @@@@@@@(UnknownGz Times New Roman5Symbol3& z ArialG  MS Mincho-3 fg?5 z Courier New"1hyکf _ "_ "!774552QHX ?XV21gis1  F Microsoft Office Word MSWordDocWord.Document.89q