khoa trang 51 trong phần câu hỏi và bài tập.
+ Hãy chuyển câu lệnh rẽ nhánh ở câu a và câu b thành câu lệnh trong pascal.
+ VCT tính tổng ∑ từ 1 đến 50 của n /(n+1).
? Để tính tổng câu a ta thực hiện câu lệnh lặp dạng nào? - Đúng.Cho vòng lặp for chạy từ đâu đến đâu ?
+ Ta thực hiện câu lệnh lặp dạng for - do - Từ 1 đến 50 4/- Viết câu lệnh rẽ nhánh tính : x2 + y2 nếu x2 + y2 <= 1. a) Z = x + y nếu x2 + y2 >1 và y >=x. 0,5 nếu x2 + y2 >1 và y <x. If (sqr(x) + sqr(y)) <= 1 Then Z := sqr(x) +sqr(y) Else If y >= x Then Z := x+y Else z := 0.5 ;
{x } + {y} nếu điểm (x,y) thuộc b) Z = hình tròn bk r (r>0),tâm (a,b). x + y trong trường hợp còn lại
If ( sqr(x-q) + sqr(y-b)) <= sqr(r) Then z := abs(x) + abs(y) Else z := x + y ; 5/- Lập trình tính : a) Y = 50 1 1 n n n = + ∑ Program tonga; uses crt ; Var y : real ; n :byte ; Begin clrscr ; y :=0 ;
Bài Tập Chương III
? Để tính tổng câu b ta thực hiện câu lệnh lặp dạng nào? - Cách làm tương tự như câu a. Nhưng do số lần lặp không biết trước.
? Hỏi có bao nhiêu con mỗi loại + Ta thực hiện câu lệnh lặp dạng While - do . + 14 chó và 22 gà For n := 1 to 50 do Y := y + n/(n+1) ; Writeln(‘ tong=’, y :8:1) ; Readln ; End. b) e(n)= 1 + 1 1 ... 1 ... 1! 2!+ + + +n! cho đến khi n1! < 2 x 10-6 đưa giá trị e(n) ra màn hình. Program tongb; uses crt ; Var n : longint ; e,sh : real ; Begin clrscr ; sh := ½ ; n := 2 ; e := 2 + sh ; while sh >= 2*1E-6 do Begin inc(n) ; sh := sh* (1/n) ; e := e + sh ; End ;
writeln(‘Gia tri cua e(n) la :’, e :8:2) ; readln ;
End.
6/- Lập trình để giải bài toán cổ sau :
Vừa gà vừa chó . Bó lại cho tròn. Ba mươi sáu con. Một trăm chân chẳn.
Hỏi có bao nhiêu con mỗi loại ?
Program ga_cho ; Uses crt ; Var ga,cho : integer ; Begin For cho := 1 to 24 do Begin
Bài Tập Chương III
? Hãy tìm Input và Output của bài này ?
? Hãy tìm Input và Output của bài này ?
+ Input : nhập tuoi cha va tuoi con + Output : sau bao nhiêu năm thì tuổi của cha gấp đôi tuổi con.
+ Input : nhập vao số tiền gủi(A) và số tiền rút ra(B).
+ Output : sau bao nhiêu tháng thì người đó rút ra số tiền (B)
Ga := 36 – cho ;
If ga + 2 * cho = 50 then
Writeln(‘Ga :’, ga , ‘cho : ‘, cho ) ; End ;
Readln ;
End.
7/- Nhập từ bàn phím tuổi của cha và con(hiện tại tuổi của cha lớn hơn hai lần tuổi của con và tuổi của cha hơn tuổi con ít nhất là 25). Đưa ra màn hình câu trả lời cho câu hỏi “Bao nhiêu năm nữa thì tuổi của cha gấp đôi tuổi tuổi con” ?
Program tinhtuoi;
Uses crt ;
Var tuoicha, tuoicon , nam :word ;
Begin
Clrscr;
Write(‘nhap vao tuoi cha va tuoi con’); Write(‘tuoi cha > 2* tuoi con va tuoicha- tuoicon >=25 ‘);
Readln(tuoicha,tuoicon) ; Nam :=0 ;
While tuoicha <> 2*tuoicon do
Begin
Tuoicha := tuoicha + 1 ; Tuoicon := tuoicon +1 ; Nam := nam + 1 ; End ;
Writeln(‘ sau ‘, nam , ’ nam tuoi cha gap doi tuoi con’) ;
Readln ;
End.
8/- Một người gởi tiết kiệm không kỳ hạn với số tiền A đồng với lãi suất 0.3% mỗi tháng. Hỏi sau bao nhiêu tháng, người đó rút hết tiền thì sẽ nhận được số tiền ít nhất là B đồng ? Biết rằng với việc gởi tiết kiệm không kì hạn thì lãi không được cộng vào vốn.
Bài Tập Chương III
Program tietkiem ;
Uses crt ;
Const laisuat = 0.03 ;
Var tiengui, tienrutve, luu : real ; Thang : integer ;
Begin
Clrscr;
Write(‘nhap vao so tien gui : ‘) ; Readln(tiengui) ;
Luu := tiengui ;
Write(‘ So tien co khi rut ve :’) ; Readln(tienrutve) ;
Thang :=0 ;
While tiengui < tienrutve do
Begin
Tiengui := tiengui + luu * laisuat ; Thang := thang + 1 ;
End ;
Write(‘gui’, luu :10:2, ‘ dong, sau ‘ , thang ,’ thang’) ;
Writeln(‘ se nhan duoc so tien ‘, tienrutve :10:2, ‘đong’) ;
Readln ;
End.
4. Củng cố :(4’)
- Khi viết chương trình nếu biến là kiểu số thực thì chú ý cách xuất ra màn hình theo dạng có quy cách. Khi viết chương trình cần chú ý các dấu trong các lệnh Pascal.
5. Dặn dò :(1’)
- Học bài và làm thêm các bài tập trong sách bài tập. Để chuẩn bị Kiểm Tra 1 Tiết. Hoà Lợi, ngày……Tháng ……Năm 2008
Bài 11 Kiểu Mảng (Một Chiều )
Tuần : 9 Ngày soạn : 10/09/08 Tiết : 18 Ngày Kiểm : / /