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 số nguyên a,b,c dữ liệu ra: ghi trong tập tin văn bản gtbt.out kết quả
2 câu trả lời
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.
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.
