Sửa lại đề bài : \(A=....+\dfrac{1}{n\left(n+2\right)}\)

Program HOC24;

var i,n: integer;

a: real;

begin

write('Nhap n: '); readln(n);

a:=0;

for i:=1 to n do a:=a+1/(n*(n+2));

write('A = ',a:6:2);

readln

end.

Bước 1: Nhập N

Bước 2: A←0; i←1;

Bước 3: Nếu i<N thì in ra kết quả và kết thúc

Bước 4: A←A+1/(i*(i+2));

Bước 5: i←i+1;

Thuật toán: 

Bước 1: Nhập n

Bước 2: i←1; a←0;

Bước 3: a←a+1/(i*(i+2));

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: xuất a

Bước 7: Kết thúc

Viết chương trình:

uses crt;

var a:real;

i,n:longint;

begin

clrscr;

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

a:=0;

for i:=1 to n do

a:=a+1/(i*(i+2));

writeln(a:4:2);

readln;

end.

Bài 1:

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=10 to 50 do

  if i mod 2=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,i,n:integer;

begin

clrscr;

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

a:=0;

for i:=1 to n do

a:=a+i*(i+2);

writeln(a);

readln;

end.

uses crt;

var a:real;

i,n:integer;

begin

clrscr;

readln(n);

a:=0;

for i:=1 to n do 

  a:=a+1/(i*(i+2));

writeln(a:4:2);

readln;

end.

Mô tả tính tổng:

-B1:A\(\leftarrow0\),i\(\leftarrow1.\)

-B2:A\(\leftarrow\dfrac{1}{i\times\left(i+2\right)}\)

-B3:\(i\leftarrow i+1\)

-B4:Nếu \(i\le n\),quay lại B2

-B5:Ghi kết quảA và kết thúc thuật toán.

Giải thuật tính tổng trên là :


- Bước 1:Nhập số n



- Bước 2:S<-0; i<-0;



- Bước 3:i<-i+1;


- Bước 4:Nếu i <= n thì S:=S+1/(i*(i+2)) nghĩa là công vào S = S+1/(i*(i+2)) và quay lại

- Bước 5.Ngược lại thông báo kết quả và kết thúc thuật toán.

program bai1;

var n,s,i:longint;

begin

write('N= ');realn(n);

s:=0;

for i:=1to n do

s:=s+1/n*(n+2);

write('S= ',s);

readln

end.

Program HOC24;

var b: real;

i,n: integer;

begin

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

b:=0;

for i:=1 to n do b:=b+1/(i+2);

write('B= ',b:1:2);

readln

end.

uses crt;

var b:array[1..100] of integer;

i,n,d:integer;

begin

clrscr;

repeat

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

until n>0;

for i:=1 to n do

begin writeln('b[',i,']','=');readln(b[i]);end;

writeln('so cac so le la');

for i:=1 to n do

if b[i] mod 2<>0 then d:=d+1;

writeln(d);readln;end.

uses crt;

var n,i:longint; s:real;

begin

clrscr;

s:=0;

writeln('nhap vao n=');readln(n);

writeln('tong cua A la');

for i:=1 to n do

s:=s + 1/(i*(i+2));

writeln(s:4:3);readln;end.

\(1-\dfrac{3}{n\left(n+2\right)}=\dfrac{n\left(n+2\right)-3}{n\left(n+2\right)}=\dfrac{\left(n-1\right)\left(n+3\right)}{n\left(n+2\right)}\)

\(\Rightarrow M=\dfrac{1.5}{2.4}.\dfrac{2.6}{3.5}.\dfrac{3.7}{4.6}...\dfrac{\left(n-1\right)\left(n+3\right)}{n\left(n+2\right)}\)

\(=\dfrac{1.2.3...\left(n-1\right)}{2.3.4...n}.\dfrac{5.6.7...\left(n+3\right)}{4.5.6...\left(n+2\right)}\)

\(=\dfrac{1}{n}.\dfrac{n+3}{4}=\dfrac{n+3}{4n}=\dfrac{1}{4}+\dfrac{3}{4n}>\dfrac{1}{4}\) (đpcm)