bài 1: viết chương trình tính n! bài 2: viết chương trình tính a^n( a: real, b: integer)

0 bình luận về “bài 1: viết chương trình tính n! bài 2: viết chương trình tính a^n( a: real, b: integer)”

1. Câu 1:

   uses crt;
   var n,i,gt:longint;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      gt:=1;
      for i:=n downto 1 do
         gt:=gt*i;
      writeln(n,’!=’,gt);
      readln
   end.

   Câu 2:

   uses crt;
   var a,n,i,lt:longint;
   begin
      clrscr;
      write(‘Nhap a,n: ‘); readln(a,n);
      lt:=1;
      for i:=1 to n do lt:=lt*a;
      writeln(a,’^’,n,’=’,lt);
      readln
   end.

   Bình luận

2. Bài `1`

   Program Hotboy;

   Uses crt;

   Var n, gt:longint;

   Begin

        clrscr;

        Repeat

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

        until n>0;

        gt:=1;

        while n>0 do

        begin

        gt:=gt*n;

        n:=n-1;

        end;

        writeln(‘Giai thua cua n la: ‘,gt);

        readln

   end.

   Bài `2`

   Program Hotboy ;

   Uses crt;

   Var gt,n,a : longint;

   Begin

   Clrscr;

   Write(‘nhap n’);

   Readln(n);

   Write(‘nhap a’);

   Readln(a);

   For i:=1 to n do

   Gt:=gt*a;

   Write(‘A^n la’,gt);

   Readln

   End.

   Bình luận