viết chương trình vs chương trình cona. tính T= n! ( biết n! = 1*2*3*4*...*n và 0!=1)b. sử dụng chtrinh con tính tổ hợp Ckn = n! / k! * (n-k)! ( k,n là 2 số nguyên dương , k < = n)
viết chương trình tính chỉnh hợp k phần tử của n và tổ hợp k phần tử của n bằng cách sử dụng chương trình con có tên là Giaithua.
Cho mảng A gồm N phần tử thuộc kiểu nguyên dương (N≤500)? Viết chương trình thực hiện tính tổng các số chia hết cho 3 hoặc cho 5, phải viết và sử dụng các chương trình con sau trong chương trình:
a) Thủ tục nhập giá trị cho mảng A từ bàn phím.
b) Hàm kiểm tra số chia hết cho 3 hoặc 5
Viết chương trình tính chỉnh hợp k phần tử của n và tổ hợp k phần tử của n bằng cách sử dụng chương trình con có tên là Giaithua.
Sử dụng Python: Viết chương trình nhập vào 2 số nguyên dương n và k (k<n). Hãy tính và in ra màn hình tổng các số trong phạm vi từ 1 đến n mà chia hết cho k
Bài tập 1: Viết chương trình nhập vào n và k, tính và in ra màn hình giá trị C = Yêu cầu viết hàm Def GT(x): ….. Để tính x! (x! = 1*2*3*…*x) Bài tập 2: Viết chương trình nhập vào n nguyên dương, tính và in ra: ☠ Tổng các số chẵn từ 1 à n ☠ Tổng các số lẻ từ 1 à n ☠ Tổng các số chia hết cho k (k nguyên dương nhập vào từ bàn phím) từ 1 à n Yêu cầu viết hàm con cho mỗi việc tính tổng ở trên. Bài tập 3 Viết chương trình nhập vào số nguyên n, tính và in ra tổng các số tạo thành số đó. Bài tập 4 Cho mảng A = [1, 2, 3, 4, 5] Viết chương trình nhập vào k, tính và in ra: (mỗi yêu cầu là một hàm) Tổng các phần tử chẵn trong mảng A Tổng các phần tử lẻ trong mảng A. Tổng các phần tử nguyên tố trong mảng A
Viết lại hoàn chỉnh chương trình tích tổng 4 lũy thừa lũy thừa =a^n+b^n+c^n+d^n trong đó có sử dụng chương trình con là chương trình lũy thừa x^k
1 Viết chương trình tính n!=1.2.3.4....n vs n là số nguyên được nhập vào từ bàn phím.
2 Viết chương trình tính t=1+2+3+4+....+n vs n là số nguyên được nhập vào từ bàn phím.
Câu 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(s);
readln;
end.
Câu 2:
uses crt;
var t,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
Viết chương trình nhập vào từ bàn phím mảng B gồm N số nguyên (N<=200)và 1 số nguyên dương k:
1. Tính tổng các phần tử lẻ trong mảng A và đưa kết quả ra màn hình?
2. Tính tổng các phần tử là bội của K trong mảng A và đưa kết quả ra màn hình?
uses crt;
var a:array[1..200]of integer;
n,i,k,t,t1:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
t1:=0;
for i:=1 to n do
if a[i] mod k=0 then t1:=t1+a[i];
writeln('Tong cac phan tu le la: ',t);
writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);
readln;
end.
Viết chương trình sử dụng chương trình con (Pascal)
- Tính n! với n nguyên dương?
- Đảo ngược xâu st cho trước?
- Đếm số nguyên dương N có bao nhiêu chữ số?
- Kiểm tra tính đối xướng của một xâu st cho trước?
- Viết ra n số nguyên tố đầu tiên?
- Nhập 1 dãy số nguyên dương, sau đó viết ra số nguyen dương trong dãy?
Cái này mình viết chương trình chính thôi, bạn tự viết ctc nhé
Câu 1:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(s);
readln;
end.
Câu 2:
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=d downto 1 do
write(st[i]);
readln;
end.
Câu 3:
uses crt;
var n:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
writeln('So ',n,' co ',length(st),' chu so');
readln;
end.