Cho 1 dãy số như sau T=1*2*3…*200 A) nêu các bước để giải bài toán trên b) viết chương trình bằng 2 cách , cách 1 sử dụng if,then ;cách 2 sử dụng f

0 bình luận về “Cho 1 dãy số như sau T=1*2*3…*200 A) nêu các bước để giải bài toán trên b) viết chương trình bằng 2 cách , cách 1 sử dụng if,then ;cách 2 sử dụng f”

1. a) Bước giải :

   B1 : Khai báo các biến

   B2 : Cho biến i chạy từ giá trị 1 đến giá trị 200 và thực hiện câu lệnh gán giá trị để tính tích T

   B3 : In ra màn hình kết quả.

   B4 : Kết thúc câu lệnh.

   b) Chương trình :

   Program dungdaytuchieu;

   Uses crt;

   Var i , T : longint;

   Begin clrscr;

   T :=1;

   For i :=1 to 200 do T :=t*i;

   Writeln(‘T=’t);

   readln

   end.

   Bình luận

2. a)
   B1: T←1; i←1;

   B2: Nếu i<=200 thì chuyển qua B3, ngược lại chuyển đến B5.

   B3: T←T*i; i←i+1;

   B4: Quay lại B2.

   B5: Thông báo kết quả T ra màn hình và kết thúc.

   b)

   -Sử dụng while-do:(bạn dùng if-then thì không lặp đc)

   program oken;
   uses crt;
   var t:longint;
       i:byte;
   begin
           clrscr;
           t:=1; i:=1;
           while i<=200 do
                   begin
                           t:=t*i;
                           i:=i+1;
                   end;
           writeln(‘Tich T: ‘,t);
           readln;
   end.

   -Sử dụng for-to-do:

   program oken;
   uses crt;
   var t:longint;
       i:byte;
   begin
           clrscr;
           t:=1;
           for i:=1 to 200 do
                   t:=t*i;
           writeln(‘Tich T: ‘,t);
           readln;
   end.

   Bình luận