Viết chương trình cho máy tính: a) Tính tổng S = 1/1+1/3+1/5+1/7+ ..”1/19+1/21 b) TÍnh tích: Q =3*5*7*9*11*..*15

0 bình luận về “Viết chương trình cho máy tính: a) Tính tổng S = 1/1+1/3+1/5+1/7+ ..”1/19+1/21 b) TÍnh tích: Q =3*5*7*9*11*..*15”

1. uses crt;
   var i:byte;
       s:real;
       q:longint;
   BEGIN
           clrscr;
           s:=1;     i:=3;
           while i<=21 do
           begin
                   s:=s+1/i;
                   inc(i,2);
           end;
           q:=3; i:=5;
           while i<=15 do
           begin
                   q:=q*i;
                   inc(i,2);
           end;
           writeln(‘S=’,s:0:3);
           writeln(‘Q=’,q);
           readln
   END.

   Mình gộp cả 2 câu lun đó. (cực kì dễ hỉu)

   Bình luận

2. Câu a)

   program tinhtong;

   var i:byte;

         s:real;

   begin

   clrscr;

   s:=0;

   for i:=1 to 21 do

    if i mod 2=1 then s:=s+1/i;

   write(‘S= ‘,s:2:2);

   readln

   end.

   Câu b)

   program tinhtich;

   var i:byte;

         q:longint;

   begin

   clrscr;

   Q:=1;

   for i:=3 to 15 do

    if i mod 2=1 then Q:=Q*i;

   write(‘Q= ‘,q);

   readln

   end.

   Cho mình ctlhn nha!

   Bình luận