Thuật toán:
Bài 1:
B1: S←0; i:=1;
B2: S←S+1/(i*(i+1));
B3: i←i+1; Nếu i<=99 thì quay lại B2
B4: In S ra màn hình và kết thúc.
Bài 2:
B1: S←0; i:=1;
B2: S←S+1/(i*i);
B3: i←i+1; Nếu i<=100 thì quay lại B2
B4: In S ra màn hình và kết thúc.
Bài 3:
B1: S←0; i:=2;
B2: Nếu i mod 3=2 thì S←S+1/(i*(i+3));
B3: i←i+1; Nếu i<=95 thì quay lại B2
B4: In S ra màn hình và kết thúc.
Câu 1:
program tinhtong;
uses crt;
var s:real; i:byte;
begin
clrscr;
s:=0;
for i:=1 to 99 do
s:=s+1/(i*(i+1));
write('S= ',s:2:2);
readln
end.
Câu 2:
program tinhtong;
uses crt;
var s:real; i:byte;
begin
clrscr;
s:=0;
for i:=1 to 100 do
s:=s+1/(i*i);
write('S= ',s:2:2);
readln
end.
Câu 3:
program tinhtong;
uses crt;
var s:real; i:byte;
begin
clrscr;
s:=0;
for i:=2 to 95 do
if i mod 3=2 then s:=s+1/(i*(i+3));
write('S= ',s:2:2);
readln
end.
