tính giá trị biểu thức [b^2+sqrt(b-a*a*c)]/2*a với a,b,c nhập từ bàn phím dữ liệu vào: cho trong tập văn bản gtbt.inp gồm 1 dòng duy nhất ghi 3

0 bình luận về “tính giá trị biểu thức [b^2+sqrt(b-a*a*c)]/2*a với a,b,c nhập từ bàn phím dữ liệu vào: cho trong tập văn bản gtbt.inp gồm 1 dòng duy nhất ghi 3”

1. uses crt;
   var f:text; a,b,c:integer; s:real;
   begin
   clrscr;
      assign(f,’input.pas’);reset(f);
         readln(f,a,b,c);
      assign(f,’output.pas’);rewrite(f);
         s:=(b*b+sqrt(b-a*a*c))/2*a;
         writeln(f,s:0:2);
      close(f);
   end.

   Bình luận

2. program tinh_gia_tri;

   uses crt;

   var a,b,c:integer;

         gt:real;

        f,g:text;

   begin

           Assign(f,’gtbt.inp’);  reset(f);

           Assign(g,’gtbt.out’);   rewrite(g);

           readln(f,a,b,c);

           gt:=(b*b+sqrt(b-a*a*c))/2*a;

           writeln(g,gt:2:2);

           close(f);  close(g);     

   end.

   Bình luận