Помогите пожалуйста составить программу с использованием оператора выбора

[Андрей1107]

Помогите пожалуйста составить программу с использованием оператора выбора

составить программу с использованием всех операторов цикла. (В одной программе решить задачу тремя способами)
Ввести действительное х и вычислить:
(x-1)(x-3)(x-7)...(x-63)/(x-2)(x-4)(x-8)...(x-64)

 

[MagentaTiger]

На чем не известно (ЯП), как вычислять тоже
Вам надо в цикле
(x-1)/(x-2)
(x-3)/(x-4)
....
Или как ?


ЗЫ: Или у нас в техникумах/вузах/универах только паскаль сейчас как базовый дают ?

 

[Vladimir_S]

На чем не известно (ЯП)

Скорее всего, Паскаль. Правда, непонятно какой. Олег, ну ты же понимаешь, что если товарищ напишет такие подробности, у него же пальчики отвалятся от непосильного труда.

как вычислять тоже

Ну... я думаю, имеется в виду что-то в таком роде:

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.

 

[Андрей1107]

да яп паскаль,в технаре как базовый идет

 

[Андрей1107]

спасибо)))