Viết chương trình tính tích S sau:
1. S=1 x 2 x 3 x..... x N
2. S= 1^2 x 2^2 x 3^2 x.... x N^2
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Program hotrotinhoc;
var n,x,i: integer;
s: real;
function t1(d: integer): longint;
var i,t: longint;
begin
t:=1;
for i:=1 to d do t:=t*i;
t1:=t;
end;
function t2(a,b: integer): longint;
var i,tg: integer;
begin
tg:=1;
for i:=1 to a do tg:=tg*b;
t2:=tg;
end;
begin
write('n='); readln(n);
write('x='); readln(x);
s:=1;
for i:=1 to n do
if i mod 2=1 then s:=s-((t2(i,x))/(t1(i))) else s:=s+((t2(i,x))/(t1(i)));
write(s:1:2);
readln
end.
2:
#include <bits/stdc++.h>
using namespace std;
double s;
int n,i;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++)
s=s+(i*1.0)/((i+1)*1.0);
cout<<fixed<<setprecision(2)<<s;
return 0;
}
Bài 1:
function canbac2(x:longint):real;
begin
canbac2:=sqrt(x);
end;
Bài 2:
function tong(n:longint):longint;
var s,i:longint;
begin
s:=0;
for i:=1 to n do
s:=s+i;
tong:=s;
end;
#include <bits/stdc++.h>
using namespace std;
long long n,i,s;
int main()
{
cin>>n;
if (n%2==0)
{
s=1;
for (i=1; i<=n; i++)
if (i%2==0) s=s*i;
cout<<s;
}
else
{
s=1;
for (i=1; i<=n; i++)
if (i%2==1) s=s*i;
cout<<s;
}
return 0;
}
\(S\left(x\right)=\dfrac{1}{x^2}+\dfrac{2}{x^3}+...+\dfrac{n}{x^{n+1}}\)
\(\Rightarrow x.S\left(x\right)=\dfrac{1}{x}+\dfrac{2}{x^2}+\dfrac{3}{x^3}+...+\dfrac{n}{x^n}\)
\(\Rightarrow x.S\left(x\right)-S\left(x\right)=\dfrac{1}{x}+\dfrac{1}{x^2}+\dfrac{1}{x^3}+...+\dfrac{1}{x^n}-\dfrac{n}{x^{n+1}}\)
\(\Rightarrow\left(x-1\right)S\left(x\right)=\dfrac{1}{x}.\dfrac{1-\left(\dfrac{1}{x}\right)^n}{1-\dfrac{1}{x}}-\dfrac{n}{x^{n+1}}=\dfrac{x^n-1}{x^n\left(x-1\right)}-\dfrac{n}{x^{n+1}}=\dfrac{x^{n+1}-x-n\left(x-1\right)}{x^{n+1}\left(x-1\right)}\)
\(\Rightarrow S\left(x\right)=\dfrac{x^{n+1}-\left(n+1\right)x+n}{x^{n+1}\left(x-1\right)^2}\)
S=1+4+7+..+n
Tổng S có số số hạng là \(\frac{\left(n-1\right)}{3}+1=\frac{n+2}{3}\)
Tổng S có giá trị là
\(S=\frac{\left(n+1\right)}{2}.\frac{n+2}{3}=\frac{\left(n+1\right)\left(n+2\right)}{6}\)
program ho_tro;
uses crt;
var s,n,i: integer;
begin
clrscr;
writeln(' nhap so n:'); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(' tich cua day tren la:',s);
readln;
end.
program ho_tro;
uses crt;
var s,n,i: integer;
begin
clrscr;
writeln(' nhap so n:'); readln(n);
s:=1;
for i:=1 to n do
s:=s*i*i;
writeln(' tich cua day tren la:',s);
readln;
end.