Var n , i : integer;
S : real;
Begin
write (' n = ') ; read (n);
S:= 0;
For i : = 1 to n do S : = S + i/(i+1);
writeln (S);
readln;
end.
Đúng 0
Bình luận (0)
Lập trình đơn giản
Các câu hỏi tương tự
Viết ct nhập vào số nguyên n.Tính tổng sau
A=1+1/2+1/3+...+1/n (n E Z)
VIẾT CT pascal tính tổng S=1+1/3+1/5+ ...+ 1/2+n với n la so nguyen duong nhập từ bàn phím
1)Cho ba ví dụ về hoạt động lặp với số lần biết trước
2)Nêu cú pháp cùng tính chất của các thành phần trong câu lệnh lặp với số lần biết trước, cho ví dụ?
3)Hãy mô tả thuật toán tính tổng và tích của các số tự nhiên từ 1 đến N (với N nguyên dương được nhập vào từ bàn phím). Sau đó hãy viết chương trình (CT) Pascal tương ứng cho từng thuật toán
Đọc tiếp
1)Cho ba ví dụ về hoạt động lặp với số lần biết trước
2)Nêu cú pháp cùng tính chất của các thành phần trong câu lệnh lặp với số lần biết trước, cho ví dụ?
3)Hãy mô tả thuật toán tính tổng và tích của các số tự nhiên từ 1 đến N (với N nguyên dương được nhập vào từ bàn phím). Sau đó hãy viết chương trình (CT) Pascal tương ứng cho từng thuật toán
viết chương trình tính tổng x, y với x, y được nhập từ bàn phím.
viết chương trình tính trung bình 3 số x, y, z được nhập từ bàn phím
1)Viết CT nhập vào số N nguyen dương. Hãy đếm xem có bao nhieu số chia hết cho 2 va 5 từ 1-N
5)Viết CT nhập vào 2 số M, N nguyên dương(0MN). Hãy in ra màn hình các số là ước của 1000 từ M đến N
6) Các câu lệnh sau đúng hay sai, vì sao? Nếu sai, hãy sửa lại cho đúng
a.For i:1 to 10 do; write(i:5); b. for i: 100 to 10 do xx-i;
c.For i:100 to200 do i:i+5; d. for i:0*4 to 20*4 do write(i-5);
d. Vả n,i:real;
begin n:0;i:0;...
Đọc tiếp
1)Viết CT nhập vào số N nguyen dương. Hãy đếm xem có bao nhieu số chia hết cho 2 va 5 từ 1->N
5)Viết CT nhập vào 2 số M, N nguyên dương(0<M<N). Hãy in ra màn hình các số là ước của 1000 từ M đến N
6) Các câu lệnh sau đúng hay sai, vì sao? Nếu sai, hãy sửa lại cho đúng
a.For i:=1 to 10 do; write(i:5); b. for i:= 100 to 10 do x=x-i;
c.For i:=100 to200 do i:=i+5; d. for i:=0*4 to 20*4 do write(i-5);
d. Vả n,i:real;
begin n:=0;i:=0;fori:=5 to105 do n:=n+i;end.
Viết trương trình tính tổng , tích của 3 số nguyên x y z nhập từ bàn phím
cho số tự nhiên N(1 N<10^6). Tính tổng sau : S= 1-2+3-4+5-6...+N
viết chương trình ra giúp vs
2: Tính số vòng lặp trong các thuật toán sau? Khi kết thúc giá trị của S bằng bao
nhiêu?
a) Thuật toán 1:
Bước 1: S← 5, x←0.5
Bước 2: Nếu S 3.2, chuyển tới bước 4.
Bước 3: S← S-x và quay lại bước 2.
Bước 4: Thông báo S và kết thúc thuật toán.
a) Thuật toán 1:
Bước 1: S←5, x←0.5
Bước 2: Nếu S3.2, chuyển tới bước 4.
Bước 3: S←S-x và quay lại bước 2.
Bước 4: Thông báo S và kết thúc thuật toán.
Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để
có thể quan sát kết...
Đọc tiếp
2: Tính số vòng lặp trong các thuật toán sau? Khi kết thúc giá trị của S bằng bao
nhiêu?
a) Thuật toán 1:
Bước 1: S← 5, x←0.5
Bước 2: Nếu S <= 3.2, chuyển tới bước 4.
Bước 3: S← S-x và quay lại bước 2.
Bước 4: Thông báo S và kết thúc thuật toán.
a) Thuật toán 1:
Bước 1: S←5, x←0.5
Bước 2: Nếu S<3.2, chuyển tới bước 4.
Bước 3: S←S-x và quay lại bước 2.
Bước 4: Thông báo S và kết thúc thuật toán.
Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để
có thể quan sát kết quả.
GIÚP MÌNH VỚI
4 tháng 3 2019 lúc 11:59
Tính tổng : 1+2+3+...+n với n là số nguyên được nhập từ bàn phím