Необходимо решить задачу в коде программы Делфи: Вычислите произведение P=2*4*6*8*...*2n для заданного n

[Murfik97]

Вычислите произведение P=2*4*6*8*...*2n для заданного n (При желании кроме кода, можна показать на блок-схеме)

[ViktorR]

Ищем n! - факториал n и умножаем на 2.
В чем проблема? Как посчитать факториал?
Тут примеров много.



Как-то так,...

[BDA]

ViktorR, точнее 2^n * n!. Хотя легче сразу перемножать нужные числа или домножать на 2 каждый элемент в цикле расчета факториала, т.е. (псевдокод):
s равно 1
цикл по i от 1 до n делать
s равно произведению s на 2*i

[Аватар]

ViktorR, стыдно
2*4*6=48
по вашей формуле
3!*2=12

[Murfik97]

Я понимаю, что для вас это слишком легко, чтоб даже писать, ну всё же прошу вас помочь утопающиму

[BDA]

"Спасение утопающих — дело рук самих утопающих"
Вы попытайтесь написать, а мы поправим ошибки.

[Murfik97]

Принцеп сам понятен, но как в делфи вписать по циклу нахождение P

[BDA]

Хорошо. Вы можете присвоить переменной какое-нибудь значение? А написать цикл? (пока оба пункта отдельно)

[Murfik97]

procedure TForm1.FormCreate(Sender: TObject);
var
i,n,m : integer
begin
n:=FileName.Edit1 ;
m:=FileNameEdit2;
for i:=2 to n do
begin
P:=(Здесь необходимо что писать ;);
end;
SHowmessage(P:=FileName.Edit3);


end;

end.

НУ как бы так m я планировал как количество цифр в P
Подкорректируйте в местах показаных мной и вскорей всего где видете ошибку

[BDA]

procedure TForm1.onClick(Sender: TObject);
var
    p, n, i: integer;
begin
    n := strtoint(edit1.text);
    p := 1;
    for i := 1 to n do
        p := p * 2 * i;
    showmessage(inttostr(p));
end;

Киньте на форму кнопку Button и текстовое поле Edit.
Назначьте этот код в событие onClick кнопки (кликните два раза по кнопке и впишите код в появившуюся заготовку).