Viết chương trình Pascal tính
s=1 + 1/2^2 + 1/3^2 + ... + 1/n^2
s=1+1/(1-2) + 1/(n-3) + ... + 1/((n-1)-n)
Những câu hỏi liên quan
Viết chương trình tính tổng S=1+2!+3!+.....+n! trong pascal
Câu 1: 2e^x+y/x2+y biểu thức sau viết trong pascal sẽ là ?
Câu 2: lập chương trình nhập vào số n rồi tính
S= ½+ 2/3+ ¾+….+n/n+1
mong mọi người giúp mình đang cần gấp
cảm ơn mọi người nhiều
Đúng 0
Bình luận (0)
2:
#include <bits/stdc++.h>
using namespace std;
double s;
int n,i;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++)
s=s+(i*1.0)/((i+1)*1.0);
cout<<fixed<<setprecision(2)<<s;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+1/2²+1/3²+...+1/n². N là số nguyên nhập từ bàn phím
*for..do
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/sqr(i);
write('S= ',s:6:2);
readln
end.
Đúng 0
Bình luận (0)
*while..do
Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap n: '); readln(n);
i:=1;
while i<=n do
begin
s:=s+1/sqr(i);
i:=i+1;
end;
write('S= ',s:6:2);
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+1/2+1/3+...+1/n. N là số nguyên nhập từ bàn phím
program tinhtong;
var n,i : integer;
S : real;
begin
write('Nhap n: ');
readln(n);
i:=1;
S:=0;
while i<=n do
begin
S:=S+1/i;
i:=i+1;
end;
writeln('Tong S= ',S);
readln;
end.
Đúng 1
Bình luận (0)
program tinh_tong_S;
var
n, i: integer;
S: real;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + 1 / i;
i := i + 1;
end;
writeln('Tong S la: ', S:0:2);
readln;
end.
Đúng 0
Bình luận (0)
1 tháng 3 2018 lúc 21:33
Viết chương trình Pascal tính các tống sau:
1. S = 1-2+3-4+...+n
2. S = 1+2-3+4-5+...+n
3. S = 1+1/2-1/3+...+1/n
Viết chương trình Pascal tính
s=1+3+5+...+2*n+1
s=1+1/2+1/3+...+1/n
var n,i,s:longint;
begin clrscr;
wroite('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+2*i+1;
write(s);
readln;
end.
Đúng 0
Bình luận (0)
s=1+1/2+1/3+...+1/n
Giải: Program hotrotinhoc; var i,n: integer; s: real; begin write('n='); readln(n); s:=0; for i:=1 to n do s:=s+1/i; write(s:1:2); readln end.
s=1+1/2+1/3+...+1/n
Giải:
Program hotrotinhoc;
var i,n: integer; s: real;
begin
write('n='); readln(n);
s:=0; for i:=1 to n do
s:=s+1/i;
write(s:1:2);
readln
end.
cho tổng s= 1-2-3+4+5-6-7+8+9 -10-11 +12... n. viết chương trình nhập vào một số n tính tổng từ 1 đến n pascal
Viết chương trình pascal tính tổng A=1-2+3-4+...+((-1)^n+1)*n
Xem chi tiết
Viết chương trình tính tổng
a. S = 1 + 2 + 3 + ... + n
b. S = 1 + 1/2 + 1/3 + ... + 1/n
c. S = 1 + 1/2 + 1/3 + ... + 1/ (n+1)
trong đó n là số nguyên được nhập từ bàn phím
a: uses crt;
var s,i,n:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(s);
readln;
end.
b:
uses crt;
var s:real;
i,n:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln(s:4:2);
readln;
end.
c:
uses crt;
var s:real;
i,n:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln(s+1/(n+1):4:2);
readln;
end.
Đúng 0
Bình luận (0)