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.
Bước 1:Nhập n.Gán i=1,A:=0;
Bước 2:A=1
i(i+2)
Bước 3:i:=i+1
Bước 4:In ra A
Bước 5:Kết thúc vòng lặp.
Bài Làm:
Bước 1:Nhập n.Gán i=1,A:=0;
Bước 2:A=1 và i(i+2)
Bước 3:i:=i+1
Bước 4:In ra A
Bước 5:Kết thúc vòng lặp.
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.
Lời giải :
program hotrotinhoc ;
var T : real ;
i,n : integer ;
begin
write('n='); readln(n);
S:=0;
for i:= 1 to n do
if i mod 2=1 then
S:=S+2/(i*(i+2));
write('Tong la :',S);
readln
end.
uses crt;
var a:array[1..10000000] of longint;
i,n,d:longint;
s:real;
begin
clrscr;
write('Nhap n la ');readln(n);
for i:=1 to n do begin
if i mod 2<>0 then
s:=s+(2/(i*(i+2))); end;
write('Tong la ',s:0:2);
readln
end.
Cộng cho 1/n(n+n) chứ bạn
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+1/(i*(i+i));
i:=i+1;
end;
writeln(s:4: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.
1 : có trong sgk
3:
a) b1: T←0;
B2: 1 → n ;
B3 : T:=T+1/(i*i) ;
B4: Kết thúc
var a:array[1..32000] of integer;
i,n,j,tam:integer;
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] > a[j] then
begin
tam:=a[i]; a[i]:=a[j]; a[j]:=tam;
end;
writeln('ket qua sap xep la:');
for i:=1 to n do write(A[i]:5);
readln
end.
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s+1/(i+(i+2));
writeln('Ket qua la: ',s:4:2);
readln;
end.
Bước 1: nhập n, \(A\leftarrow0\), \(i\leftarrow1\);
Bước 2: \(A\leftarrow A+\frac{1}{i\left(i+2\right)}\)
Bước 3: \(i\leftarrow i+1\)
Bước 4: Nếu i<=n thì quay về bước 2.
Bước 5: Ghi kết quả A ra màn hình và kết thúc