Hãy xác định Input, Output và viết chương trình bằng 2 vòng lặp (while, For) tính P=1/2.2/3.3/4-n/(n+1)

0 bình luận về “Hãy xác định Input, Output và viết chương trình bằng 2 vòng lặp (while, For) tính P=1/2.2/3.3/4-n/(n+1)”

1. Input: nhập n

   Output: P=1/2*2/3*…*n/(n+1).

   -Sử dụng vòng lặp while-do:

   program oken;

   uses crt;

   var p:real;

         i,n:integer;

   begin

   clrscr;

   write(‘nhap n: ‘); readln(n);

   i:=1; P:=0;

   while i<=n do

     begin

        p:=p+(i/(i+1));

        i:=i+1;

     end;

   writeln(‘P=’,p:0:3);

   readln;

   end.

   -Sử dùng vòng lặp For-to-do:

   program oken;

   uses crt;

   var i,n:integer;

        p:real;

   begin

   clrscr;

   write(‘nhap n: ‘); readln(n);

   p:=0;

   for i:=1 to n do

      p:=p+(i/(i+1));

   writeln(‘P=’,p);

   readln;

   end.

   Bình luận

2. Input: n

   Output: P = 1/2 . 2/3 . 3/4 . n/(n+1)

   —

   For … do

   —

   Program FNG;
   Uses crt;
   Var n,i: longint;
       s: extended;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=1;
           For i:=1 to n do
                   s:=s+i/(i+1);
           Write(‘S = ‘,s:0:2);
           Readln
   End.

   —

   While … do

   —

   Program FNG;
   Uses crt;
   Var n,i: longint;
       s: extended;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=1; i:=1;
           While i<=n do
           Begin
                   s:=s+i/(i+1);
                   inc(i);
           End;
           Write(‘S = ‘,s:0:2);
           Readln
   End.

   Bình luận