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

[андрей1107]

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

[beegl]

используйте этот компонент с примером и там много полезного Minimize, или PegToPMath

[Stilet]

beegl

По-моему это сложновато для ТС, тем паче что не ясно на каком ЯВУ нужно.

андрей1107

Твои попытки увидеть можно? Хотя бы начало.

[андрей1107]

uses crt;
var x,y:real;
    i,p:integer;
begin
clrscr;
write('x=');
readln(x);
p:=1;
y:=1;
for i:=1 to 6 do
 begin
  p:=p*2;
  if x=p then
   begin
    write('y не определено, деление на 0');
    readln;
   end;
  y:=y*(x-p-1)/(x-p);
 end;
writeln('for=',y:0:2);
p:=1;
y:=1;
i:=1;
while p<64 do
 begin
  p:=p*2;
  if x=p then
   begin
    write('y не определено, деление на 0');
    readln;
   end.

[Stilet]

Понятно. Думаю стоит делать так:

q:=1; w:=1;
for i:=0 to 7 do begin
 q:=q*(x-(1 shl i));
 w:=w*(x-(1 shl i)-1);
end;
write('for=',q/w);

и

q:=1; w:=1;
i:=0;while i<8 do begin
 q:=q*(x-(1 shl i));
 w:=w*(x-(1 shl i)-1);
 inc(i);
end;
write('for=',q/w);

Ну и так далее.