Bài 4. Sử dụng biến trong chương trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phạm Kiều Mỹ

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

Minh Lê
2 tháng 4 2019 lúc 19:43

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.

Minh Lê
2 tháng 4 2019 lúc 19:49

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.

Minh Lê
2 tháng 4 2019 lúc 20:02

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.

Minh Lê
2 tháng 4 2019 lúc 20:17

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.

Minh Lê
2 tháng 4 2019 lúc 19:36

1)

Minh Lê
2 tháng 4 2019 lúc 19:47

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.
Minh Lệ
4 tháng 4 2019 lúc 17:09

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.


Các câu hỏi tương tự
Huỳnh Thanh Trúc
Xem chi tiết
Quocvi Hoang
Xem chi tiết
Chén nì Kim
Xem chi tiết
Nguyễn minh quân
Xem chi tiết
Dang Hien
Xem chi tiết
Nguyễn Quang Thiện
Xem chi tiết
Kirisaki Chitoge
Xem chi tiết
Bong Hoa No
Xem chi tiết
Creeper Boy - MC Gamer
Xem chi tiết