TRƯỜNG THPT ĐỨC THỌ I HOẠT ĐỘNG 1: KHỞI ĐỘNG Những phát biểu sau nói chương trình con? a.Chương trình chương trình ngắn b.Chương trình dãy lệnh xây dựng để giải tốn c.Chương trình gọi từ chương trình d.Chương trình thuận lợi cho việc viết, kiểm tra, tổ chức sử dụng lại e.Chương trình làm cho việc nâng cấp sửa chữa trở nên rờm rà f.Chương trình thực (được gọi) từ nhiều vị trí chương trình II HOẠT ĐỘNG : HÌNH THÀNH KIẾN THỨC Phân loại cấu trúc chương trình a Phân loại II HOẠT ĐỘNG : HÌNH THÀNH KIẾN THỨC Phân loại cấu trúc chương trình a Phân loại b Cấu trúc thực chương trình II HOẠT ĐỘNG : HÌNH THÀNH KIẾN THỨC PROGAM baitoan1; Var a,b,c,d,e,f,x,y,z,t,m,n ,i: integer; S:longint; Function LT(a,x:integer) : Longint; Var S1:Longint; i : integer; Begin S1:= 1; For i:=1 to x S1:= S1 * a; LT := S1; End; Chương trình BEGIN Writeln(‘Nhap co so:’); readln(a,b,c,d,e,f); Writeln(‘Nhap so mu:’); readln(x,y,z,,e,f); S:= LT(a,x) + LT(b,y) + LT(c,z)+ LT(d,t)+ LT(e,m)+ LT(f,n) Writeln(‘Tong la S=‘, S) Readln END Program tong_luy_thua; Ví dụ 1: S= + + + Uses crt; Var a,b,c,d, n,m,p,q :integer; S:longint; Function luythua(a,n:integer): longint; Var i: integer; S : longint; begin S:=1; For i:=1 to n S:=S*a; Luythua:=S; end; BEGIN Write(‘ Nhap vao cac co so a,b,c,d ‘); readln(a,b,c,d); write(‘ Nhap vao cac so mu m,n,p,q: ’); readln(n,m,p,q); s:= luythua(a,n)+ luythua(b,m)+ luythua(c,p)+ luythua(d,q); Writeln(‘ Tong luy thua =’, S:7:2); Readln; END Program tong_luy_thua; Ví dụ 1: S= + + + Uses crt; Var a,b,c,d,S , n,m,p,q :integer; S: Longint; Function Function luythua(a,n:integer): luythua(2,4): Longint; longint; Var i: integer; S: Longint; begin S:=1; For i:=1 i:=1 to For to4n doLt:=Lt*2 S:=Lt*a; Luythua:=16; Luythua:=Lt; end; BEGIN Write(‘ Nhap vao cac co so a,b,c,d ‘); readln(2,3,4,5); write(‘ Nhap vao cac so mu m,n,p,q: ’); readln(4,3,2,1); 5+ luythua(2,4) +luythua(b,m) 16 + luythua(d,q); S:= luythua(a,n) 16 + 27 l+ uythua(c,p) + Writeln(‘ =’, S:0:0); Tong luy Tong thua luy S =thua 64 Readln; END Program HINHCHUNHAT; Uses crt; Ví dụ: In hình hình chữ nhật Procedure veHCN ; Begin Writeln('* Writeln('* * * * * * * * *'); Writeln('* Writeln; End; * * * * * * * *'); *'); BEGIN Clrscr; Writeln(‘ket qua:’); veHCN ; veHCN ; veHCN ; veHCN ; veHCN ; Readln END ket qua: ********* * * ********* ********* * * ********* ********* * * ********* ********* * * ********* ********* * * * *8 ******* Coù loại chương trình Hàm Thủ tục Cấu trúc chương trình gồm phần: Phần đầu, phần khai báo phần thân Các thuật ngữ: Tham số hình thức, tham số thực sự, biến cục bộ, biến toàn cục Để thực chương trình con, cần phải có lệnh gọi chương trình con, bao gồm tên chương trình tham số thực (nếu có) ... doLt:=Lt *2 S:=Lt*a; Luythua:=16; Luythua:=Lt; end; BEGIN Write(‘ Nhap vao cac co so a,b,c,d ‘); readln (2, 3,4,5); write(‘ Nhap vao cac so mu m,n,p,q: ’); readln(4,3 ,2, 1); 5+ luythua (2, 4) +luythua(b,m)... luy thua =’, S:7 :2) ; Readln; END Program tong_luy_thua; Ví dụ 1: S= + + + Uses crt; Var a,b,c,d,S , n,m,p,q :integer; S: Longint; Function Function luythua(a,n:integer): luythua (2, 4): Longint;... hình thức, tham số thực sự, biến cục bộ, biến toàn cục Để thực chương trình con, cần phải có lệnh gọi chương trình con, bao gồm tên chương trình tham số thực (nếu có)