Viết chương trình tính tổng T:a^n +b^m+c^p Với các số a, b, c, m, n, p nhập từ bàn phím

0 bình luận về “Viết chương trình tính tổng T:a^n +b^m+c^p Với các số a, b, c, m, n, p nhập từ bàn phím”

1. var a, b, c: word;

         m, n, p: byte;

        T: qword;

   Function gt(k: word; x: byte): qword;

       Var j: byte;

       Begin

           Gt:=1;

           For j:=1 to x do gt:=gt*k;

       End;

   Begin

       Write(‘nhap a va n: ‘); readln(a, n);

       Write(‘nhap b va m: ‘); readln(b, m);

       Write(‘nhap c va p: ‘); readln(c, p);

       T:= gt(a, n) + gt(b, m) + gt(c, p);

       Write(‘tong: ‘, t);

       Readln

   End.

   Bình luận

2. program tinh_tong;

   uses crt;

   var a,b,c,n,m,p:integer;

        t:int64;

   {—Chuong-trinh-con—}

   function gt(k,h:integer):int64;

   var i:integer;

   begin

          gt:=1;

          for i:=1 to h do

                 gt:=gt*k;

   end;

   {—Chuong-trinh-chinh—}

   BEGIN

          clrscr;

          write(‘Nhap a: ‘);  readln(a);

          write(‘Nhap b: ‘);   readln(b);

          write(‘Nhap c: ‘);  readln(c);

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

          write(‘Nhap m: ‘);   readln(m);

          write(‘Nhap p: ‘);  readln(p);

          t:=gt(a,n)+gt(b,m)+gt(c,p);

          write(‘Tong la: ‘,t);

          readln;

   end.

   Bình luận