dùng 2 lệnh for.to.do và while.do vt chương trình tính tích sau T= 1*1/2*1/3*..*1/50

Question

dùng 2 lệnh for.to.do và while.do vt chương trình tính tích sau
T= 1*1/2*1/3*..*1/50

in progress 0
Madeline 1 năm 2021-07-20T14:09:06+00:00 2 Answers 4 views 0

Answers ( )

    0
    2021-07-20T14:10:06+00:00

    for…to…do…

    program tong_T;

    uses crt;

    var t:real;

          i:byte;

    begin

           clrscr;

           T:=0;

           for i:=1 to 50 do

                  T:=T+1/i;

           write(‘T= ‘,t:0:3);

           readln;

    end.

    while…do…

    program tong_T;

    uses crt;

    var i:integer;

         T:real;

    begin

           clrscr;

           i:=1; T:=0;

           while i<=50 do

                  begin

                         T:=T+1/i;

                         i:=i+1;

                  end;

           write(‘T= ‘,t:0:3);

           readln;

    end.

    0
    2021-07-20T14:11:02+00:00

    Dùng For…to…do:

    program tong;

    uses crt;

    var i: byte;

          T: real;

    Begin

             clrscr;

             T:=1;

             for i:=1 to 50 do T:=T*1/i;

             write(‘T = ‘,T:2:3);

             readln

    End.

    Dùng While…do:

    program tong;

    uses crt;

    var i: byte;

          T: real;

    Begin

             clrscr;

             T:=1;  i:=1;

             while i<=50 do

             begin

                      T:=T*1/i;

                      i:=i+1;

             end;

             write(‘T = ‘,T:2:3);

             readln

    End.

Leave an answer

Browse

35:5x4+1-9:3 = ? ( )