Bai 18 Chuong Trinh Con ( Ham- Thu Tuc)

... End; (* ******** bat dau chuong trinh chinh *********) Begin Write( ' Nhap so thu nhat : ' ); Readln(m); Write( ' Nhap so thu hai: ' ); Readln(n); usc := USCLN(m, ... Write( Canh dai, ngan va cao cua thua ruong thu nhat: ); Readln(a1, b1, h1); Write( Canh dai, ngan va cao cua thua ruong thu hai: ); Readln(a2, b2, h2); s := DTHinhThang(a...

Ngày tải lên: 02/10/2013, 21:20

... End; (* ******** bat dau chuong trinh chinh *********) Begin Write( ' Nhap so thu nhat : ' ); Readln(m); Write( ' Nhap so thu hai: ' ); Readln(n); usc := USCLN(m, ... Write( Canh dai, ngan va cao cua thua ruong thu nhat: ); Readln(a1, b1, h1); Write( Canh dai, ngan va cao cua thua ruong thu hai: ); Readln(a2, b2, h2); s := DTHinhThang(a...

Ngày tải lên: 09/10/2013, 12:20

Ngày tải lên: 29/05/2013, 23:19

... quyết một bài toán con cụ thể nào đó. Các khối lệnh sẽ được xây dựng dưới dạng các chương trình con (CTC). Sau đó, chương trình chính sẽ được xây dựng nên từ các chương trình con này. Chương ... các bài toán con.  Vấn đề đặt ra: Phải cấu tạo chương trình như thế nào để cho chương trình dễ đọc, dễ hiểu. 1. Chương trình con:  Cần định hướng chương trình thành các khối (các...

Ngày tải lên: 29/05/2013, 23:19

... := mau div UCLN(tu,mau); Writeln(‘ Phan so toi gian = ‘, c, ‘ / ‘, d); Readln; END. Write(‘Nhap vao tu so va mau so:‘); C := 6 div d := 10 div UCLN(6,10) UCLN(6,10); Writeln(‘ Phan so toi gian ... nhất định (gọi là ctc). Sau đó ghép nối các chương trình con thành chương trình chính. Nhóm trưởng V i ệ c A Vi c Bệ 1. Ch ng trình con (ctc)ươ 06/06/13 Hãy nh !ớ  Chương trình con l...

Ngày tải lên: 06/06/2013, 01:25

... := 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. Tich ... 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 := Luyt...

Ngày tải lên: 05/07/2013, 01:25

... chính: Begin write('hay nhap du lieu theo thu tu a,b,c,d,n,m,p,q'); readln(a,b,c,d,n,m,p,q); Tluythua:=luythua(a,n)+luythua(b,m)+luythua(c,p)+luythua(d,q); writeln('Tong luy thua:=',Tluythua); ... 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 luythu...

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

... F(x)= 5X Cho hàm số F(x)= 5X 2 2 + 3X + 3X + 1 + 1 Tính: A= F(2) +F(F(1)) Tính: A= F(2) +F(F(1)) Vd2: D : = SQRT(sqr(b) - 4*a*c); Ví dụ: Ví dụ: Sqr(4)=16 Sqr(4)=16 Delete(St, ... m) Luythua( a, m) Luythua( b, n) Luythua( b, n) Luythua( c, p ) ; Luythua( c, p ) ; + + T:= T:= Nhap du lieu a,b,c,m,n,p a = 2 ; m = 2 b = 3; n = 3 c = 4 ; p = 4 Luythua( Luythua( 2 2 , ......

Ngày tải lên: 22/07/2013, 01:26

... mớn nƣớc mũi đích tới ngày rời thuyền trƣởng số hành khách Tên tắt Tên tiếng Anh Mã số thu Loại tàu Số điện thoại Mã số thu mớn nƣớc lái số thuyền viên trạng thái nơi xuất ... HÀNG (Mã hàng, tên hàng, tính chất, loại hàng). c. CẢNG (Mã cảng, tên cảng, loại cảng, khu vực). d. CHỦ TÀU (Mã chủ tàu, tên chủ tàu, tên tắt, tên tiếng Anh, địa chỉ, số điện thoại, mã số thu ). ....

Ngày tải lên: 10/12/2013, 14:59

... HÀNG (Mã hàng, tên hàng, tính chất, loại hàng). c. CẢNG (Mã cảng, tên cảng, loại cảng, khu vực). d. CHỦ TÀU (Mã chủ tàu, tên chủ tàu, tên tắt, tên tiếng Anh, địa chỉ, số điện thoại, mã số thu ). e. ... thu ). e. ĐẠI LÝ (Mã đại lý, tên đại lý, tên tắt, địa chỉ, số điện thoại, mã số thu ). f. VỊ TRÍ NEO (Mã vị trí neo, tên vị trí neo, loại vị trí neo, độ sâu, độ dài, mã cảng). g. NHÂN VIÊN...

Ngày tải lên: 21/12/2013, 20:24