Технический форум - Помогите пожалуйста составить программу с использованием оператора выбора

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

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

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

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

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

Цитата:

Сообщение от MagentaTiger (Сообщение 1170241)

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

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

Цитата:

Сообщение от MagentaTiger (Сообщение 1170241)

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

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

Код:

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.

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