viết chương trình tính tổng các số từ 1 đến 100 (yêu cầu sử dụng lặp lùi và lặp tiến) giúp em với ạ

0 bình luận về “viết chương trình tính tổng các số từ 1 đến 100 (yêu cầu sử dụng lặp lùi và lặp tiến) giúp em với ạ”

1. Lặp lùi:

   program lap_lui;

   uses crt;

   var i,T: byte;

   Begin

            clrscr;

            for i:=100 downto 1 do T:=T+i;

            write(‘T = ‘,T);

            readln

   End.

   Lặp tiến:

   program lap_tien;

   uses crt;

   var i,T: byte;

   Begin

            clrscr;

            for i:=1 to 100 do T:=T+i;

            write(‘T = ‘,T);

            readln

   End.

   Bình luận

2. *Lặp lùi

   program tong;

   uses crt;

   var i,t:integer;

   begin

          clrscr;

          t:=0;

          for i:=100 downto 1 do t:=t+i;

          write(‘Tong la: ‘,t);

          readln;

   end.

   *Lặp tiến

   program tong;

   uses crt;

   var i,t:integer;

   begin

          clrscr;

          t:=0;

          for i:=1 to 100 do t:=t+i;

          write(‘Tong la: ‘,t);

          readln;

   end.

   Bình luận