uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(i*(i+2));
writeln('Ket qua la: ',s:4:2);
readln;
end.
Viết thuật toán và chương trình để tính tổng \(A=\dfrac{1}{1.3}+\dfrac{1}{2.4}+\dfrac{1}{3.5}+...+\dfrac{1}{n\left(n+2\right)}\)
Viết chương trình tính A
A= \(\dfrac{1}{1.3}+\dfrac{1}{2.4}+\dfrac{1}{3.5}+...\dfrac{1}{n\left(n+2\right)}\)
Viết chương trình nhập số n từ bàn phím và đếm xem có bao nhiêu số lẻ(n>0)
1. Viết chương trình tính tổng sau:
a) S = \(1+\dfrac{1}{2}+\dfrac{1}{3}+...+\dfrac{1}{n}\)
b) S = \(1+\dfrac{1}{3}+\dfrac{1}{5}+...+\dfrac{1}{n}\)
2. Viết chương trình nhập 2 số nguyên a và b. Tìm bội chung nhỏ nhất
3. Cho một dãy số gồm N phân tử:
- Tính tổng các phân tử trong dãy số
- Tìm phân tử lớn nhất
- In ra màn hình các số nguyên tố có trong dãy
hãy mô tả thuật toán để tính tổng A Sau đây(n là số tự nhiên được nhập vào từ bàn phím):
A=\(\dfrac{1}{1.3}+\dfrac{1}{2.4}+\dfrac{1}{3.5}+...........+\dfrac{1}{n\left(n+2\right)}\)
mn viết ra cho mk như chương trình free pascal nhoa
mk yeu mn nhìu
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
Câu 4 : Viết chương trình đưa thông báo sau ra màn hình, mỗi thông báo trên một dòng:
GIÚP MIK VỚI !!!!!!!!!!!!!!!!
cho S=\(\dfrac{1}{2}+\dfrac{3}{4}+\dfrac{6}{5}+..........+\dfrac{2n-1}{2n}\)
viết chương trình nhập số nguyên n (1<=n<=32000) từ bàn phím và in ra màn hình giá trị của S.
1. Viết chương trình nhập vào hai cạnh của một hình chữ nhật. In ra màn hình chu vi, diện tích của nó.
2. Nhập bán kính hình tròn. In ra diện tích chu vi.
3. Viết chương trình nhập hai số a, b. Kiểm tra tổng của chúng có phải dương và chia hết cho 3 không?
4. Viết chương trình tính tổng: S = 1 + \(\dfrac{1}{2}\) + \(\dfrac{1}{3}\) +...+ \(\dfrac{1}{n}\).
5. Viết chương trình tính tổng: S = \(\dfrac{1}{2}\) + \(\dfrac{2}{3}\) + \(\dfrac{3}{4}\) +...+ \(\dfrac{n}{n+1}\).
Viết chương trình tính tổng:
\(S=1+\dfrac{1}{2}+\dfrac{1}{2}+\dfrac{1}{4}+...+\dfrac{1}{n}\).
Viết chương trình tính tổng:
S=\(1+\dfrac{1}{2}+\dfrac{1}{3}+\dfrac{1}{4}+....+\dfrac{1}{n}\)
