Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Công Tỉnh

Tính giá trị biểu thức bằng Pascal

a, S=n! (với n là số nguyên nhập từ bàn phím)

b, Tổ hợp chập k của n phân tử được tính theo công thức \(A=\frac{n!}{\left(n-k\right)!}\)(với k,n là số nguyên nhập từ bàn phím)

Lập chương trình giá trị biểu thức S,A.Hiển thị kết quả ra màn hình

Minh Lệ
11 tháng 4 2019 lúc 17:45

Lời giải :

a)

program hotrotinhoc ;

var S,n : integer ;

begin

S:=1;

for i:= 1 to n do

S:=S*i ;

write('S=',S);

readln

end.

b)

program hotrotinhoc ;

var n,k,i,j,a : integer ;

A: Real ;

begin

write('nhap n='); readln(n);

write('nhap k='); readln(k);

for i:= 1 to n do

for j:= 1 to k do

for a:= 1 to (n-k) do

A:=(i*i)/(a*a) ;

write('A=',A);

readln

end.

Nguyễn Lê Phước Thịnh
18 tháng 1 2020 lúc 23:36

uses crt;

var n,i:integer;

s,gt:int64;

a:real;

begin

clrscr;

write('nhap n='); readln(n);

write('nhap k='); readln(k);

s:=1;

for i:=1 to n do

s:=s*i;

writeln('S=',s);

gt:=1;

for i:=1 to n-k do

gt:=gt*i;

a:=s/gt;

writeln('A=',a:4:2);

readln;

end.

Khách vãng lai đã xóa
Nguyễn Huy Hoàng Sơn
10 tháng 2 2020 lúc 22:02

uses crt;

var n,i:integer;

s,gt:int64;

a:real;

begin

clrscr;

write('nhap n='); readln(n);

write('nhap k='); readln(k);

s:=1;

for i:=1 to n do

s:=s*i;

writeln('S=',s);

gt:=1;

for i:=1 to n-k do

gt:=gt*i;

a:=s/gt;

writeln('A=',a:4:2);

readln;

end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Quản Gia Lynh
Xem chi tiết
Quỳnh
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
duyy
Xem chi tiết
Hoài Right
Xem chi tiết
Tích Nguyệt
Xem chi tiết
Quyen Duong
Xem chi tiết
Yeu DUong nhat
Xem chi tiết