Bài 4:Tính tổng S=1+1/2+1/4+1/4+-+1/n cho đến khi 1/n

06/08/2021 Bởi Sarah

0 bình luận về “Bài 4:Tính tổng S=1+1/2+1/4+1/4+-+1/n cho đến khi 1/n<ep(trong đó ep rất nhỏ,Ví dụ ep=0.000001)In ra màn hình giá trị của S và n”

1. program oken;
   uses crt;
   var s,ep: real;
       i: longint;
   begin
       clrscr;
       ep:= 0.000001; s:=0; i:=1;
       while (1/i>ep) do
           begin
               s:=s+1/i;
               i:=i+1;
           end;
       writeln(‘So can tim: ‘,i);
       readln;
   end.

   Bình luận

2. program BiBo212;
   uses crt;
   var n :integer; S,ep :real;
   begin
           clrscr;
           n:=1;
           S:=0;
           write(‘Nhap so Ep(VD:0.0001): ‘);readln(ep);
           while 1/n >=ep do
                   begin;

                           S:=S+1/n;
                           n:=n+1;
                           write(n:5);
                   end;
           writeln(‘S la: ‘,S:2:6);
           write(‘n la: ‘,n);
           readln;
   end.

   P/S:Bạn chạy trên Turbo Pascal nhá chứ trên Pascal nó bị lỗi dữ liệu.

   Bình luận