Lập chương trình tính tổng sau bằng 2 cách dùng câu lệnh for-do và câu lệnh lệnh while-do .S=1/2+1/4+1/6+…+1/2n ( với n là số nguyên dương nhập vào từ hai bàn phím )
Lập chương trình tính tổng sau bằng 2 cách dùng câu lệnh for-do và câu lệnh lệnh while-do .S=1/2+1/4+1/6+…+1/2n ( với n là số nguyên dương nhập vào từ hai bàn phím )
Cách 1: For … do
Program BTT;
Uses crt;
Var n,i: longint;
S: extended;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
S:=0;
For i:=1 to n do s:=s+1/(2*i);
Write(‘Tong la: ‘,S:0:2);
Readln
End.
Cách 2: While … do
Program BTT;
Uses crt;
Var n,i: longint;
S: extended;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
S:=0; i:=1;
While i<=n do
Begin
S:=S+1/(2*i);
inc(i);
End;
Write(‘Tong la: ‘,s:0:2);
Readln
End.