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
2 câu trả lời
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.
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));
Câu hỏi trong lớp
Xem thêm
