Viết Chương Trình Pascal Tính Tổng S=1 2 3 ... N?(bằng Câu Lệnh ...

HOC24

Lớp học Học bài Hỏi bài Giải bài tập Đề thi ĐGNL Tin tức Cuộc thi vui Khen thưởng

• Tìm kiếm câu trả lời Tìm kiếm câu trả lời cho câu hỏi của bạn

Đóng Đăng nhập Đăng ký

Lớp học

• Lớp 12
• Lớp 11
• Lớp 10
• Lớp 9
• Lớp 8
• Lớp 7
• Lớp 6
• Lớp 5
• Lớp 4
• Lớp 3
• Lớp 2
• Lớp 1

Môn học

• Toán
• Vật lý
• Hóa học
• Sinh học
• Ngữ văn
• Tiếng anh
• Lịch sử
• Địa lý
• Tin học
• Công nghệ
• Giáo dục công dân
• Tiếng anh thí điểm
• Đạo đức
• Tự nhiên và xã hội
• Khoa học
• Lịch sử và Địa lý
• Tiếng việt
• Khoa học tự nhiên
• Hoạt động trải nghiệm
• Hoạt động trải nghiệm, hướng nghiệp
• Giáo dục kinh tế và pháp luật

Chủ đề / Chương

Bài học

HOC24

Khách vãng lai Đăng nhập Đăng ký Khám phá Hỏi đáp Đề thi Tin tức Cuộc thi vui Khen thưởng

• Tất cả
• Toán
• Vật lý
• Hóa học
• Sinh học
• Ngữ văn
• Tiếng anh
• Lịch sử
• Địa lý
• Tin học
• Công nghệ
• Giáo dục công dân
• Tiếng anh thí điểm
• Hoạt động trải nghiệm, hướng nghiệp
• Giáo dục kinh tế và pháp luật

Hãy tham gia nhóm Học sinh Hoc24OLM Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Câu hỏi

Hủy Xác nhận phù hợp Chọn lớp Tất cả Lớp 12 Lớp 11 Lớp 10 Lớp 9 Lớp 8 Lớp 7 Lớp 6 Lớp 5 Lớp 4 Lớp 3 Lớp 2 Lớp 1 Môn học Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Tiếng anh thí điểm Đạo đức Tự nhiên và xã hội Khoa học Lịch sử và Địa lý Tiếng việt Khoa học tự nhiên Hoạt động trải nghiệm Hoạt động trải nghiệm, hướng nghiệp Giáo dục kinh tế và pháp luật Mới nhất Mới nhất Chưa trả lời Câu hỏi hay

• Trí So Sad

21 tháng 4 2021 lúc 22:28

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

Xem chi tiết Lớp 8 Tin học Bài 7. Câu lênh lặp 2 0 Gửi Hủy Nguyễn Lê Phước Thịnh CTV 22 tháng 4 2021 lúc 21:38

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) Gửi Hủy Nguyễn Lê Phước Thịnh CTV 22 tháng 4 2021 lúc 21:38

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) Gửi Hủy

• SuperMeo

10 tháng 4 2021 lúc 13:17

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

Xem chi tiết Lớp 8 Tin học Bài 8. Lặp với số lần chưa biết trước 3 0 Gửi Hủy Trungnghia 10 tháng 4 2021 lúc 16:20

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...doVar 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);ReadlnEnd.*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) Gửi Hủy Nguyễn Lê Phước Thịnh CTV 10 tháng 4 2021 lúc 20:14

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) Gửi Hủy Nguyễn Lê Phước Thịnh CTV 10 tháng 4 2021 lúc 20:14

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) Gửi Hủy

• Thu Tuyền

8 tháng 3 2023 lúc 7:17

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

Xem chi tiết Lớp 8 Tin học Bài 8. Lặp với số lần chưa biết trước 2 0 Gửi Hủy Phía sau một cô gái 8 tháng 3 2023 lúc 15:05

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) Gửi Hủy Nguyễn Hoàng Duy 24 tháng 3 2023 lúc 10:29

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) Gửi Hủy

• Thanh huyền

7 tháng 3 2023 lúc 13:25

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

Xem chi tiết Lớp 8 Tin học Bài 8. Lặp với số lần chưa biết trước 2 0 Gửi Hủy Minh Lệ 7 tháng 3 2023 lúc 13:34

*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) Gửi Hủy Minh Lệ 7 tháng 3 2023 lúc 21:30

*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) Gửi Hủy

• Thu Tuyền

7 tháng 3 2023 lúc 17:40

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

Xem chi tiết Lớp 8 Tin học Bài 8. Lặp với số lần chưa biết trước 2 0 Gửi Hủy Minh Lệ 7 tháng 3 2023 lúc 21:23

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) Gửi Hủy Nguyễn Hoàng Duy 24 tháng 3 2023 lúc 10:30

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) Gửi Hủy

• Viet anh Nguyen

14 tháng 8 2021 lúc 9:02

 

 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

 

Xem chi tiết Lớp 8 Tin học 2 0 Gửi Hủy Trúc Giang 14 tháng 8 2021 lúc 9:07

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) Gửi Hủy ꧁༺вé αкαиє ꧁TikTok꧂( тєα... 14 tháng 8 2021 lúc 20:02

Hay nhỉ

Đúng 0 Bình luận (0) Gửi Hủy

• Minh Ngọc
• 

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

Xem chi tiết Lớp 8 Tin học Bài 8. Lặp với số lần chưa biết trước 1 0 Gửi Hủy Nguyễn Lê Phước Thịnh CTV 11 tháng 3 2022 lúc 9:44

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) Gửi Hủy

• Minh Ngọc
• 

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

Xem chi tiết Lớp 8 Tin học Bài 7. Câu lênh lặp 1 0 Gửi Hủy Nguyễn Lê Phước Thịnh CTV 11 tháng 3 2022 lúc 15:46

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) Gửi Hủy

• Thanh huyền

7 tháng 3 2023 lúc 15:39

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

Xem chi tiết Lớp 8 Tin học Bài 8. Lặp với số lần chưa biết trước 3 0 Gửi Hủy Minh Lệ 7 tháng 3 2023 lúc 17:08

Đề 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) Gửi Hủy Minh Lệ 7 tháng 3 2023 lúc 17:36

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) Gửi Hủy Minh Lệ 7 tháng 3 2023 lúc 23:02

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) Gửi Hủy

• Ngọc Tú

7 tháng 3 2023 lúc 15:44

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

Xem chi tiết Lớp 8 Tin học Bài 8. Lặp với số lần chưa biết trước 2 0 Gửi Hủy Phía sau một cô gái 7 tháng 3 2023 lúc 19:46

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) Gửi Hủy Nguyễn Hoàng Duy 24 tháng 3 2023 lúc 10:31

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) Gửi Hủy