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)
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)
By Nevaeh
By 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]