[XaKeR282]

помогите мне вычислить факториал. Я попробовал сделать его с циклом (for to do) у меня получилось, а с While не получается, попробовал написать такой код:

Код:

procedure TForm5.ВычислитьExecute(Sender: TObject);
var
Shotcik:Integer;
Summa:Integer;
Ekran:Integer;
begin
Shotcik:=0;
Summa:=0;
Ekran:=StrToInt(Edit1.Text);
while Shotcik<Ekran do
Begin
Summa:=Summa+Shotcik;
Shotcik:=Shotcik+1;
End;
Edit2.Text:=IntToStr(Ekran);
end;

[stil]

Код:

procedure TForm5.ВычислитьExecute(Sender: TObject);
var
Shotcik:Integer;
Summa:Integer;
Ekran:Integer;
begin
Shotcik:=1;
Summa:=1;
Ekran:=StrToInt(Edit1.Text);
while Shotcik<=Ekran do
Begin
Summa:=Summa*Shotcik;
Shotcik:=Shotcik+1;
End;
Edit2.Text:=IntToStr(Summa);
end;

вообще то факториал это http://ru.wikipedia.org/wiki/Факториал

[Konrad]

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

вообще то факториал это http://ru.wikipedia.org/wiki/Факториал

Откуда ж ему знать, он мего-хакeр, и зачем ему учиться - ведь форум всегда поможет...