S=1+2+3 +…+N S=2+4+6+…2N yêu cầu : sử dụng 2 dạng tiến lùi

0 bình luận về “S=1+2+3 +…+N S=2+4+6+…2N yêu cầu : sử dụng 2 dạng tiến lùi”

1. DẠNG TIẾN

   Bài 1:

   Uses crt;
   Var s, n, i: integer;
   Begin
   Write(‘Nhap n = ‘); readln(n);
   s:=0;
   For i:=1 to n do s:=s+i;
   Writeln(S);
   Readln
   End.

   Bài 2:

   Uses crt;
   Var s, i, n: integer;
   Begin
   Write(‘Nhap n = ‘); readln(n);
   s:=0;
   For i:=1 to 2*n do if i mod 2 = 0 then s:=s+i;
   Writeln(S);
   Readln
   End.

   DẠNG LÙI

   Bài 1:

   Uses crt;
   Var s, i, n: integer;
   Begin
   Write(‘Nhap n = ‘); readln(n);
   s:=0;
   For i:=n downto 1 do s:=s+i;
   Writeln(S);
   Readln
   End.

   Bài 2:

   Uses crt;
   Var s, i, n: integer;
   BEgin
   Write(‘Nhap n = ‘); readln(n);
   s:=0;
   For i:=2*n downto 1 do if i mod 2 = 0 then s:=s+i;
   Writeln(S);
   Readln
   End.

   Bình luận

2. DẠNG TIẾN.

   for i:=1 to n do

   s:=s+i;

   dạng lùi

   for i:=n downto 1 do

   s:=s+i;

   -dạng tiến

   for i:=1 to 2*n do

   if i mod 2=0 then s:=s+i;

   dạng lùi

   for i:=n downto 1 do

   if i mod 2=0 then s:=s+i;

   Bình luận