Program hotrotinhoc;
var A: real;
i,n: integer;
begin
write('Nhap N='); readln(n);
for i:=1 to n do
if i mod 2=0 then A:=A+1/i else A:=A-1/i;
write('A=',A:1:2);
readln
end.
Program hotrotinhoc;
var A: real;
i,n: integer;
begin
write('Nhap N='); readln(n);
for i:=1 to n do
if i mod 2=0 then A:=A+1/i else A:=A-1/i;
write('A=',A:1:2);
readln
end.
Viết chương trình tính tổng sau ( trong đó là số tự nhiên được nhập từ bàn phím )
A = 1 + 1/2 + 1/3 ... 1/n (n e z)
Viết chương trình cho phép nhập vào số nguyên n(1<=n<=10000). In ra màn hình giá trị của biểu thức T=1+1/2^2+1/3^2+...+1/n^2 (kết quả làm tròn hai chữ số thập phân).
viết chương trình tính an biết a[1]=1, a[2]=1, ai=a[i-1]+1 nếu n lẻ, ai=a[i-1]+a[i-2]+...+a[1] nếu i chẵn trong pascal
viết chương trình nhập vào 1 dãy gồm n số (n được nhập từ bàn phím).Tìm giá trị nhỏ nhất trong dãy vừa nhập
Viết chương trình nhập vào 1 dãy số nguyên gồm M phần tử, tính tổng các số âm trong dãy số đó. In ra màn hình giá trị tổng
-Viết chương trình nhập 1 dãy số nguyên gồm n phần tử. in ra màn hình vị trí các phần tử có giá trị bằng x ( với x,n được nhập từ bàn phím)
Bài 1 ;viết chương trình tính tổng sau với N là số nguyên nhập từ bàn phím :
a.tổng các số chia hết cho 3 nhỏ Hơn N
b. S =1 +\(\dfrac{1}{2}\)+\(\dfrac{1}{3}\)+\(\dfrac{1}{4}\)+.....+\(\dfrac{1}{N}\)
Bài 2 : Viết chương trình tìm giá trị lớn nhất và giá trị nhỏ nhất của dãy số
Cho dãy N số nguyên ( với n nhập vào từ bàn phím) . Viết chương trình thực hiện các yêu cầu sau. a. Nhập vào dãy số n và giá trị từng phần của dãy. b. Xuất giá trị của dãy vừa nhập. c. Tính tổng các phần tử của dãy. d. In ra màn hình giá trị Max, Min của dãy. e. Tính tổng các phần tử dương của dãy. f. Tính tổng các phần tử âm của dãy. g. Tính tổng các phần tử chẵn của dãy. h. Tính tổng các phần tử lẻ của dãy. i. Sắp xếp các phần của dãy theo thứ tự giảm dần. k. Sắp xếp các phần của dãy theo thứ tự tăng dần.
1. Nhập vào một số n (5<=n<=10) và n phần tử của dãy Ai với 1<Ai<100 (có kiểm tra dữ liệu khi nhập vào. Viết chương trình, thuật toán
a. In ra các phần tử là số nguyên tố của dãy
b. Tính ƯCLN của tất cả các phần tử của dãy
c. Tính biểu thức sau: S=ai1+ai2+ai3+...+ann
d. Sắp xếp và in ra dãy sau sắp xếp
2. Viết chương trình, thuật toán tối giản phân số bằng cách chia cả tử và mẫu cho ƯCLN
3. Viết chương trình con tính xy với x,y là 2 stn được nhập từ bàn phím
4. Viết chương trình con tính giai thừa của n với n stn được nhập từ bàn phím
5. Viết chương trình, thuật toán tìm số hoàn chỉnh, số chính phương, số nguyên tố và BCNN
6. Nhập giá trị của mảng chia hết cho 3 và 5. Sắp xếp các phần tử chia hết cho 3 và 5 theo chiều tăng dần
7. Nhập dữ liệu cho các phần tử của mảng và đưa ra màn hình mảng vừa nhận. Tính tổng của các giá trị của các phần tử tính từ các phần tử lẻ đến số lượng các phần tử lẻ
8. Viết chương trình dùng câu lệnh repeat until Tính tổng của \(A=\dfrac{1}{1\cdot3}+\dfrac{1}{2\cdot4}+...+\dfrac{1}{n\left(n+2\right)}\)
9. Viết chương trình tính hàm \(e^x=1+x+\dfrac{x^2}{2!}+....+\dfrac{x^n}{n!}\)
10. Viết chương trình tính an với a,n được nhập từ bàn phím
Các Bn viết đầy đủ thuật toán, chương trình giúp Mk nhé