Tin học ngày nay đã được bắt đầu phổ cập ở các cấp THPT, THCS và bậc Tiểu học thậm chí thí điểm ở cả cấp trường mầm non, chương trình càng lên cao càng nhiều thông tin cập nhật đổi mới, việc ứng dụng tin học vào quản lý cũng như giảng dạy vô cùng phải tinh vi và sát với thực tế của từng trường từng cấp quản lý, trên thực tế thì có rất nhiều chương trình tin học để ứng dụng, nhưng quan trọng hơn là phải biết chọn lựa chương trình nào? chức năng làm gì? áp dụng vào đâu? làm như thế nào?
Tiết 12 – 13 - 14 Gi¸o ¸n ®iƯn tư tin häc líp 11 Bài Program kiemtra; var x,y :integer; Begin x :=20 ; y := 10 ; Hãy cho biết kết If x > y then x := x – y ; đoạn chương If x=y then y := y –trình x ; sau: Write( x, ‘ ‘, y) ; Readln; End 10 - 10 GiảI đáp 20 - 10 20 x > 10 10 10 y x x 10 = y y 10 x Bài Program vidu; Begin Writeln( ‘PASCAL ‘) ; Hãy cho biết‘PASCAL kết Writeln( ‘) ; đoạn Writeln( chương trình‘) ;sau: ‘PASCAL Writeln( ‘PASCAL ‘) ; Writeln( ‘PASCAL ‘) ; Readln; End GiảI đáp Trên hình in dòng có từ PASCAL Bµi 10 Gi¸o ¸n ®iƯn tư tin häc líp 11 Hiểu nhu cầu cấu trúc lặp biểu diển thuật tốn Hiểu cấu trúc lặp với số lần biết trước, cấu trúc lặp kiểm tra điều kiện trước Biết cách vận dụng đắn loại cấu trúc lặp vào tình cụ thể Viết lệnh lặp với số lần lặp biết trước, lệnh lặp kiểm tra điều kiện trước Viết thuật tốn số tốn đơn giản Gi¸o ¸n ®iƯn tư tin häc líp 11 Các tốn đặt vấn đề Bài tốn 1: Tính tổng S, với a số ngun a>2 1 1 S= + + + + a a +1 a + a + 100 Đây tốn tính tổng liên tiếpnêu 101 Hãy nhận phần tử xét hướng Ta đưa hướng giải giải sau: tốn ? PHÂN TÍCH BÀI TỐN 1 1 S= + + + + + a a +1 a + a + a + 100 S1 = 1/a S2 = S1 + 1/(a+1) S3 = S2 + 1/(a+2) S4 = S3 + 1/(a+3) S100 = S99 + 1/(a+100) NhËn xÐt: •Bắt đầu từ S2 việc tính S lặp lặp lại 99 lần theo quy luật • Ssau = Strước+ 1/i •với i chạy từ → 100 Bµi to¸n 2: TÝnh tỉng S, víi a lµ sè nguyªn vµ a>2 1 1 S= + + + + + a a +1 a + a+N cho ®Õn < 0.0001 a+N Cïng t×m tht to¸n Xt ph¸t LÇn LÇn 1 + + S = a +1 a + a LÇn N +… + a+N Mçi lÇn thùc hiƯn gi¸ trÞ tỉng S t¨ng Sau lần thực giá trị tổng S tăng thêm thªm ( với ibao =1; 2;nhiªu? ; ;N) a+i Ví dụ Nhập từ bàn phím số ngun dương M N (M2) 1 1 S = + + + + a a +1 a + a + 100 ? Hãy xác định giá trị khởi đầu S, quy luật thay đổi giá trị S số lần lặp Viết chương trình để giải tốn - S:=1/a; - S:= S + 1/(a+i); - i ch¹y tõ ®Õn 100 => Sè lÇn lỈp lµ 100 lÇn II LỈp víi sè lÇn lỈp kh«ng biÕt tríc Bµi to¸n TÝnh gi¸ trÞ tỉng S, víi a lµ sè nguyªn vµ a>2 1 1 S= + + + + + a a +1 a + a+N Cho ®Õn < 0.0001 th× dõng l¹i a+N D÷ liƯu vµo (Input) : NhËp a D÷ liƯu (Output) : Tỉng S H·y x¸c ®Þnh INPUT, OUTPUT vµ nªu tht to¸n gi¶i bµi to¸n trªn? tht to¸n Bíc 1: NhËp a Bíc 2: S:=1/a; N:=1; {Khëi t¹o S vµ N} Bíc 3: NÕu 1/(a+N) < 0.0001 => Bíc Bíc 4: S:=S+1/(a+N); N:=N+1; => quay l¹i bíc NhËp a S:=1/a ; N:=1 S 1/(a+N) >= 0.0001 § S:= S+1/(a+N); N:= N+1; Bíc 5: In S => KÕt thóc Vßng lỈp chØ dõng 1/(a+N) KÕt thóc LỈp víi sè lÇn lỈp kh«ng biÕt tríc WHILE DO ; Trong ®ã: §iỊu kiƯn: Lµ biĨu thøc quan hƯ hc l«gic C©u lƯnh: Lµ mét c©u lƯnh cđa Pascal §iỊu kiƯn Sa i §óng C©u lƯnh Chõng nµo ®iỊu kiƯn cßn ®óng th× c©u lƯnh cßn ®ỵc thùc hiƯn Mét sè vÝ dơ a Bµi to¸n ®Ỉt vÊn ®Ị: TÝnh gi¸ trÞ tỉng S, víi a lµ sè nguyªn vµ a>2 1 1 S= + + + + + a a +1 a + a+N Cho ®Õn < 0.0001 th× dõng l¹i a+N NhËn xÐt: WHILE 1/(a+N) >= 0.0001 DO Begin Chõng nµo 1/(a+N)>=0.0001 th× cßn thùc S:=S+1/(a+N); hiƯn: + T¨ng gi¸ trÞ cđa tỉng S thªm 1/(a+N) N:=N+1; + T¨ng N thªm ®¬n vÞ END; Ch¬ng tr×nh Program Bai_toan; Uses Crt; Var a,N:Integer; S:Real; BEGIN Clrscr; Write(‘Nhap gia tri cua a= ‘);Readln(a); S:=1/a;N:=1; WHILE 1/(a+N)>=0.0001 DO BEGIN S:=S+1/(a+N); N:=N+1; END; Writeln(‘Gia tri cua tong S = ‘,S:8:3); Readln; END b LËp ch¬ng tr×nh nhËp vµo hai sè nguyªn d¬ng M,N T×m ¦CLN cđa hai sè ®ã Tht to¸n B1: NhËp M,N; B2 : Chõng nµo M≠N nÕu M>N th× M:=M-N, ngỵc l¹i th× N:=N-M; B3: §Õn M=N th× => §a ¦CLN(M,N)=M; => KÕt thóc c¸c b íc viÕt ch ¬ng tr×nh B1: NhËp M,N B2 : While MN DO Begin IF M>N then M:=M-N else N:=N-M; end; B3: In ¦CLN(M,N) Tham kh¶o: D¹ng kh¸c cđa c©u lƯnh lỈp víi sè lÇn lỈp kh«ng biÕt tríc REPEAT UNTIL ; C©u lƯnh Sai §iỊu kiƯn §óng Bµi to¸n ®Ỉt vÊn ®Ị: Program Bai_toan; Uses Crt; Var a,N:Integer; S:Real; BEGIN Clrscr; Write(‘Nhap gia tri cua a= ‘);Readln(a); S:=1/a;N:=1; REPEAT {Bat dau lap} S:=S+1/(a+N); N:=N+1 UNTIL 1/(a+N)< 0.0001; {Ket thuc lap} Writeln(‘Gia tri cua tong S = ‘,S:8:3); Readln; END H·y nhí! C©u lƯnh rÏ nh¸nh IF THEN ; + D¹ng khut IF THEN + D¹ng ®Çy ®đ ESLE ; FOR TO DO … Downto DO FOR While Do ; C©u lƯnh lỈp + LỈp víi sè lÇn lỈp biÕt tríc + LỈp víi sè lÇn lỈp kh«ng biÕt tríc ... Write( x, ‘ ‘, y) ; Readln; End 10 - 10 GiảI đáp 20 - 10 20 x > 10 10 10 y x x 10 = y y 10 x Bài Program vidu; Begin Writeln( ‘PASCAL ‘) ; Hãy cho biết‘PASCAL kết Writeln( ‘) ; đoạn Writeln( chương... Trên hình in dòng có từ PASCAL Bµi 10 Gi¸o ¸n ®iƯn tư tin häc líp 11 Hiểu nhu cầu cấu trúc lặp biểu diển thuật tốn Hiểu cấu trúc lặp với số lần biết trước, cấu trúc lặp kiểm tra điều kiện trước... 11 Bài Program kiemtra; var x,y :integer; Begin x :=20 ; y := 10 ; Hãy cho biết kết If x > y then x := x – y ; đoạn chương If x=y then y := y –trình x ; sau: Write( x, ‘ ‘, y) ; Readln; End 10