Viết chương trình tính tổng
a) S=1*2+2*3+3*4+….N*(N+1)
b) S=2+4+6+…+2*N
c) S=1+3+5+…+(2*N+1)
Với N nhập từ bàn phím
1. Sử dụng For… Do
2. Sử dụng While…Do
0 bình luận về “Viết chương trình tính tổng a) S=1*2+2*3+3*4+-N*(N+1) b) S=2+4+6+…+2*N c) S=1+3+5+…+(2*N+1) Với N nhập từ bàn phím 1. Sử dụng For… Do 2. Sử”
Viết một bình luận
Viết chương trình tính tổng a) S=1*2+2*3+3*4+-N*(N+1) b) S=2+4+6+…+2*N c) S=1+3+5+…+(2*N+1) Với N nhập từ bàn phím Sử dụng While…Do
Viết chương trình tính tổng
a) S=1*2+2*3+3*4+….N*(N+1)
b) S=2+4+6+…+2*N
c) S=1+3+5+…+(2*N+1)
Với N nhập từ bàn phím
Sử dụng While…Do
0 bình luận về “Viết chương trình tính tổng a) S=1*2+2*3+3*4+-N*(N+1) b) S=2+4+6+…+2*N c) S=1+3+5+…+(2*N+1) Với N nhập từ bàn phím Sử dụng While…Do”
-
a)
program tinh_S;
uses crt;
var n,i:integer;
s:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
s:=0;
for i:=1 to n do
s:=s+(n*(n+1));
write(‘S= ‘,s);
readln;
end.
b)
program tinh_S;
uses crt;
var n,i:integer;
s:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
s:=0;
for i:=1 to n do
s:=s+2*n;
write(‘S= ‘,s);
readln;
end.
c)
program tinh_S;
uses crt;
var n,i:integer;
s:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
s:=0;
for i:=0 to n do
s:=s+2*n+1;
write(‘S= ‘,s);
readln;
end.
Bình luận -
a,
var n, i: integer; S: real;
begin
read(n);
while i <= n do
begin
S:=S+i*(i+1);
i:=i+1;
end;
write(S);
end.
b,
var n,i: integer; S: real;
begin
read(n);
while i <= n do
begin
S:=S+2*i;
i:=i+1;
end;
write(S);
end.
c,
var n,i: integer; S: real;
begin
read(n);
while i <=n do
begin
S:=S+(2*i+1);
i:=i+1;
end;
write(S);
end.
Bình luận
a)
*for…do
uses crt;
var n,i:integer;
S:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
S:=0;
for i:=1 to n do
S:=S+(i*(i+1));
write(‘S= ‘,s);
readln;
end.
*while…do
uses crt;
var n,i:integer;
S:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
S:=0; i:=1;
while i<=n do
begin
S:=S+(i*(i+1));
i:=i+1;
end;
write(‘S= ‘,s);
readln;
end.
b)
*for…do
uses crt;
var n,i:integer;
S:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
S:=0;
for i:=1 to n do
S:=S+2*i;
write(‘S= ‘,s);
readln;
end.
*while…do
uses crt;
var n,i:integer;
S:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
S:=0; i:=1;
while i<=n do
begin
S:=S+2*i;
i:=i+1;
end;
write(‘S= ‘,s);
readln;
end.
c)
*for…do
uses crt;
var n,i:integer;
S:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
S:=0;
for i:=0 to n do
S:=S+((2*i)+1);
write(‘S= ‘,s);
readln;
end.
*while…do
uses crt;
var n,i:integer;
S:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
S:=0; i:=0;
while i<=n do
begin
S:=S+((2*i)+1);
i:=i+1;
end;
write(‘S= ‘,s);
readln;
end.
a,
For…do:
var n,i: integer; S: real;
begin
read(n);
For i:=1 to n do
S=S+i*(i+1)
write(S);
end.
While…do:
var n, i: integer; S: real;
begin
read(n);
while i <= n do
begin
S:=S+i*(i+1);
i:=i+1;
end;
write(S);
end.
b,
For…do:
var n,i: integer; S: real;
begin
read(n);
For i:=1 to n do
S:=S+2*i;
write(S);
end.
While…do:
var n,i: integer; S: real;
begin
read(n);
while i <= n do
begin
S:=S+2*i;
i:=i+1;
end;
write(S);
end.
c,
For…do:
var n,i: integer; S: real;
begin
read(n);
For i:=1 to n do
S:=S+(2*i+1);
write(S);
end.
While…do:
var n,i: integer; S: real;
begin
read(n);
while i <=n do
begin
S:=S+(2*i+1);
i:=i+1;
end;
write(S);
end.