Viết đoạn chương trình tính tổng 2 + 4 + ... + 100 sử dụng lệnh while
Hãy viết chương trình Pascal tính tổng của 100 số tự nhiên liên tiếp.
Yêu cầu: Viết 2 chương trình sử dụng 2 dạng câu lệnh for...do và while...do
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+i;
writeln(t);
readln;
end.
Hãy viết chương trình Pascal tính tổng của 100 số tự nhiên liên tiếp.
Yêu cầu: Viết 2 chương trình sử dụng 2 dạng câu lệnh for...do và while...do
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+i;
writeln(t);
readln;
end.
Viết chương trình tính tổng S = 3 +6 +9 + … + 90 Sử dụng câu lệnh for do
Viết chương trình tính tổng S = 3 +6 +9 + … + 90 Sử dụng câu lệnh while do
For...do:
var s,i: integer;
begin
readln(s,i);
s:=0;
For i:=3 to 99 do
If i mod 3 = 0 do s:=s+i;
write(s);
readln;
end.
while ... do:
Var i,S:integer;
Begin
Readln(i,s);
S:=0;
i:=3;
while i<=99 do
if i mod 3 = 0 then s:=s+i;
write(s);
Readln;
End.
Bài toán tính tổng : S=1+1/2+1/3+...+1/100
a.Nêu thuật toán và viết chương trình sử dụng câu lệnh For...to...do
b.Nêu thuật toán và viết chương trình sử dụng câu lệnh While...do
a: uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
for i:=1 to 100 do s:=s+1/i;
writeln(s:4:2);
readln;
end.
b:
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
i:=0;
while i<=100 do
begin
inc(i);
s:=s+1/i;
end;
writeln(s:4:2);
readln;
end.
sử dụng lệnh lặp while ...do để viết chương trình tính tổng
S=1/1+1/2+1/3+1/4+...+1/2n
program TinhTongWhileDo;
var
n, i: integer;
S: real;
begin
write('Nhap so n: ');
readln(n);
S := 0;
i := 1;
while i <= 2*n do
begin
S := S + 1/i;
i := i + 1;
end;
writeln('Tong S=1/1+1/2+1/3+1/4+...+1/2n la: ', S:0:2);
readln;
end.
Viết chương trình sử dụng lệnh while do tính tổng A=2+2/2+2/3+2/4+...2/n ( n nhập từ bàn phím )
program tongA;
var
n: integer;
A, i: real;
begin
write('Nhap n: ');
readln(n);
A := 0;
i := 1;
while i <= n do
begin
A := A + 2 / i;
i := i + 1;
end;
writeln('Tong A la: ', A:0:2);
readln;
end.
Pascal:
program tinh_tong_A;
var
n: integer;
i: integer;
A: real;
begin
writeln('Nhap so nguyen duong n: ');
readln(n);
A := 0;
i := 1;
while i <= n do
begin
A := A + 2/i;
i := i + 1;
end;
writeln('Tong A = ', A);
readln;
end.
Python:
n = int(input("Nhập giá trị của n: "))
A = 0
i = 2
while i <= n:
A += 2/i
i += 1
print("Tổng A =", A)
sử dụng câu lệnh while do viết chương trình tính tổng biết n>2 và được nhập từ bàn phím. t=2+ 3 + 4 +...+n
var i,n,s:longint;
begin
read(n); if n<2 then break;
for i:=3 to n do s:=s+i;
write(s);
end.
Var i,n:integer;
t:longint;
Begin
Write('n = ');readln(n);
i:=2;
While i<=n do
Begin
t:=t+i;
i:=i+1;
End;
Write('Tong la ',t);
Readln
End.
: Viết chương trình Pascal sử dụng lệnh lặp While..Do tính tổng các số chẵn của số tự nhiên N (100<n<32000) với N được nhập từ bàn phím. Vẽ sơ đồ biểu diễn hoạt động của chương trình trên.
Ví dụ:
Input: Output:
123 2
6616 18
10246 12
uses crt;
var n,i,t,x:integer;
begin
clrscr;
readln(n);
t:=0;
while n>0 do
begin
x:=n mod 10;
if x mod 2=0 then t:=t+x;
n:=n div 10;
end;
writeln(t);
readln;
end.
Viết chương trình sử dụng câu lệnh lặp While..do để in ra và tính tổng cho các dãy số sau:
N=1, 2, 4, 6, 8, …,50
M= 0, 4, 8, 12, 16, 20, 32
Var s1,s2,i,j:integer;
Begin
s1:=1;
s2:=0;
i:=2;
j:=4;
While i<=50 do
Begin
s1:=s1+i;
i:=i+2;
End;
While j<=20 do
Begin
s2:=s2+j;
j:=j+4;
End;
s2:=s2+32;
Writeln('Tong day N = ',s1);
Writeln('Tong day M = ',s2);
Readln;
End.
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=3+4+6+...+n. N là số nguyên nhập từ bàn phím
Đề sai đúng không, bạn kiểm tra lại đề nhé, mình không thấy quy luật gì trong dãy tổng của S cả
FOR..DO
Program HOC24;
var i,n: integer;
s: longint;
begin
write('Nhap N: '); readln(n);
S:=0;
For i:=1 to N do if i mod 2=0 then S:=S+i;
write('S = ',S);
readln
end.
While..do
Program HOC24;
var i,n: integer;
s: longint;
begin
write('Nhap N: '); readln(n);
S:=0; i:=2;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
write('S = ',S);
readln
end.