Viết chương trình pascal tính tổng S=1+2+3+...+N?(bằng câu lệnh while...do:)
Những câu hỏi liên quan
Viết chương trình pascal tính tổng S=1+ 2+ 3 +... +n?
a,Bằng lệnh for...do
b,Bằng lệnh while...do
a)
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
b)
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
Đúng 2
Bình luận (1)
Viết chương trình pascal tính tổng S=1+ 2+ 3 +... +1980?
a,Bằng lệnh for...do
b,Bằng lệnh while...do
a, Với lệnh For..do:
Var i:integer;
S:real; (Hoặc S:longint);
Begin
S:=0;
For i:=1 to 1980 do S:=S+i;
Writeln('Vay tong cua S=',S);
Readln
End.
*In đậm: Bạn có thể chọn 1/2 cách với S:real hay S: longint. Chỉ là nếu bạn muốn nhìn dễ hiểu hơn thì tùy bạn. H/ảnh minh họa như dưới đây :D (Đã thử và áp dụng cách này với For...do)
b, Với lệnh While...do
Var i:integer;
S:real;
Begin
S:=0; i:=0;
While i<=1980 do
Begin
S:= S+i;
i:= i+1;
End;
Writeln('Vay tong cua S=',S);
Readln
End.
*In đậm: Cũng có thể dùng S:longint (70-80% đúng) thay vì S:real (100% đúng). Nhưng khuyến cáo nên sử dụng S:real (Đã thử và áp dụng tương đối chính xác với While...do)
Good luck for you!!! :D
Đúng 2
Bình luận (0)
a) uses crt;
var s,i:longint;
begin
clrscr;
s:=0;
for i:=1 to 1980 do
s:=s+i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
b) uses crt;
var s,i:longint;
begin
clrscr;
s:=0;
i:=1;
while i<=1980 do
begin
s:=s+i;
i:=i+1;
end;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+1/2²+1/3²+...+1/n². N là số nguyên nhập từ bàn phím
*for..do
Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/sqr(i);
write('S= ',s:6:2);
readln
end.
Đúng 0
Bình luận (0)
*while..do
Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap n: '); readln(n);
i:=1;
while i<=n do
begin
s:=s+1/sqr(i);
i:=i+1;
end;
write('S= ',s:6:2);
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+1/2+1/3+...+1/n. N là số nguyên nhập từ bàn phím
program tinhtong;
var n,i : integer;
S : real;
begin
write('Nhap n: ');
readln(n);
i:=1;
S:=0;
while i<=n do
begin
S:=S+1/i;
i:=i+1;
end;
writeln('Tong S= ',S);
readln;
end.
Đúng 1
Bình luận (0)
program tinh_tong_S;
var
n, i: integer;
S: real;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + 1 / i;
i := i + 1;
end;
writeln('Tong S la: ', S:0:2);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+3+5+...+n. N là số nguyên nhập từ bàn phím
Program HOC24;
var i,n: integer;
S: longint;
begin
write('Nhap N: '); readln(n);
i:=1; s:=0;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
write('S=',S);
readln
end.
Đúng 1
Bình luận (0)
program tinh_tong_S;
var
n, i, S: integer;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + i;
i := i + 2;
end;
writeln('Tong S la: ', S);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình pascal tính 2/3+2/4+2/5+...2/n (biết n là số nhập từ bàn phím) bằng câu lệnh while..do hoặc for..to..do
Uses crt;
Var i,n:integer;
S:real;
Begin
Write ('Nhap n');
Readln (n)
S:=0;
For i:=3 to n do
S:=S+2/i;
Write ('Ket qua',S);
Readln;
End.
Đúng 3
Bình luận (0)
10 tháng 3 2022 lúc 19:23
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.
Đúng 0
Bình luận (0)
10 tháng 3 2022 lúc 14:27
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.
Đúng 0
Bình luận (0)
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ả
Đúng 0
Bình luận (1)
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.
Đúng 0
Bình luận (0)
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.
Đúng 0
Bình luận (0)
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
var n, s, i: integer;
begin
write('Nhap n = ');
readln(n);
s := 0;
i := 3;
while i <= n do
begin
s := s + i;
i := i + 3;
end;
writeln('Tong la ', s);
readln;
end.
Đúng 0
Bình luận (0)
program tinh_tong_S;
var
n, i, S: integer;
begin
write('Nhap n: ');
readln(n);
S := 0;
for i := 3 to n step 1 do
begin
if i mod 2 = 0 then
S := S + i;
end;
writeln('Tong S la: ', S);
readln;
end.
Đúng 0
Bình luận (0)