Viết chương trình tính tổng của 100 số tự nhiên đầu tiên bằng vòng while và for ( giải thích câu lệnh) 23/07/2021 Bởi Nevaeh Viết chương trình tính tổng của 100 số tự nhiên đầu tiên bằng vòng while và for ( giải thích câu lệnh)
1. for…do program phuongt; [khai báo tên chương trình] uses crt; [khai báo thư viện] var i, s: integer; [khai báo biến] begin [bắt đầu chương trình] clrscr; [xóa màn hình] s:=0; [gán s = 1] for i:=1 to 100 do s:=s+i; [chạy i từ 1 đến 100 và làm gán s = s+i] write(‘Tong S = ‘, s); [in giá trị tổng s ra ngoài màn hình] readln [thông báo kết quả ra màn hình] end. [kết thúc chương trình] 2. while…do program phuongt; [khai báo tên chương trình] uses crt; [khai báo thư viện] var i, s: integer; [khai báo biến] begin [bắt đầu chương trình] clrscr; [xóa màn hình] s:=0; i:=1; [gán s = 1; gán i = 1] while i<=100 do [nếu i ≤ 100 thì thực hiện vòng lặp] begin [bắt đầu vòng lặp] s:=s+i; [gán s = s+i] i:=i+1; [gán i = i+1] end; [kết thúc vòng lặp] write(‘Tong S = ‘, s); [in giá trị tổng s ra ngoài màn hình] readln [thông báo kết quả ra màn hình] end. [kết thúc chương trình] Bình luận
1. for…do
program phuongt; [khai báo tên chương trình]
uses crt; [khai báo thư viện]
var i, s: integer; [khai báo biến]
begin [bắt đầu chương trình]
clrscr; [xóa màn hình]
s:=0; [gán s = 1]
for i:=1 to 100 do s:=s+i; [chạy i từ 1 đến 100 và làm gán s = s+i]
write(‘Tong S = ‘, s); [in giá trị tổng s ra ngoài màn hình]
readln [thông báo kết quả ra màn hình]
end. [kết thúc chương trình]
2. while…do
program phuongt; [khai báo tên chương trình]
uses crt; [khai báo thư viện]
var i, s: integer; [khai báo biến]
begin [bắt đầu chương trình]
clrscr; [xóa màn hình]
s:=0; i:=1; [gán s = 1; gán i = 1]
while i<=100 do [nếu i ≤ 100 thì thực hiện vòng lặp]
begin [bắt đầu vòng lặp]
s:=s+i; [gán s = s+i]
i:=i+1; [gán i = i+1]
end; [kết thúc vòng lặp]
write(‘Tong S = ‘, s); [in giá trị tổng s ra ngoài màn hình]
readln [thông báo kết quả ra màn hình]
end. [kết thúc chương trình]