Question

Mình có bài tập để kiểm tra nên mong các bạn giúp 😭

C1 : Bài về for

S = 1+1/2+...+1/n

C2: A = 1+2/2 mũ 2+...+n/n mũ 2

C3: Bài về while

K= 1/1.3+1/2.4+...+1/n(n+2)

C4: Mảng

Tìm các số dương của dãy B

C5: Tìm GTNN của dãy D

Answer 1

1)

var i,n:longword; S:extended;

begin

read(n);

for i:=1 to n do

S:=S+1/i;

write('S=',S:0:2); //In ra giá trị xấp xỉ của S với 2 chữ số thập phân

end.

Answer 2

2)

var i,n:longword; A:extended;

begin

read(n);

for i:=1 to n do

A:=A+1/sqr(i);

write('A=',A:0:2);

end.

Answer 3

4)

var B:array of extended; i,n:longword;

begin

read(n); //Nhập vào số phần tử của mảng

for i:=1 to n do

read(B[i]);

writeln('Cac so duong cua day B:');

for i:=1 to n do

if B[i]>=0 then write(B[i]:0:2,' ');

end.

Answer 4

5)

var D:array[1..1000000] of extended; i,n:longword; min:extended;

begin

read(n); //Nhập vào số phần tử của mảng D

read(D[1]);

min:=D[1];

for i:=2 to n do

begin

read(D[i]);

if min>D[i] then min:=D[i];

end;

write('GTNN = ',min:0:2);

end.

Sẵn đây mình có cái hàm minvalue sẽ ngắn hơn nhiều, nhưng mà cứ ghi cách ở trên đi:

uses math;

var D:array[1..1000000] of extended; i,n:longword;

begin

read(n);

for i:=1 to n do read(D[i]);

write('GTNN = ',minvalue(D[1..n]):0:2);

end.

Answer 5

1)

Answer 6

2)

var i,n:longword; A:extended; begin read(n); for i:=1 to n do A:=A+1/sqr(i); write('A=',S:0:2); //In ra giá trị xấp xỉ của A với 2 chữ số thập phân end.

Answer 7

C3 :

Lời giải :

program hotrotinhoc ;

var i,n : integer ;

K: real;

begin

n:=1; i:=0; K:=0;

while n < i do

begin

n:=n+1;

i:=i+1;

K:=K+1/(i*n*(n+2)) ;

end;

write('Ket qua :',K);

readln

end.