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 tính các tổng sau: a) S=1+2+3+4+...+n b) S=1+3+5+...+n-1 c) S=2+4+6+...2n
Câu a:
n = int(input("Nhập số nguyên n: "))
S = 0
for i in range(1, n+1):
S += i
print("Tổng S =", S)
Câu b:
n = int(input("Nhập số nguyên n: "))
S = 0
for i in range(1, n, 2):
S += i
print("Tổng S =", S)
Câu c:
def calc_sum(n):
s=0
for i in range(1,n+1):
s += 2*i
return s
n = int(input("Nhập vào số n: "))
print("Tổng S=2+4+6+...2n là:",calc_sum(n))
n = int(input("Nhập số nguyên n: "))
S = 0
for i in range(1, n+1):
S += i
print("Tổng S =", S)
Câu b:
n = int(input("Nhập số nguyên n: "))
S = 0
for i in range(1, n, 2):
S += i
print("Tổng S =", S)
Câu c:
def calc_sum(n):
s=0
for i in range(1,n+1):
s += 2*i
return s
n = int(input("Nhập vào số n: "))
print("Tổng S=2+4+6+...2n là:",calc_sum(n))
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 tính tổng
s= 1*2/3*4+2*3/4*5+3*4/5*6+...+n*(n+1)/(n+2)*(n+3)
uses crt;
var s:real;
i,n:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+(n*(n+1))/((n+2)*(n+3));
writeln(s:4:2);
readln;
end.
viết chương trình pascal tính tổng sau :
s= 1 + 1/2+1/3+1/4+...+1/100
Program HOC24;
var i: integer;
s: real;
begin
s:=0;
for i:=1 to 100 do s:=s+1/i;
write('S= ',s:2:2);
readln
end.
a. Vt chương trình =nnlt pascal Mô tả thuật toán sau Bước 1. S←1;n←0 Bước 2. Nếu s>=10;chuyển bước 4 Bước 3. N←n+2,s←s+n; quay bước 2 Bước 4 thông báo s và KT thuật toán b. khởi động phần mềm Free pascal soạn thảo lưu dịch chạy trương trình quan sát kết quả
Program HOC24;
var S,n: integer;
begin
s:=1; n:=0;
while s<10 do
begin
n:=n+2;
s:=s+n;
end;
write('S= ' ,s);
readln
end.
Viết chương trình pascal tính tổng:
S=1/3+1/5+...+1/(n+1)+3/4
P=1/3+1/5+...+1/(n+1)+1/(n+2)
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
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;
}
Viết chương trình tính tổng S=1+2!+3!+.....+n! trong pascal
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.
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.