Delphi 7. Задача

[Юрий2009]

Помогите пожалуйста найти ошибку
Задача: Дано натуральное n. Вычислить: y=1*3*5x...x(2n-1)
function Calc(n:integer):integer;
var
i:integer;
begin
Result := 1;
for i:=2 to n do Result := Result * ( 2*i - 1 );
end;

[MalCer]

http://programmersforum.ru/showthread.php?t=47871

[Юрий2009]

Сообщение от MalCer

http://programmersforum.ru/showthread.php?t=47871

я так сделал, но когда вводишь числа ком.строка исчезает!?!
i := 1;
P := 1;
while i<=2*n-1 do
begin
P := P*i;
inc(i,2);
end;

[Sazary]

я так сделал, но когда вводишь числа ком.строка исчезает!?!

Полный код в студию.
И не забудьте его заключить в теги CODE ("#" на панели в окне редактирования).

[Юрий2009]

Сообщение от Sazary

Полный код в студию.
И не забудьте его заключить в теги CODE ("#" на панели в окне редактирования).

var n,P,i: integer;
begin
i := 1;
P := 1;
while i<=2*n-1 do
begin 
P := P*i;
inc(i,2);
end;

ReadLn;
end.

[Sazary]

Так вы же n не вводите:

var n,P,i: integer;
begin
i := 1;
P := 1;
n :=3;
while i<=2*n-1 do
 begin
 P := P*i;
 inc(i,2);
 end;
writeln(P);
ReadLn;
end.

[MalCer]

когда вводишь числа ком.строка исчезает!?!

Конечно исчезнет! А что же вы хотели! Паскаль, как я вижу, ваще не знаете!!! Советую почитать какую либо литературу Литература по паскалю и По Delphi