viết thuật toán ,chương trình tính tổng sau bằng vòng lặp while .... do
bài 1 :S1=1/1*3+1/2*4+1/3*5+......+1/n*(n+2)
(n nhập từ bàn phím)
bài 2 :
S2 =1+1/2+1/4+...+1/n
bài 3
S3 =1*1/3+1/4 +...+1/n
cầu xin mọi người giúp
hạn nộp 26 /3
Những câu hỏi liên quan
GIÚP EM MN ƠI, MAI EM NỘP R Ạ T-T.
Xoá sạch màn hình kết quả, sử dụng vòng lặp While . do hoặc For..do viết chương trình tính tổng sau: S=1/1*2+1/2*3+1/3*4+.....+1/n*(n+1)
N nhập từ bàn phím
Program HOC24;
uses crt;
var i,n: integer;
s: real;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/(i*(i+1));
write('S= ',s:6:2);
readln
end.
Đúng 1
Bình luận (1)
Program HOC24;
var i,n: integer;
S: real;
begin
write('Nhap N: '); readln(n);
i:=1; s:=0;
while i<=n do
begin
s:=s+i*(i+1);
i:=i+1;
end;
write('S=',S:5:2);
readln
end.
Đúng 1
Bình luận (0)
1. Viết chương trình tính tích N1*2*3*...*n (với n được nhập từ bàn phím) 2. Viết chương trình tính tổng A1/1*3+1/2*4+1/3*5+...+1/n*(n+2) 3. Viết chương trình tính tổng số lẻ có trong dãy từ 0-n (n được nhập từ bàn phím) 4. Viết chương trình in ra màn hình các số chẵn có trong dãy từ 0-n (n được nhập từ bàn phím) và đếm có bao nhiêu số. 5. Viết chương trình in ra màn hình các số lẻ có trong dãy số từ 0-n (n được nhập từ bàn phím) và đếm có bao nhiêu số. 6. Viết chương trình nhập số nguyên n. Tìm...
Đọc tiếp
1. Viết chương trình tính tích N=1*2*3*...*n (với n được nhập từ bàn phím)
2. Viết chương trình tính tổng A=1/1*3+1/2*4+1/3*5+...+1/n*(n+2)
3. Viết chương trình tính tổng số lẻ có trong dãy từ 0->n (n được nhập từ bàn phím)
4. Viết chương trình in ra màn hình các số chẵn có trong dãy từ 0->n (n được nhập từ bàn phím) và đếm có bao nhiêu số.
5. Viết chương trình in ra màn hình các số lẻ có trong dãy số từ 0->n (n được nhập từ bàn phím) và đếm có bao nhiêu số.
6. Viết chương trình nhập số nguyên n. Tìm và đưa ra màn hình các ước của n.
7. Viết chương trình in ra màn hình các bội của n ( n được nhập từ bàn phím)
8. Viết chương trình tính tổng S=1/1+1/2+1/3+...+1/n (n được nhập từ bàn phím)
Câu 6:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
5:
uses crt;
var n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=0 to n do
if i mod 2=1 then
begin
write(i:4);
dem:=dem+1;
end;
writeln;
writeln(dem);
readln;
end.
Đúng 2
Bình luận (0)
hãy viết thuật toán và chương trình tính tổng sau bằng vòng lặp while do
a, S1=1/1*3+1/2*4+1/3*5+........+1/n(n+2)
(n nhập từ bàn phím)
b, S2=1+1/2+1/4+...+1/n
a) uses crt;
var s,n,i:longint;
begin
clrscr;
write('Nhap n=');
readln(n);
i:=0;
s:=0;
while i<=n do
begin
inc(i);
s:=s+1/i*(i+2);
end;
writeln(s);
readln
end.
b)
uses crt;
var s,n,i:longint;
begin
clrscr;
write('Nhap n=');
readln(n);
i:=0;
s:=0;
while i<=n do
begin
inc(i);
s:=s+1/i;
end;
writeln(s);
readln
end.
Đúng 0
Bình luận (1)
mik chỉ ghi thuật toán thôi, code bạn tự làm nhé
nhập n
i:=1;
s:=0;
chú ý đến dấu + cuối cùng, đó là cách tính s
bạn chỉ cần cho i chạy đến n rồi s:= s+ ( cái vế cuối cùng chỉ việc thay i vào chỗ của n)
VD câu a
while i<=n do
s:=s+ a/i*(i+2);
rồi cuối cùng xuất ra s
chúc bạn thành công
Đúng 1
Bình luận (0)
a) uses crt;
var s,n,i:longint;
begin
clrscr;
write('Nhap n=');
readln(n);
i:=0;
s:=0;
while i<=n do
begin
inc(i);
s:=s+1/i*(i+2);
end;
writeln(s);
readln
end.
b)
uses crt;
var s,n,i:longint;
begin
clrscr;
write('Nhap n=');
readln(n);
i:=0;
s:=0;
while i<=n do
begin
inc(i);
s:=s+1/i;
end;
writeln(s);
readln
end.
Đúng 0
Bình luận (2)
viết thuật toán ,chương trình tính tổng sau bằng vòng lặp while .... do
bài 1 :S1=1/1*3+1/2*4+1/3*5+......+1/n*(n+2)
(n nhập từ bàn phím)
bài 2 :
S2 =1+1/2+1/4+...+1/n
bài 3
S3 =1*1/3+1/4 +...+1/n
cầu xin mọi người giúp
hạn nộp 26 /3
bài 1
program: Tinh _Tong;
var: i,n:integer;S:real;
begin
writeln('nhap so n=');readln(n);
S:=0;
for i:=1 to N do S:=S+1/i*(i+2);
write('tong can tim la',S:0:2);
readln;
end.
Đúng 0
Bình luận (0)
bài 2
program:Tinh_tong_2;
var:i,n:integer;S:real;
begin
writeln('nhap so N=');
readln(n);
S:=0;
for i:=1 to N do S:=S+1/i;
writeln('tong can tim la',);
readln;
end.
(bài được làm bởi người giỏi tin nhất khối 8 trường Phạm Đình Quy.)
Đúng 0
Bình luận (0)
câu 1:
a) Hãy mô tả thuật toán để tính tổng sau đây: T=1/1*4 + 1/2*5 + 1/3*6 +...+ 1/n*(n+3)
b) Sử dụng vòng lặp While... do, hãy viết chương trình tổng trên.
b)
uses crt;
var i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
t:=0;
while i<=n do
begin
t:=t+1/(i*(i+3));
i:=i+1;
end;
writeln(t:4:2);
readln;
end.
Đúng 0
Bình luận (0)
VIết CHươNG TRình PaSCAL sỬ dỤNG vÒNG lẶP lẶP while...do ĐỂ tÍNH tỔNG s=1+2+3+...+n Với n lÀ sỐ nguyÊn được nhẬP tỪ bÀN phÍM
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
Đúng 2
Bình luận (0)
Bài 1: Viết phương trình tổng s= 1^3 + 2^3 + 3^3 +. . .n^3
Bài 2: Viết phương trình tổng y= 1*2*3*4*5*. . .*n
Bài 3: viết phương trình xem xét 1 số n được nhập từ bàn phím có phải là số hoàn chỉnh không? (Ví dụ: số 6 chia hết cho 1 2 3 và tổng 1+2+3 = 6 --> số đó là số hoàn chỉnh)
Bài 3:
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=sqrt(n); i++)
if (i==n/i) t=t+i;
else t=t+i+n/i;
if (t==n) cout<<"Day la so hoan hao";
else cout<<"Day khong la so hoan hao";
return 0;
}
Đúng 2
Bình luận (0)
em hãy viết chương trình để tính tổng A sau đây( n là số tự nhiên được nhập vào từ bàn phím) A=1/1*3+1/2*4+1/3*5+.......+1/n*(n+2)
help me vs!!!!!
uses crt;
var s:real;
i,n:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(i*(i+2));
writeln(s:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình tính tổng nghịch đảo N số tự nhiên S= 1+1/2+1/3+...+1/N với N được nhập từ bàn phím. (sử dụng câu lệnh lặp for...do hoặc while...do...). Giúp e với ạ
Program HOC24;
var i,n: integer;
S: real;
begin
write('Nhap N: '); readln(n);
s:=0;
for i:=1 to N do s:=s+1/i;
write('S= ',s:5:2);
readln
end.
Đúng 0
Bình luận (0)