Tin 8

[Huynh Thu Ngan]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Vẽ lưu đồ : tính lũy thừa y của x(x^y)
-tính tổng các số lẽ từ 1 đến N

 

[Ngô Trọng Nhân]

Vẽ lưu đồ : tính lũy thừa y của x(x^y)
-tính tổng các số lẽ từ 1 đến N

Tính tổng các số lẽ từ 1 đến N:
uses crt;
var tong,n,i:integer;
begin
clrscr;
write('nhap n: ');readln(n);
for i:=1 to n do
if (i mod 2=1) then tong:=tong+i;
write('tong cac so le tu 1 cho den ',n,' la: ',tong);
readln;
end.

 

[Huynh Thu Ngan]

Tính tổng các số lẽ từ 1 đến N:
uses crt;
var tong,n,i:integer;
begin
clrscr;
write('nhap n: ');readln(n);
for i:=1 to n do
if (i mod 2=1) then tong:=tong+i;
write('tong cac so le tu 1 cho den ',n,' la: ',tong);
readln;
end.

Mình không hiểu

 

[Nguyễn Thánh Tiền]

vẽ sơ đồ khối không cần code \

 

[Ngô Trọng Nhân]

Mình không hiểu

Có nghĩa là:
Nếu tính tổng các số từ 1 tới n thì ta cho biến i chạy tới n
Nhưng nếu tính tổng các số lẻ từ 1 đến n thì ta vẫn cho biến i chạy tới n nhưng phải xét biến i đó có phải là số lẻ không bằng cách đưa biến i đó chia 2, nếu i chia hai dư 1 thì biến i đó là số lẻ và ta cộng i vào biến tong (tổng), nếu i chia 2 không dư thì đó là số chẵn nên lệnh sẽ bỏ qua