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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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.

   Bình luận