Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
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 Bai_1;
uses crt;
var n,i:integer; s:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do s:=s+1/(2*i);
write('S=',s);
readln;
end.
program Bai_2;
uses crt;
var n,i:integer; gt:longint; s:real;
begin
clrscr;
write('n='); readln(n);
gt:=1;
for i:=1 to n do
begin
gt:=gt*i;
s:=s+1/gt;
end;
write('S=',s);
readln;
end.
- nếu như khai báo biến S:real thì nên thêm độ rộng chữ số vào kq
var i,n:integer;
s:real;
begin
s:=1;
write('ban hay nhap vao mot so nguyen: '); readln(n);
for i:= 1 to n do
s:= s + (1/(i*(i+1));
writeln(' tong s = ',s:0:2);
readln
end.
var i,n:integer;
s:real;
begin
s:=1;
write('ban hay nhap vao mot so nguyen: '); readln(n);
for i:= 1 to n do
s:= s + (1/(i*(i+1));
writeln(' tong s = ',s:0:2);
readln
end.
uses crt;
var i,n:integer; S:real;
Begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do S:=S+1/(i*(i+2));
writeln('Tong la: ',S:3:1);
readln
End.
a) (1/(b+2))*(a*a+c)=5
b) (k*k)+((k+1)*(k+1)) < > (k+2)*(k+2)
c) 8*x-7>1
d) (b*b)-(4*a*c) >=0
e) (1/n)*(1/(n+i))*(1/(n+2)) <0,01
f) (a-3)*(a+5)=0
g) ((a+c)*h)/2 < > 1
h) 2*x+3 <= 25*y;
k) x >= (m+5)/(2*a);
l)3,14*(R*R) > a*a
Bạn tự khai báo nhé!;
Ảnh nhỏ thì nhấn mở hình ảnh trong tab mới nha
4...
begin
repeat
write('N= '):
readln(n);
until n>0;
s:=0;
for i:=1 to n do
s:=s+1/n;
write('s= ',s);
readln
end.
progrỉnam bai1;
var n,i:longint;
s:real;
begin
write('N= ');readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i*(i+1);
writeln('Tong la ',s);
readln
end.
1) var n,i:integer;
s:real;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+(1/(i*(i+1)));
writeln(' Tong la: ',s);
readln;
end.
2) var n,i:integer;
s:real;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+(1/((2*i)-1));
writeln(' Tong la: ',);
readln;
end.
program bai1;
var i,n:longint;s:real;
begin
write('N= ');
readln(n);
s:=1;
for i:=2 to n do s:=s+1/i;
write('s= ',s);
readln
end.
mik làm luôn thôi