Массив

[jaxik]

Есть некоторое число "A" оно варьируется (3<=A<=10), есть другое число "B" (10<=B<=30), после проделывания с этим числами операций, а именно подставления в формулу, число должно быть 990<=число<=1010. Код который попробовал написать здесь.

var
mas:array[3..10] of integer;
mas2:array[10..30] of integer;
begin
for i:=3 to 10 do
for j:=10 to 30 do
if 3.14*(mas[i]*mas[i])*mas2[j]>=990 and
3.14*(mas[i]*mas[i])*mas2[j]<=1010 then ....

[Kolik317]

может я чего не понял, а зачем здесь массив? У вас же вместо А и Б выступают I и J, их и берите.

var i,j integer;
a:real;
begin
for i:=3 to 10 do
for j:=10 to 30 do
if (3.14*(i*i)*j>=990) and
(3.14*(i*i)*j<=1010) then 
begin
a:=3.14*(i*i)*j;
break;
end;

переменная А - ваш ответ.

[jaxik]

Извините за тупость, спасибо )))

[jaxik]

Извините, что еще тревожу, но а как теперь сделать функцию?


function vs(i,j:integer):real;
begin
for i:=3 to 10 do
for j:=10 to 30 do
if (3.14*(i*i)*j>=990) and
(3.14*(i*i)*j<=1010) then
begin
vs:=3.14*(i*i)*j;
s:=2*3.14*i*j+2*3.14*(i*i);
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
label1.Caption:=floattostr(vs(0,0)) ;
end;


таким способом я могу вывести одно значение либо i или j или vs или s. Но как мне вывести все эти значения?

[Dimasw]

type
MyRec=record
i_var:integer;
j_var:integer;
vs_var:real;
s_var:real;
end;

...

function TForm1.vs(i, j: integer): MyRec;
var
s: double;
begin
for i:=3 to 10 do
for j:=10 to 30 do
if (3.14*(i*i)*j>=990) and
(3.14*(i*i)*j<=1010) then
begin
vs.vs_var :=3.14*(i*i)*j;
vs.s_var:=2*3.14*i*j+2*3.14*(i*i);
vs.i_var:=i;
vs.j_var:=j;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
MyRec1:MyRec;
begin
MyRec1:=vs(0,0);
label1.Caption:=floattostr(Myrec1.v s_var) ;
label2.Caption:=floattostr(Myrec1.s _var) ;
label3.Caption:=inttostr(Myrec1.i_v ar) ;
label4.Caption:=inttostr(Myrec1.j_v ar) ;
end;