Thuật toán: B1: Nhập N;

B2: A <--- 0; i <--- 1;

B3: A <--- A + ((2*i)/(2*i+1));

B4: i <--- i + 1;

B5: Nếu i > N thì thông báo A rồi kết thúc.

B6: Quay lại bước 3;

a)n.(n+1)/2

Bài 2:

Thuật toán:

B1: Nhập a,b

B2: Kiểm tra nếu a=0 và b=0 thì phương trình có vô số nghiệm

B3: Kiểm tra nếu a=0 thì phương trình vô nghiệm

B4: Kiểm tra nếu a khác 0 thì có nghiệm x=-b/a;

Viết chương trình:

Program HOC24;

var a,b: integer;

x: real;

begin

write('Nhap a; b: '); readln(a,b);

if a=0 and b=0 then write('Phuong trinh co vo so nghiem');

if a=0 then write('Phuong trinh vo nghiem');

if a<>0 then write('x=',-b/a:1:2);

readln

end.

Bài 1:

Thuật toán:

B1: Nhập a,b,c

B2: Tính \(\Delta\) = b²-4ac;

B3: Kiểm tra nếu  \(\Delta\) >0 phương trình có 2 nghiệm phân biệt

\(x_1=\dfrac{-b+\sqrt{\Delta}\text{ }}{2a}\)

\(x_2=\dfrac{-b-\sqrt{\Delta}}{2a}\)

B4: Kiểm tra nếu \(\Delta\)<0 thì phương trình vô nghiệm

B5: Kiểm tra nếu \(\Delta\)=0 phương trình có 2 nghiệm kép \(x_1=x_2=-\dfrac{b}{2a}\)

Viết chương trình:

Program HOC24;

var a,b,c: integer;

x1,x2: real;

denta: longint;

begin

write('Nhap a; b; c: '); readln(a,b,c);

denta:=b*b-4*a*c;

if denta>0 then 

begin

write('x1= ',(-b+sqrt(denta))/(2*a):1:2);

write('x2= ',(-b-sqrt(denta))/(2*a):1:2);

end;

if denta<0 then write('Phuong trinh vo nghiem');

if denta=0 then write('x= ',-b/2*a:1:2);

readln

end.

Thay n = 4 vào pt (1) ta có

\(x^2-6x+5=0\\ ta.có.a+b+c=1-6+5=0\\ Vậy.pt.có.n_o:\\ x_1=1;x_2=\dfrac{c}{a}=5\) 

\(Ta.có:\Delta=b^2-4ac=....=-8n+48\\ Để.pt.\left(1\right).có.1.n_o.phân.biệt.thì.\Delta>0\\ \Leftrightarrow n< 6\) 

Vậy m < 6 thì pt (1) có nghiệm phân biệt \(x_1;x_2\) nên theo Vi ét ta có 

 \(x_1+x_2=\dfrac{-b}{a}=6\\ x_1x_2=\dfrac{c}{a}=2n-3\) 

Ta có  

\(x^2-6x+2n-3=0\\ \Leftrightarrow x^2-5x+2n-4=x-1\) 

Vì x₁ x₂ là nghiệm pt  \(x^2-6x+2n-3=0\) nên x₁ x₂ là nghiệm PT \(x^2-5x+2n-4=x-1\)  nên ta có 

\(x_1^2-5x+2x-4=x_1-1.và\\ x_2^2-5x_2+2n-4=x_2-1\\ \Rightarrow\left(x_1^2-5x_1+2n-4\right)\left(x_2^2-5x_2+2n-4\right)=\left(x_1-1\right)\left(x_2-1\right)\) 

\(Mà\\ \left(x_1^2-5x_1+2n-4\right)\left(x_2^2-5x_2+2n-4\right)=-4\\ Nên\left(x_1-1\right)\left(x_2-1\right)=-4\\ \Leftrightarrow x_1x_2-\left(x_1+x_2\right)+1=-4\\ \Leftrightarrow2n-3-6+1=-4\\ \Leftrightarrow2n=4\Rightarrow n=2\left(tm\right)\\ ......\left(kl\right)\) 

Câu a:

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n+1):

     S += i

print("Tổng S =", S)

Câu b:

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n, 2):

     S += i

print("Tổng S =", S)

Câu c: 

def calc_sum(n):

     s=0

     for i in range(1,n+1):

          s += 2*i

     return s

n = int(input("Nhập vào số n: "))

print("Tổng S=2+4+6+...2n là:",calc_sum(n))

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n+1):

     S += i

print("Tổng S =", S)

Câu b:

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n, 2):

     S += i

print("Tổng S =", S)

Câu c: 

def calc_sum(n):

     s=0

     for i in range(1,n+1):

          s += 2*i

     return s

n = int(input("Nhập vào số n: "))

print("Tổng S=2+4+6+...2n là:",calc_sum(n))

uses crt;

var i,n,s:longint;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+sqr((2*i-1));

writeln(s);

readln;

end.

program TinhTongWhileDo;

var

     n, i: integer;

     S: real;

begin

     write('Nhap so n: ');

     readln(n);

     S := 0;

     i := 1;

     while i <= 2*n do

     begin

          S := S + 1/i;

          i := i + 1;

     end;

     writeln('Tong S=1/1+1/2+1/3+1/4+...+1/2n la: ', S:0:2);

     readln;

end.

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

n:=1;

s:=0;

while (n<=10000) do 

begin

n:=n+2;

s:=s+1/n;

end;

writeln(s:4:2);

readln;

end.