Цитата:
Сообщение от MagentaTiger
На чем не известно (ЯП)
|
Скорее всего, Паскаль. Правда, непонятно какой. Олег, ну ты же понимаешь, что если товарищ напишет такие подробности, у него же пальчики отвалятся от непосильного труда.
Цитата:
Сообщение от MagentaTiger
как вычислять тоже
|
Ну... я думаю, имеется в виду что-то в таком роде:
Код:
Var
P,Q,x:Real;
i,k:Integer;
Begin
Write('x = ');
Readln(x);
P:=1;
Q:=1;
k:=1;
for i:=1 to 6 do
begin
k:=k*2;
P:=P*(x-(k-1));
Q:=Q*(x-k);
end;
if Q<>0 then Writeln('Z1 = ',P/Q:0:5);
P:=1;
Q:=1;
k:=1;
Repeat
k:=k*2;
P:=P*(x-(k-1));
Q:=Q*(x-k);
Until k=64;
if Q<>0 then Writeln('Z2 = ',P/Q:0:5);
P:=1;
Q:=1;
k:=1;
While k<=32 do
begin
k:=k*2;
P:=P*(x-(k-1));
Q:=Q*(x-k);
end;
if Q<>0 then Writeln('Z3 = ',P/Q:0:5);
if Q=0 then Writeln('No solution! Try another x');
Readln
End.