Viết chương trình sử dụng cấu trúc lặp a) Có N bạn xếp thành 1 hàng hỏi có bnh cách xếp ( N nhập từ bàn phím, N >2 ) b) Nhập N, k Tính tổ hợp chập k

0 bình luận về “Viết chương trình sử dụng cấu trúc lặp a) Có N bạn xếp thành 1 hàng hỏi có bnh cách xếp ( N nhập từ bàn phím, N >2 ) b) Nhập N, k Tính tổ hợp chập k”

1. Program ct_lap;

   Var i,n,s,k,t,s1,s2,s3 : longint;

   Begin

   Write (‘ Nhap so lieu la so nguyen lon hon 0 ‘);

   Write (‘ Hay nhap so hoc sinh: ‘);

   Readln ( n );

   S := 1;

   For i := 1 to n do S := S * i;

   Writeln (‘ So cach xep ‘, n ,’ hoc sinh la: ‘, n ,’ ! = ‘, S );

   Write (‘ Nhap so N: ‘);

   Readln ( n );

   Write (‘ Nhap so k : ‘);

   Readln ( k );

   S1 := 1;

   S2 :=1;

   S3 := 1;

   For i : = 1 to n do S1 := S1 * n;

   For i := 1 to k do S2 := S2 * k;

   t := n-k;

   For i:= 1 to t do S3 := S3 * t;

   S := S1/(S2*S3);

   Write (‘ To hop ‘, n ,’ chap ‘, k ,’la : ‘, S );

   End.

    

   Bình luận