Viết chương trình Pascal tính giá trị của biểu thức sau:
(1 + 1/12) (1 + 1/22) ... (1 + 1/n2)
Những câu hỏi liên quan
VIẾT THUẬT TOÁN VÀ CHƯƠNG TRÌNH PASCAL Các bài toán sau Tính giá trị biểu thức a= x2+x+1( với x nhập từ bàn phím ) mong giúp gắp ạ
uses crt;
var x:integer;
begin
clrscr;
readln(x);
writeln(x*x+x+1);
readln;
end.
Đúng 0
Bình luận (0)
Câu 1: Viết chương trình tính tổng dãy số sau: S=12+22+...+n2.
Câu 2: Viết chương trình tính tổng nghịch đảo N số nguyên đầu tiên.
Câu 1:
var i,n:integer;
s:longint;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do
s:=s+(i*10+2);
write('S = ',s);
readln;
end.
Câu 2:
var i,n:integer;
s:real;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do s:=s+1/n;
write('tong la ',s:10:2);
readln;
end.
Đúng 2
Bình luận (0)
Viết chương trình Pascal dùng để tính giá trị biểu thức sau:
10+4(15-10)2/6+4
uses crt;
begin
clrscr;
writeln(10+4*sqr(15-10)/6+4);
readln;
end.
Đúng 0
Bình luận (0)
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 nhập vào số tự nhiên N (N≤100) và tính giá trị của biểu thức sau:
A= 1 + 1/2 - 1/3 + 1/4 -1/5....+1/N
#include <bits/stdc++.h>
using namespace std;
int n,i;
double s;
int main()
{
cin>>n;
s=1;
for (i=2; i<=n; i++)
{
if (i%2==0) s=s+1/(i*1.0);
else s=s-1/(i*1.0);
}
cout<<fixed<<setprecison(2)<<s;
return 0;
}
Đúng 0
Bình luận (0)
Câu 1; Viết chương trình cho phép người dùng nhập 1 số nguyên từ bàn phím, chương trình sẽ cho biết số đó là số chẵn hay lẻ.Câu2. Viết các biểu thức toán sau đây dưới dạng biểu thức trong Pascal a. dfrac{15}{2+3} - dfrac{8}{x^3} +y b. dfrac{left(10+xright)^2}{3+y}- dfrac{18}{5+y}Câu 3. Bạn Tuấn viết chương trình như sau:1. program Tinh toan2 uses crt;3. var4. x, y : integer;5. tb real;6. thongbao : integer;7. const a : 2;8. begin9. clrscr;10. thongbao : ‘Trun...
Đọc tiếp
Câu 1; Viết chương trình cho phép người dùng nhập 1 số nguyên từ bàn phím, chương trình sẽ cho biết số đó là số chẵn hay lẻ.
Câu2. Viết các biểu thức toán sau đây dưới dạng biểu thức trong Pascal
a. \(\dfrac{15}{2+3}\) - \(\dfrac{8}{x^3}\) +y b. \(\dfrac{\left(10+x\right)^2}{3+y}\)- \(\dfrac{18}{5+y}\)
Câu 3. Bạn Tuấn viết chương trình như sau:
1. program Tinh toan
2 uses crt;
3. var
4. x, y : integer;
5. tb = real;
6. thongbao : integer;
7. const a := 2;
8. begin
9. clrscr;
10. thongbao := ‘Trung binh cong cua hai so x va y la: ‘;
11. write(‘Nhap gai tri cho x = ‘); readln(x);
12. write(‘Nhap gia tri cho y = ‘); readln(y);
13. tb = (x+y)/a;
14.writeln(thongbao, tb:2:1);
15. readln;
16. end.
a) Có một vài câu lệnh bạn Tuấn viết sai, em hãy viết lại cho đúng
b. ) Hãy phân biệt tên biến, tên hằng trong chương trình trên
HELD ME !!!!!!!!!!
Bài1. Để tính thương 2 số a,b nguyên: t=a/b, hãy lựa kiểu dữ liệu thích hợp cho t,a,b? về biểu thức toán học: Bài 2. Viết các biểu thức sau dưới dạng trong Pascal a. a*x*x*x+b*x*x+c*x+d b. 1/(1+x)*(1+x)-2/(x*x+1) Bài3: Viết 1 chương trình tính và in ra màn hình kết quả của 2 phép tính sau: a) 18 div 5; b) 20 mod 7;
Bài 1:
-Kiểu dữ liệu phù hợp là kiểu số thực (real)
Bài 2:
a) a*x*x*x+b*x*x+c*x+d
b) 1/(1+x)*(1+x)-2/(x*x+1)
Bài 3: (Lười quá, nhường bạn khác nhé :D)
Đúng 0
Bình luận (0)
Hãy viết chương trình tìm giá trị của N thỏa mãn biểu thức sau:
1+ \(\dfrac{1}{2}\)+\(\dfrac{1}{3}\)+...+\(\dfrac{1}{N}\) >a
Biết a được nhập từ bàn phím.
Giúp mình với.
uses crt;
var s:real;
a,n:integer;
begin
clrscr;
write('Nhap a='); readln(a);
n:=0;
s:=0;
while s<=a do
begin
n:=n+1;
s:=s+1/n;
end;
writeln(n);
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình nhập từ bàn phím 2 số nguyên a và b. tính và viết ra kết quả của biểu thức 1 phần a^2 cộng 1 phần b^2 trên chương trìn pascal . ai giúp e với ah e đang cần gấp
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(1/sqr(a)+1/sqr(b):4:2);
readln;
end.
Đúng 1
Bình luận (0)