KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
Viết chương trình tính tổng s=1+1/2-+1/n có sử dụng chương trình con
By Delilah
Viết chương trình tính tổng s=1+1/2….+1/n có sử dụng chương trình con
uses crt; var n:integer; {—Ham-tong—} function s(n:integer):real; var i:integer; begin s:=0; for i:=1 to n do s:=s+1/i; end; {—Chuong-trinh-chinh—} BEGIN clrscr; write(‘Nhap n: ‘); readln(n); write(‘s=’,s(n):0:2); readln; END.
uses crt;
var n:integer;
{—Ham-tong—}
function s(n:integer):real;
var i:integer;
begin
s:=0;
for i:=1 to n do s:=s+1/i;
end;
{—Chuong-trinh-chinh—}
BEGIN
clrscr;
write(‘Nhap n: ‘); readln(n);
write(‘s=’,s(n):0:2);
readln;
END.
program tinh_tong;
uses crt;
var n:integer;
{—Chuong-trinh-con—}
function tong(m:integer):real;
var i:integer;
begin
tong:=0;
for i:=1 to m do
tong:=tong+1/i;
end;
{—Chuong-trinh-chinh—}
BEGIN
clrscr;
write(‘Nhap n: ‘); readln(n);
write(‘S= ‘,tong(n):0:3);
readln;
end.