Ответы
Ответ дал:
1
begin
var
x, y, a : real;
x := 0.1;
a := 0.15;
while x <= 0.9 do begin
y := ((4*sqrt(1-a*sqr(x)))/(1+sqr(a)+sqr(x)))+sqrt(1-sqr(x));
writeln('x=', x, '; y=', y);
x += 0.2;
end;
end.
надеюсь, я ничего не забыл ^^
var
x, y, a : real;
x := 0.1;
a := 0.15;
while x <= 0.9 do begin
y := ((4*sqrt(1-a*sqr(x)))/(1+sqr(a)+sqr(x)))+sqrt(1-sqr(x));
writeln('x=', x, '; y=', y);
x += 0.2;
end;
end.
надеюсь, я ничего не забыл ^^
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад