giúp mình với mình đang cần gấp viết chương trinh x=(a^2+b^2)/2ab + (a.b-a^2)/b^2

0 bình luận về “giúp mình với mình đang cần gấp viết chương trinh x=(a^2+b^2)/2ab + (a.b-a^2)/b^2”

1. uses crt;
   var a,b,x:real;
   begin
      clrscr;
      write(‘Nhap a: ‘); readln(a);
      write(‘Nhap b: ‘); readln(b);
      x:=((a*a+b*b)/(2*a*b))+((a*b-a*a)/(b*b));
      write(‘Ket qua la: ‘,x:10:4);
      readln
   end.

   Bình luận

2. program ct;

   uses crt;

   var a,x,b:real;

   begin

   clrscr;

   write(‘nhap a:=’);readln(a);

   write(‘nhap b:=’);readln(b);

   x:=((a*a+b*b)/(2*a*b))+((a*b-a*a)/(b*b))

   writeln(‘ket qua’,x:5:2);

   readln

   end.

   ((a*a+b*b)/(2*a*b))+((a*b-a*a)/(b*b));

   Bình luận