Bài 1.Giả sử tệp số nguyên chứa 2 số nguyên. Viết ct tính a^b. Bài 2. Viết ct đọc dữ liệu từ tệp vd: . inp chứa 2 số nguyên sau đó tính trung bình cộ

0 bình luận về “Bài 1.Giả sử tệp số nguyên chứa 2 số nguyên. Viết ct tính a^b. Bài 2. Viết ct đọc dữ liệu từ tệp vd: . inp chứa 2 số nguyên sau đó tính trung bình cộ”

1. Bài 1:

   Const Fi=’Tep.TXT’;
   Var f: text;
       a,b,i: longint;
       s: qword;
   Begin
           Assign(f,Fi); Reset(f);
           Read(f,a,b);
           s:=1;
           For i:=1 to b do
                   s:=s*a;
           Write(‘S = ‘,s);
           Close(f);
           Readln
   End.

   Bài 2:

   Const Fi=’Tep.TXT’;
   Var f: text;
       a,b,i: longint;
       s: qword;
   Begin
           Assign(f,Fi); Reset(f);
           Read(f,a,b);
           s:=a+b;
           Write(‘TBC = ‘,s/2:0:2);
           Close(f);
           Readln
   End.

   Bình luận

2. Bài 1:

   Const fi=’songuyen.txt’;
   Var f: text;
       a,b,i:,s longint;
   Begin
           Assign(f,fi); Reset(f);
           Read(f,a,b); s:=1;
           For i:=1 to b do
                   s:=s*a;
           Write(s);
   Close(f); Readln;
   End.

   Bài 2:

   Const fi=’tbc.txt’;
   Var f: text;
         a,b,s: longint;
   Begin
           Assign(f,fi); Reset(f);
           Read(f,a,b);
           Write((a+b)/2);
   Close(f); Readln;
   End.

   Bình luận