Tiet 40

 Ch¬ng tr×nh nµy dïng ®Ó lµm g×? Program TAMGIAC; Uses crt; Var a,b,c,s,p : real; Begin Clrscr; Writeln( BAI TOAN TAM GIAC: );‘ ’ Write('nhap a =');readln(a); Write ('nhap b =');readln(b); Write('nhap c =');readln(c); If ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then Begin p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln('Chu vi tam giac:',2*p:4:2) ; Writeln('Dien tich tam giac:',s:4:2); End Else Writeln(a, , , b, , , c, khong phai la ba canh cua tam giac') ; ’ ‘ ’ ‘ ‘ Readln; End.  Ta cã thÓ chia bµi to¸n nµy thµnh mÊy bµi to¸n con? §ã lµ nh÷ng bµi to¸n con nµo? VD: TÝnh tæng bèn lòy thõa: TLuythua = a n + b m + c p + d q a n b m c p d q  Ta cã thÓ chia bµi to¸n thµnh 4 bµi to¸n con. program Tinh_tong; var TLuythua, Luythua1,Luythua2, Luythua3, Luythua4: real; a, b, c, d:real; i, n, m, p, q: integer; begin write('Nhap du lieu thao thu tu a, b, c, d, m, n, p, q'); readln(a, b, c, d, m, n, p, q); Luythua1:=1.0 For i:=1 to n do Luythua1:=Luythua1*a; Luythua2:=1.0 For i:=1 to m do Luythua2:=Luythua2*b; Luythua3:=1.0 For i:=1 to p do Luythua3:=Luythua3*c; Luythua4:=1.0 For i:=1 to q do Luythua4:=Luythua4*d; TLuythua:=Luythua1+Luythua2+Luythua3+Luythua4; Writeln('Tong luy thua =', TLuythua:8:4); Readln end. a n b m c p d q  Quan s¸t c¸c ®o¹n lÖnh nµy ta cã nhËn xÐt g×? Bµi 17 1. Kh¸i niÖm Ch¬ng tr×nh con a. Kh¸i niÖm program Tinh_tong; var TLuythua, Luythua1,Luythua2, Luythua3, Luythua4: real; a, b, c, d:real; i, n, m, p, q: integer; begin write('Nhap du lieu thao thu tu a, b, c, d, m, n, p, q'); readln(a, b, c, d, m, n, p, q); Luythua1:=1.0 For i:=1 to n do Luythua1:=Luythua1*a; Luythua2:=1.0 For i:=1 to m do Luythua2:=Luythua2*b; Luythua3:=1.0 For i:=1 to p do Luythua3:=Luythua3*c; Luythua4:=1.0 For i:=1 to q do Luythua4:=Luythua4*d; TLuythua:=Luythua1+Luythua2+Luythua3+Luythua4; Writeln('Tong luy thua =', TLuythua:8:4); Readln end. var j: integer; Tich:=1.0; for j:=1 to k do Tich:=Tich*x; 1. Khái niệm Chơng trình con Chơng trình con là một dãy lệnh mô tả một số thao tác nhất định và có thể đợc thực hiện (đ ợc gọi) từ nhiều vị trí trong chơng trình. Chơng trình con là một dãy lệnh mô tả một số thao tác nhất định và có thể đợc thực hiện (đ ợc gọi) từ nhiều vị trí trong chơng trình. a. Khái niệm program Tinh_tong; var TLuythua, Luythua1,Luythua2, Luythua3, Luythua4: real; a, b, c, d:real; i, n, m, p, q: integer; begin write('Nhap du lieu thao thu tu a, b, c, d, m, n, p, q'); readln(a, b, c, d, m, n, p, q); Luythua1:=1.0 For i:=1 to n do Luythua1:=Luythua1*a; Luythua2:=1.0 For i:=1 to m do Luythua2:=Luythua2*b; Luythua3:=1.0 For i:=1 to p do Luythua3:=Luythua3*c; Luythua4:=1.0 For i:=1 to q do Luythua4:=Luythua4*d; TLuythua:=Luythua1+Luythua2+Luythua3+Luythua4; Writeln('Tong luy thua =', TLuythua:8:4); Readln end. var j: integer; Tich:=1.0; for j:=1 to k do Tich:=Tich*x; 1. Khái niệm Chơng trình con Chơng trình con là một dãy lệnh mô tả một số thao tác nhất định và có thể đợc thực hiện (đ ợc gọi) từ nhiều vị trí trong chơng trình. Chơng trình con là một dãy lệnh mô tả một số thao tác nhất định và có thể đợc thực hiện (đ ợc gọi) từ nhiều vị trí trong chơng trình. a. Khái niệm *Lu ý: Chơng trình con chỉ cần viết một lần nhng có thể đợc thực hiện nhiều lần trong chơng trình.