Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  полезно
Language: PASCAL
Code:
program HelloWorld;
var
  i,x,y,s,b,a,smax,xm,ym    : real;
begin
s:=1000;
smax:=0;
xm:=0;
ym:=0;
x:=0.01; y:=0.01;
for i:=1 to 10000 do
begin
for j:=1 to 10000 do
begin
if (s<x) then s:=x;
if (s<(1/y)) then s:=1/y;
if (s<(y+3/x)) then s:=y+3/x;
y:=y+0.01;
end;
if (smax<s) then begin smax:=s; ym:=y; xm:=x; end;
x:=x+0.01;
s:=10000;
end;
writeln(smax,xm,ym);
end.
Comments: