Viết chương trình tính tổng :
1, S= \(\dfrac{1}{2}+\dfrac{1}{4}+\dfrac{1}{6}+....+\dfrac{1}{2n}\)
2,S= \(\dfrac{1}{1!}+\dfrac{1}{2!}+\dfrac{1}{3!}+...+\dfrac{1}{n!}\)
1. Viết chương trình tính tổng sau:
a) S = \(1+\dfrac{1}{2}+\dfrac{1}{3}+...+\dfrac{1}{n}\)
b) S = \(1+\dfrac{1}{3}+\dfrac{1}{5}+...+\dfrac{1}{n}\)
2. Viết chương trình nhập 2 số nguyên a và b. Tìm bội chung nhỏ nhất
3. Cho một dãy số gồm N phân tử:
- Tính tổng các phân tử trong dãy số
- Tìm phân tử lớn nhất
- In ra màn hình các số nguyên tố có trong dãy
BÀI 3
uses crt;
var a: array[1..100] of integer;
i,n,max,s,j: integer;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);
for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
max:=a[1];
s:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
s:=s+a[i];
end;
writeln('so lon nhat trong day tren la:',max);
writeln('tong bang:',s);
writeln('so nguyen to trong mang la:');
j:=1;
for i:=1 to n do
if a[i]>1 then
begin
repeat
inc(j);
until (a[i] mod j=0);
if j>(a[i] div 2) then writeln(a[i]);
j:=1;
end;
readln
end.
1. Viết chương trình yêu cầu nhập số nguyên N từ bàn phím. Tính tổng các số nguyên đầu tiên của N theo công thức S= \(\dfrac{1}{3}+\dfrac{1}{5}+\dfrac{1}{7}...+\dfrac{1}{2N+1}\)(với N \(\ge\)1). Sau đó in kết quả ra màn hình.
2. Cho dãy số sau: 2; 5; 8; 11. Viết chương trình yêu cầu nhập số nguyên N từ bàn phím. Tính tích E, sau đó in ra màn hình.
E= 2.5.8.11.. } N số nguyên
Bài 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(2*i+1);
writeln(s:4:2);
readln;
end.
Viết chương trình tính \(S=1+\dfrac{1}{2}+\dfrac{1}{3}+\dfrac{1}{4}+...+\dfrac{1}{n}+...\)cho đến khi S>a với a là một số cho trước ,n là một số nguyên dương
a, Tính: M = \(1+\dfrac{1}{5}+\dfrac{3}{35}+...+\dfrac{3}{9603}+\dfrac{3}{9999}\)
b, Chứng tỏ: S = \(\dfrac{1}{4^2}+\dfrac{1}{6^2}+\dfrac{1}{8^2}+...+\dfrac{1}{\left(2n\right)^2}< \dfrac{1}{4}\left(n\in N,n\ge2\right)\)
a: \(M=\dfrac{6}{5}+\dfrac{3}{2}\left(\dfrac{2}{5\cdot7}+...+\dfrac{2}{97\cdot99}+\dfrac{2}{99\cdot101}\right)\)
\(=\dfrac{6}{5}+\dfrac{3}{2}\left(\dfrac{1}{5}-\dfrac{1}{101}\right)\)
\(=\dfrac{6}{5}+\dfrac{3}{10}-\dfrac{3}{202}=\dfrac{150}{101}\)
b:
Viết chương trình tính \(S=1+\dfrac{1}{2}+\dfrac{1}{3}+\dfrac{1}{4}+...+\dfrac{1}{n}+...\)cho đến khi S>a với a là một số cho trước n là một số nguyên dương (ghi rõ ràng được không ạ)
#include <bits/stdc++.h>
using namespace std;
double s,a;
int i,n;
int main()
{
cin>>a;
s=0;
n=0;
while (s<=a)
{
n=n+1;
s=s+1/(n*1.0);
}
cout<<n;
return 0;
}
viết chương trình:Tính tổng S = 1+ \(\dfrac{1+2}{2!}+\dfrac{1+2+3}{3!}+...+\dfrac{1+2+3+...+n}{n!}\)
2!=1.2
3!=1.2.3
Thanks!
Program HOC24;
var s: real;
i,n: integer;
function tong(x: integer): longint;
var j: integer;
t: longint;
begin
t:=0;
for j:=1 to x do t:=t+j;
tong:=t;
end;
function tich(s: integer): longint;
var j1: integer;
t1: longint;
begin
t1:=1;
for j1:=1 to s do t1:=t1*j1;
tich:=t1;
end;
begin
write('Nhap N : '); readln(n);
for i:=1 to n do s:=s+tong(i)/tich(i);
write('S = ',S:2:2);
readln
end.
uses crt;
var s:real;
i,n:longint;
{------------ham-tinh-giai-thua------------------------}
function gthua(x:longint):real;
var gt:real;
i:longint;
begin
gt:=1;
for i:=1 to x do
gt:=gt*i;
gthua:=gt;
end;
{-------------------chuong-trinh-con-tinh-tong---------------------}
function tong(x:longint):real;
var t:real;
i:longint;
begin
t:=0;
for i:=1 to x do
t:=t+i;
tong:=t;
end;
{------------------chuong-trinh-chinh--------------------}
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+(tong(i)/gthua(i));
writeln('Ket qua la: ',s:4:2);
readln;
end.
viết chương trình tính tổng s=1+\(\dfrac{1}{1}+\dfrac{1}{2}+\dfrac{1}{3}+.....+\dfrac{1}{N}+\dfrac{1}{N+1}\)
var n,i:integer;
s:real;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+(1/i)+(1/(i+1));
writeln(' Tong la: ',s:0:1);
readln;
end.
Tính tổng: a) \(S=2C^2_{2n}+4C^4_{2n}+6C^6_{2n}+...+2nC^{2n}_{2n}\)
b) \(S=\dfrac{1}{2}C^0_{2n}+\dfrac{1}{4}C^2_{2n}+\dfrac{1}{6}C^4_{2n}+...+\dfrac{1}{2n+2}C^{2n}_{2n}\)
Viết chương trình tính tổng:
S=\(1+\dfrac{1}{2}+\dfrac{1}{3}+\dfrac{1}{4}+....+\dfrac{1}{n}\)
program bai1;
var s,n,i:longint;
begin
write('N= ');
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
write('S= ',s);
readln
end.
Var i , n : integer ;
S : real;
Begin
write ( 'n =') ; read (n) ;
S:= 0;
For i:=1 to n do S : = S + 1/i;
Writeln (S);
Readln;
End.