代码搜索：A-P
找到约 2 项符合「A-P」的源代码
代码结果 2
www.eeworm.com/read/493722/6389409
pas ac1200.pas
program ural1200;
var
a,b,ans:real;
k,x,y,t,u:integer;
procedure update(p,q:integer);
var
m:real;
begin
m:=(a-p)*p+(b-q)*q;
if m>ans then begin
ans:=m;
x:=p;
www.eeworm.com/read/231652/14225180
pas ac1200.pas
program ural1200;
var
a,b,ans:real;
k,x,y,t,u:integer;
procedure update(p,q:integer);
var
m:real;
begin
m:=(a-p)*p+(b-q)*q;
if m>ans then begin
ans:=m;
x:=p;