Bài tập và hướng dẫn Pascal THCS 1

... sau : ( 1 + 1/ 1 2 ) ( 1 + 1/ 2 2 ) … ( 1 + 1/ n 2 ) Var i , n : Byte ; p : Real ; Begin Write(' Nhap n : ') ; Readln (n) ; p := 1 ; For i := 1 To n Do p := p * ( 1 + 1/ sqr(i) ... ') ; Readln ; END . Bài 3 : Cho số tự nhiên n , hãy lập trình để tính các tổng sau : a. a. 1 + 1/ 2 2 + 1/ 3 2 + … + 1/ n 2 b. b. 1 + 1/ 2! + 1/ 3! +...

Ngày tải lên: 26/12/2013, 20:07

... Writeln('x': 10 , 'y': 10 , 'z' :10 ); i:=4; For X:=0 to (a -1) do For Y:=0 to (b -1) do For Z:=0 to (c -1) do If (X+Y+Z=N) then Begin Writeln(x: 10 , y: 10 , z: 10 ); inc(i); ... phantich(N1:longint); Begin If N1> ;1 then Begin u:=2; dem:=0; Repeat If (N1 mod u=0) then Begin inc(dem); a[dem]:=u; N1:=N1 div u; End Else i...

Ngày tải lên: 26/12/2013, 20:08

... l:=copy(lop ,1, 2); If (l=&apos ;10 ')and(diem>max10)and(diem>8.0) then max10:=diem Else If (l=&apos ;11 ')and(diem>max 11) and(diem>8.0) then max 11: =diem Else If (l=&apos ;12 ')and(diem>max12)and(diem>8.0) ... do Begin n:=n +1; Read(f,ds[n]); End; Close(f); End; Procedure Timgioi; Var i: integer; max10,max 11, max12: real; l: string; Begin max...

Ngày tải lên: 26/12/2013, 20:08

... Copyfile(fi1,fi2: string); Var nread,nbuf: word; buf: array [1 1024] of byte; f1,f2: file; Begin Assign(f1,fi1); Reset(f1 ,1) ; Assign(f2,fi2); Rewrite(f2 ,1) ; nbuf: =10 24; Repeat Blockread(f1,buf,nbuf,nread); ... '); Line (10 0,Y0,550,Y0); {Truc Ox} OutTextXY(540,Y0 +10 ,'x'); For k:=-3 to 3 do Begin i:=k*E+X0; j:=Y0; Str(k,S); OutTextXY(i -10 ,j+8,S); Bar...

Ngày tải lên: 26/12/2013, 20:08

... () 1 1 X zz − =+ () 12 21 1 33 Hz z z − − =+ + () () () . H Yz XzHz= () 12 12 1 22 22 2 0 1 . 2 jl jl H l Yz Xze Hze ππ −− ↓ = ⎛⎞⎛⎞ = ⎜⎟⎜⎟ ⎝⎠⎝⎠ ∑ () 11 22 11 1 1 22 2 2 2 () ( ) 1 [()() ... 7 Bài 1. 10 Ta có: () 2 1 12 11 lim 12 1 lim 12 1 lim 0 2 = + + = + + = + = ∞→∞→ = ∞→ ∑ N N N N nu N P NN N n N Do đó, tín hiệu nhảy bậc đơn vị là một tín...

Ngày tải lên: 12/09/2012, 16:20

... - Bài tập 3 1. 3 - Hướng dẫn giải bài tập tiêu biểu và đáp số 10 Phần II - Tài sản lưu động - Vốn lưu động trong doanh nghiệp 15 2 .1 - Tóm tắt nội dung cơ bản 15 2.2 - Bài tập 15 2.3 - Hướng ... hoạch khấu hao TSCĐ (tương tự bài 7) Bài số 14 : Đáp số: 1. NG = 15 .4 81, 01 (triệu đồng) 2. MK = 1. 548 ,10 1 (triệu đồng) + MK trả nợ vay = (15 .12 0 *...

Ngày tải lên: 25/10/2012, 16:55

... KT Hưng Yên 11 Bài tập và hướng dẫn giải bài tập lập trình PLC S7-300 Giảng viên: Nguyễn Xuân Công – ĐHSP KT Hưng Yên 63 Bài tập và hướng dẫn giải bài tập lập trình ... Bài tập và hướng dẫn giải bài tập lập trình PLC S7-300 Giảng viên: Nguyễn Xuân Công – ĐHSP KT Hưng Yên 14 Bài tập...

Ngày tải lên: 20/08/2013, 15:35

... = Bài 5: Giải PT: 1 2 20 2 1 2 1 2 1 2 1 ( ) n n n n C C C n + + + + + + = − ∈ ¥ Giải ( ) 1 2 20 2 1 2 1 2 1 2 1 0 1 1 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 1 0 1 0 1 2 2 1 2 1 2 1 2 1 2 1 ... Nội, ngày 11 tháng 04 năm 2 010 Điều kiện: 1 1 1 1 0 1 (1) 1 6 5 0 1 1 0 1 (2) 5 2 1 ( 1) ! 1 ! (1) . . 5( 1) ( 1) 6( )...

Ngày tải lên: 20/10/2013, 01:15