Цитата:
Сообщение от Programm
Квадратных корней отрицательных чисел.
|
Ну что же, тогда - интересная задачка.
К сожалению, на Delphi не пишу, а потому могу предложить решение на Паскале. Вы уж всякие там формы ввода-вывода добавьте сами:
Код:
Var
A,B,N,Nneg,i:Integer;
ModP:Real;
Begin
Write('A(<0) = ');
Readln(A);
Write('B(>0) = ');
N:=0;
Nneg:=0;
ModP:=1;
Readln(B);
for i:=A to B do
if i<>0 then
begin
if (i mod 2)=0 then
begin
N:=N+1;
ModP:=ModP*Sqrt(Abs(i));
if i<0 then Nneg:=Nneg+1;
end;
end;
Write('Result: ');
if N=0 then Writeln('No even numbers!') else
if Nneg=0 then Writeln(ModP:0:5) else
begin
if (Nneg mod 4)=0 then Writeln(ModP:0:5) else
if (Nneg mod 2)=0 then Writeln(-ModP:0:5) else
if ((Nneg-1) mod 4)=0 then Writeln('i',ModP:0:5) else
Writeln('-i',ModP:0:5);
end;
Readln
End.